diff options
| -rw-r--r-- | LedgerSMB/Contact.pm | 6 | ||||
| -rw-r--r-- | 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; } } |