diff options
author | Othmar Gsenger <otti@wirdorange.org> | 2011-01-15 20:20:26 +0000 |
---|---|---|
committer | Othmar Gsenger <otti@wirdorange.org> | 2011-01-15 20:20:26 +0000 |
commit | 23d5b7802426cfd7b4503e7da88aaebd7369b964 (patch) | |
tree | 6591ad44afec82fae0ed9b8fdb73600a0d7b12a6 /local | |
parent | added webdir config option (diff) |
chacnged user to use complete environment
added config support to remove and cancel
Diffstat (limited to 'local')
-rw-r--r-- | local/menu.pm | 2 | ||||
-rw-r--r-- | local/user.pm | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/local/menu.pm b/local/menu.pm index 62d5947..d5078ff 100644 --- a/local/menu.pm +++ b/local/menu.pm @@ -31,7 +31,7 @@ sub start_html my ($title)=@_; my $active = $self->{REQUEST_URI}; my $html= CGI::start_html(-style=>{'src'=>'/style.css'},-title=>$title); - my $user = new local::user($ENV{REMOTE_USER}); + my $user = new local::user(%ENV); $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; diff --git a/local/user.pm b/local/user.pm index 5b727ba..3700139 100644 --- a/local/user.pm +++ b/local/user.pm @@ -10,7 +10,8 @@ sub new my $class = ref($invocant) || $invocant; # my $self = $class->SUPER::new(@_); my $self=bless {}, $class; - ($self->{name})=@_; + my %ENV=@_; + ($self->{name})=$ENV{REMOTE_USER}; my @user = local::db::owner->search(name => $self->{name}); if (not @user) { |