diff options
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/admin.pl | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/scripts/admin.pl b/scripts/admin.pl index 2d16d369..9947b501 100644 --- a/scripts/admin.pl +++ b/scripts/admin.pl @@ -9,12 +9,14 @@ use LedgerSMB::DBObject::Admin; sub new_user { # uses the same page as create_user, only pre-populated. - my ($class, $request) = @_; + #my ($class, $request) = @_; + my $class = shift @_; + my $request = shift @_; my $admin = LedgerSMB::DBObject::Admin->new(base=>$request, copy=>'all'); my $sal = $admin->get_salutations(); - if ($request->type() == 'POST') { + if ($request->type() eq 'POST') { # do the save stuff @@ -132,17 +134,6 @@ sub delete_user { $template->render($status); } -sub new_user { - - my ($class, $request) = @_; - - my $template = LedgerSMB::Template->new( user=>$user, - template=>'Admin/edit_user', language=>$user->{language}, - format=>'HTML', path=>'UI'); - - $template->render(); -} - sub new_group { my ($class, $request) = @_; |