admin script now compiles correctly on my testbed host.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1591 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 9 insertions, 7 deletions

diff --git a/LedgerSMB/DBObject/Admin.pm b/LedgerSMB/DBObject/Admin.pm
index a57d4aa7..bccbb16d 100644
--- a/LedgerSMB/DBObject/Admin.pm
+++ b/LedgerSMB/DBObject/Admin.pm
@@ -76,7 +76,7 @@ sub save_user {
             
             # do remove function
             $status = $self->exec_method(procname => "remove_user_from_role",
-                args=>[ $self->{ modifying_user }, $role ] 
+                args=>[ $self->{ modifying_user }, $role ] );
         }
         elsif ($self->{incoming_roles}->{$role} and !($active_roles{$role} )) {
             
@@ -154,9 +154,10 @@ sub delete_user {
         return 1;
     } else {
         
-        my $error = LedgerSMB::Error->new("Delete user failed.");
-        $error->set_status($status);
-        return $error;
+        $self->error('Delete user failed.');
+        #my $error = LedgerSMB::Error->new("Delete user failed.");
+        #$error->set_status($status);
+        #return $error;
     }
 }
 
@@ -173,9 +174,10 @@ sub delete_group {
         return 1;
     } else {
         
-        my $error = LedgerSMB::Error->new("Delete group failed.");
-        $error->set_status($status);
-        return $error;
+        $self->error('Delete group failed.');
+        #my $error = LedgerSMB::Error->new("Delete group failed.");
+        #$error->set_status($status);
+        #return $error;
     }
 }