From 5f24c101474901bf5607fcad189d287b43c5d799 Mon Sep 17 00:00:00 2001 From: aurynn_cmd Date: Thu, 20 Sep 2007 20:06:53 +0000 Subject: Removal of extra new_user function from admin.pl. Updates to DBObject.pm to remove treatment of argument list as a hashref. Update to LedgerSMB.pm to add s bare sub DESTROY so as not to trigger weird behaviour from using AUTOLOAD. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1636 4979c152-3d1c-0410-bac9-87ea11338e46 --- scripts/admin.pl | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) (limited to 'scripts') 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) = @_; -- cgit v1.2.3