Revision 5ca497d5
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
| SL/Layout/Javascript.pm | ||
|---|---|---|
| 110 | 110 |
my $form = $main::form; |
| 111 | 111 |
my %myconfig = %main::myconfig; |
| 112 | 112 |
|
| 113 |
$depth ||= 0; |
|
| 114 |
|
|
| 113 | 115 |
die if ($depth * 1 > 5); |
| 114 | 116 |
|
| 115 | 117 |
my @menuorder = $menu->access_control(\%myconfig, $parent); |
| 116 | 118 |
$parent .= "--" if ($parent); |
| 119 |
$parent ||= ''; |
|
| 117 | 120 |
|
| 118 | 121 |
foreach my $name (@menuorder) {
|
| 119 | 122 |
substr($name, 0, length($parent), ""); |
Auch abrufbar als: Unified diff
warnings