Revision 7f8cada2
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/menuv3.pl | ||
|---|---|---|
| 32 | 32 |
# |
| 33 | 33 |
####################################################################### |
| 34 | 34 |
|
| 35 |
$menufile = "menu.ini"; |
|
| 36 | 35 |
use SL::Menu; |
| 37 | 36 |
use URI; |
| 38 | 37 |
|
| 38 |
use strict; |
|
| 39 |
|
|
| 40 |
my $menufile = "menu.ini"; |
|
| 41 |
my $locale; |
|
| 42 |
|
|
| 39 | 43 |
1; |
| 40 | 44 |
|
| 41 | 45 |
# end of main |
| 42 | 46 |
|
| 43 | 47 |
sub display {
|
| 48 |
my $form = $main::form; |
|
| 49 |
|
|
| 44 | 50 |
$form->header(qq|<link rel="stylesheet" href="css/menuv3.css?id=" type="text/css">|); |
| 45 | 51 |
|
| 46 | 52 |
$form->{date} = clock_line();
|
| ... | ... | |
| 77 | 83 |
} |
| 78 | 84 |
|
| 79 | 85 |
sub acc_menu {
|
| 86 |
my $form = $main::form; |
|
| 87 |
my %myconfig = %main::myconfig; |
|
| 88 |
|
|
| 80 | 89 |
$locale = Locale->new($myconfig{countrycode}, "menu");
|
| 81 | 90 |
|
| 82 |
$mainlevel = $form->{level};
|
|
| 91 |
my $mainlevel = $form->{level};
|
|
| 83 | 92 |
$mainlevel =~ s/\Q$mainlevel\E--//g; |
| 84 | 93 |
my $menu = new Menu "$menufile"; |
| 85 | 94 |
|
| ... | ... | |
| 90 | 99 |
|
| 91 | 100 |
sub print_menu {
|
| 92 | 101 |
my ($menu, $parent, $depth) = @_; |
| 102 |
|
|
| 103 |
my $form = $main::form; |
|
| 104 |
my %myconfig = %main::myconfig; |
|
| 105 |
|
|
| 93 | 106 |
my $html; |
| 94 | 107 |
|
| 95 | 108 |
die if ($depth * 1 > 5); |
Auch abrufbar als: Unified diff
menuv3 strict