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

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) = @_;