diff options
author | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-03 23:33:08 +0000 |
---|---|---|
committer | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-03 23:33:08 +0000 |
commit | 8f01bd1dd589d368b5d4d077979d3d4715a3a434 (patch) | |
tree | 90444ddab4c152ccb1472d0d67e8bfaf9b16593b /LedgerSMB/DBObject/User.pm | |
parent | f31f0fd95aa2eb2e61f09900a2a011984da5a274 (diff) |
Updates and clarifications to the new Admin interface. Testing to commence on Mon, Jul 7th.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2183 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/DBObject/User.pm')
-rw-r--r-- | LedgerSMB/DBObject/User.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/LedgerSMB/DBObject/User.pm b/LedgerSMB/DBObject/User.pm index b6d69863..c84c6336 100644 --- a/LedgerSMB/DBObject/User.pm +++ b/LedgerSMB/DBObject/User.pm @@ -11,7 +11,7 @@ sub save { if ( $user->{id} && $self->{is_a_user} ) { # doesn't check for the password - that's done in the sproc. - $self->{id} = shift @{ $self->exec_method(procname=>'admin_save_user', + $self->{id} = shift @{ $self->exec_method(procname=>'admin__save_user', args=>[$user->{id}, $self->{username}, $self->{password}] ) }; if (!$self->{id}) { @@ -29,7 +29,7 @@ sub save { elsif ($self->{is_a_user}) { # No user ID, meaning, creating a new one. - $self->{id} = shift @{ $self->exec_method(procname=>'admin_save_user', + $self->{id} = shift @{ $self->exec_method(procname=>'admin__save_user', args=>[undef, $self->{username}, $self->{password}] ) }; } return 1; @@ -39,7 +39,7 @@ sub get { my $self = shift @_; - my ($user_id, $username) = @{ $self->exec_method(procname=>'admin_get_user', + my ($user_id, $username) = @{ $self->exec_method(procname=>'admin__get_user', args=>[$self->{id}])}; return {id=>$user_id, username=>$username}; @@ -49,7 +49,7 @@ sub remove { my $self = shift; - my $code = $self->exec_method(procname=>"admin_delete_user", args=>[$self->{id}, $self->{username}]); + my $code = $self->exec_method(procname=>"admin__delete_user", args=>[$self->{id}, $self->{username}]); $self->{id} = undef; # never existed.. return $code->[0]; @@ -59,7 +59,7 @@ sub save_prefs { my $self = shift @_; - my $pref_id = $self->exec_method(procname=>"admin_save_preferences", + my $pref_id = $self->exec_method(procname=>"admin__save_preferences", args=>[ 'language', 'stylesheet', @@ -74,7 +74,7 @@ sub get_all_users { my $self = shift @_; - $self->{users} = $self->exec_method( procname=>"user_get_all_users" ); + $self->{users} = $self->exec_method( procname=>"user__get_all_users" ); } 1; |