Revision c6a27f90
Von Sven Schöling vor etwa 12 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 66 | 66 |
my $module = $self->{$item}{module} || $form->{script};
|
| 67 | 67 |
my $action = $self->{$item}{action} || "section_menu";
|
| 68 | 68 |
my $target = $self->{$item}{target} || "";
|
| 69 |
|
|
| 70 | 69 |
my $level = $form->escape($item); |
| 71 |
|
|
| 72 |
my $style = 'style="vertical-align:top"'; |
|
| 73 |
my $target_token = ($target) |
|
| 74 |
? "target='$target'" : ''; |
|
| 70 |
my $target_token = ($target) ? "target='$target'" : ''; |
|
| 75 | 71 |
|
| 76 | 72 |
my $href = ($self->{$item}{href})
|
| 77 | 73 |
? $form->escape($self->{$item}{href})
|
| 78 |
: "$module?action=$action&level=$level"; |
|
| 79 |
|
|
| 80 |
my @vars = ($self->{$item}{href})
|
|
| 81 |
? qw(module target href) |
|
| 82 |
: qw(module action target href); |
|
| 83 |
|
|
| 84 |
# map { delete $self->{$item}{$_} } @vars;
|
|
| 74 |
: "$module?action=$action"; |
|
| 85 | 75 |
|
| 76 |
# my @vars = ($self->{$item}{href})
|
|
| 77 |
# ? qw(module target href) |
|
| 78 |
# : qw(module action target href); |
|
| 79 |
# |
|
| 86 | 80 |
# add other params |
| 87 | 81 |
foreach my $key (keys %{ $self->{$item} }) {
|
| 82 |
next if $key =~ /target|module|action/; |
|
| 88 | 83 |
$href .= "&" . $form->escape($key, 1) . "="; |
| 89 | 84 |
my ($value, $conf) = split(/=/, $self->{$item}{$key}, 2);
|
| 90 | 85 |
$value = $myconfig->{$value} . "/$conf" if ($conf);
|
| 91 | 86 |
$href .= $form->escape($value, 1); |
| 92 | 87 |
} |
| 93 | 88 |
|
| 94 |
my $str = "<a href='$href' $target_token $style>";
|
|
| 89 |
my $str = "<a href='$href' $target_token>"; |
|
| 95 | 90 |
|
| 96 | 91 |
$main::lxdebug->leave_sub(); |
| 97 | 92 |
|
Auch abrufbar als: Unified diff
html menü rewrite v1