From 26e86ec4ce6af32486187d7bb03655516fbeeb0c Mon Sep 17 00:00:00 2001
From: aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 13 Sep 2007 23:50:02 +0000
Subject: 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
---
 LedgerSMB/DBObject/Admin.pm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'LedgerSMB/DBObject/Admin.pm')

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;
     }
 }
 
-- 
cgit v1.2.3