SF.net SVN: ledger-smb: [1591] trunk/LedgerSMB

[..hidden..]

Revision: 1591
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1591&view=rev
Author:   aurynn_cmd
Date:     2007-09-13 16:50:02 -0700 (Thu, 13 Sep 2007)

Log Message:
-----------
admin script now compiles correctly on my testbed host.

Modified Paths:
--------------
    trunk/LedgerSMB/Contact.pm
    trunk/LedgerSMB/DBObject/Admin.pm

Modified: trunk/LedgerSMB/Contact.pm
===================================================================
--- trunk/LedgerSMB/Contact.pm	2007-09-13 23:12:16 UTC (rev 1590)
+++ trunk/LedgerSMB/Contact.pm	2007-09-13 23:50:02 UTC (rev 1591)
@@ -37,7 +37,7 @@
 package LedgerSMB::Contact;
 
 use base LedgerSMB::DBObject;
-use LedgerSMB::Error;
+#use LedgerSMB::Error;
 
 
 sub save {
@@ -63,13 +63,13 @@
 
 sub get {
     
-    my $self=shift @_;
+    my $self = shift @_;
     my $id = shift @_;
     
     my $result = shift @{ $self->exec_method(
         procname => 'get',
         args=>[$id]
-    );
+    ) };
 }
 
 sub search {

Modified: trunk/LedgerSMB/DBObject/Admin.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Admin.pm	2007-09-13 23:12:16 UTC (rev 1590)
+++ trunk/LedgerSMB/DBObject/Admin.pm	2007-09-13 23:50:02 UTC (rev 1591)
@@ -76,7 +76,7 @@
             
             # 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 @@
         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 @@
         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;
     }
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.