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/Contact.pm        |  6 +++---
 LedgerSMB/DBObject/Admin.pm | 16 +++++++++-------
 2 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/LedgerSMB/Contact.pm b/LedgerSMB/Contact.pm
index b98a6298..b3d6b9d8 100644
--- a/LedgerSMB/Contact.pm
+++ b/LedgerSMB/Contact.pm
@@ -37,7 +37,7 @@ your software.
 package LedgerSMB::Contact;
 
 use base LedgerSMB::DBObject;
-use LedgerSMB::Error;
+#use LedgerSMB::Error;
 
 
 sub save {
@@ -63,13 +63,13 @@ sub save {
 
 sub get {
     
-    my $self=shift @_;
+    my $self = shift @_;
     my $id = shift @_;
     
     my $result = shift @{ $self->exec_method(
         procname => 'get',
         args=>[$id]
-    );
+    ) };
 }
 
 sub search {
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