Revision 02497699
Von Sven Schöling vor etwa 7 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 212 | 212 |
|
| 213 | 213 |
return undef if !$node->{href} && !$node->{module} && !$node->{params};
|
| 214 | 214 |
|
| 215 |
my $href = $node->{href} || $node->{module} || 'controller.pl';
|
|
| 216 |
my @tokens; |
|
| 215 |
return $node->{href_for_node} ||= do {
|
|
| 216 |
my $href = $node->{href} || $node->{module} || 'controller.pl';
|
|
| 217 |
my @tokens; |
|
| 217 | 218 |
|
| 218 |
while (my ($key, $value) = each %{ $node->{params} }) {
|
|
| 219 |
push @tokens, uri_encode($key, 1) . "=" . uri_encode($value, 1); |
|
| 220 |
} |
|
| 219 |
while (my ($key, $value) = each %{ $node->{params} }) {
|
|
| 220 |
push @tokens, uri_encode($key, 1) . "=" . uri_encode($value, 1);
|
|
| 221 |
}
|
|
| 221 | 222 |
|
| 222 |
return join '?', $href, grep $_, join '&', @tokens; |
|
| 223 |
join '?', $href, grep $_, join '&', @tokens; |
|
| 224 |
} |
|
| 223 | 225 |
} |
| 224 | 226 |
|
| 225 | 227 |
sub name_for_node {
|
Auch abrufbar als: Unified diff
Menu: links für Menü cachen