From 14722a2e4de3cbc1e2c99b2a736c7facd2c37169 Mon Sep 17 00:00:00 2001 From: Othmar Gsenger Date: Sat, 15 Jan 2011 20:12:15 +0000 Subject: added config, fixed nobr issiue on lenny --- local/menu.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'local/menu.pm') 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'},[''.b('Angemeldet als: ').$user->get_name.'']))); $html.= CGI::start_div({class=>'bodydiv'}); my @elements; foreach my $url (sort {$menus{$a}->[0] <=> $menus{$b}->[0] } keys %menus) -- cgit v1.2.3