Revision 20310b7f
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 71 | 71 |
|
| 72 | 72 |
my $style = 'style="vertical-align:top"'; |
| 73 | 73 |
my $target_token = ($target) |
| 74 |
? "target='$target'" |
|
| 75 |
: ''; |
|
| 74 |
? "target='$target'" : ''; |
|
| 76 | 75 |
|
| 77 |
# my $str = qq|<a style="vertical-align:top" href='|; |
|
| 78 | 76 |
my $href = ($self->{$item}{href})
|
| 79 | 77 |
? $form->escape($self->{$item}{href})
|
| 80 | 78 |
: "$module?action=$action&level=$level"; |
| 81 | 79 |
|
| 82 | 80 |
my @vars = ($self->{$item}{href})
|
| 83 |
? qw(module target href) |
|
| 81 |
? qw(module target href)
|
|
| 84 | 82 |
: qw(module action target href); |
| 85 | 83 |
|
| 86 |
# if ($self->{$item}{href}) {
|
|
| 87 |
## $str = qq|<a 'href=$self->{$item}{href}|;
|
|
| 88 |
# @vars = qw(module target href); |
|
| 89 |
# } |
|
| 90 |
|
|
| 91 | 84 |
map { delete $self->{$item}{$_} } @vars;
|
| 92 | 85 |
|
| 93 | 86 |
# add other params |
| ... | ... | |
| 98 | 91 |
$href .= $form->escape($value, 1); |
| 99 | 92 |
} |
| 100 | 93 |
|
| 101 |
# $str .= q|'|; |
|
| 102 |
# |
|
| 103 |
# if ($target) {
|
|
| 104 |
# $str .= qq| target=$target|; |
|
| 105 |
# } |
|
| 106 |
|
|
| 107 |
# $str .= ">"; |
|
| 108 |
|
|
| 109 | 94 |
my $str = "<a href='$href' $target_token $style>"; |
| 110 | 95 |
|
| 111 | 96 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Menu aufgeräumt.