diff options
| author | Othmar Gsenger <otti@wirdorange.org> | 2011-01-15 20:12:15 +0000 |
|---|---|---|
| committer | Othmar Gsenger <otti@wirdorange.org> | 2011-01-15 20:12:15 +0000 |
| commit | 14722a2e4de3cbc1e2c99b2a736c7facd2c37169 (patch) | |
| tree | 89358010d8ea993ed8876e06b89cd251d0763acc /local/menu.pm | |
| parent | added db structure (diff) | |
added config, fixed nobr issiue on lenny
Diffstat (limited to 'local/menu.pm')
| -rw-r--r-- | local/menu.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/local/menu.pm b/local/menu.pm index 6c63c89..62d5947 100644 --- a/local/menu.pm +++ b/local/menu.pm @@ -4,6 +4,7 @@ use CGI qw(:standard); use strict; use base "Exporter"; use local::user; +use config; my %menus = ( @@ -31,7 +32,7 @@ sub start_html my $active = $self->{REQUEST_URI}; my $html= CGI::start_html(-style=>{'src'=>'/style.css'},-title=>$title); my $user = new local::user($ENV{REMOTE_USER}); - $html.= table({class=>'nohigh'},Tr({class=>'nohigh'},td({style=>'font-weight: bold'},[qw/ share.ffgraz.net / ]),td({class=>'login',align=>'right'},[nobr(b('Angemeldet als: ').$user->get_name)]))); + $html.= table({class=>'nohigh'},Tr({class=>'nohigh'},td({style=>'font-weight: bold'},[$config::config{page_name} ]),td({class=>'login',align=>'right'},['<nobr>'.b('Angemeldet als: ').$user->get_name.'</nobr>']))); $html.= CGI::start_div({class=>'bodydiv'}); my @elements; foreach my $url (sort {$menus{$a}->[0] <=> $menus{$b}->[0] } keys %menus) |