diff options
Diffstat (limited to 'LedgerSMB/DBObject/Admin.pm')
| -rw-r--r-- | LedgerSMB/DBObject/Admin.pm | 16 |
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; } } |