From ca5f7b9b2eb6e42d92ca08272aae315b578046ad Mon Sep 17 00:00:00 2001
From: aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 11 Jul 2008 20:10:36 +0000
Subject: Additions and fixes to the Reconciliation code.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2212 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject/User.pm | 80 ----------------------------------------------
 1 file changed, 80 deletions(-)
 delete mode 100644 LedgerSMB/DBObject/User.pm

(limited to 'LedgerSMB/DBObject')

diff --git a/LedgerSMB/DBObject/User.pm b/LedgerSMB/DBObject/User.pm
deleted file mode 100644
index c84c6336..00000000
--- a/LedgerSMB/DBObject/User.pm
+++ /dev/null
@@ -1,80 +0,0 @@
-package LedgerSMB::DBObject::User;
-
-use base qw/LedgerSMB::DBObject/;
-
-sub save {
-    
-    my $self = shift @_;
-    
-    my $user = $self->get();
-    
-    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', 
-            args=>[$user->{id}, $self->{username}, $self->{password}] ) }; 
-        if (!$self->{id}) {
-            
-            return 0;
-        }
-    }
-    elsif ($user && !$self->{is_a_user}) {
-        
-        # there WAS a user, and we've decided we want that user to go away now.
-        
-        $self->{id} = $user->{id};
-        return $self->remove();
-        
-    }
-    elsif ($self->{is_a_user}) {
-        
-        # No user ID, meaning, creating a new one.        
-        $self->{id} = shift @{ $self->exec_method(procname=>'admin__save_user', 
-            args=>[undef, $self->{username}, $self->{password}] ) };
-    }
-    return 1;
-}
-
-sub get {
-    
-    my $self = shift @_;
-    
-    my ($user_id, $username) = @{ $self->exec_method(procname=>'admin__get_user',
-        args=>[$self->{id}])};
-        
-    return {id=>$user_id, username=>$username};
-}
-
-sub remove {
-    
-    my $self = shift;
-    
-    my $code = $self->exec_method(procname=>"admin__delete_user", args=>[$self->{id}, $self->{username}]);
-    $self->{id} = undef; # never existed..
-    
-    return $code->[0];
-}
-
-sub save_prefs {
-    
-    my $self = shift @_; 
-    
-    my $pref_id = $self->exec_method(procname=>"admin__save_preferences", 
-        args=>[
-            'language',
-            'stylesheet',
-            'printer',
-            'dateformat',
-            'numberformat'
-        ]
-    );
-}
-
-sub get_all_users {
-    
-    my $self = shift @_;
-    
-    $self->{users} = $self->exec_method( procname=>"user__get_all_users" );
-}
-
-1;
-- 
cgit v1.2.3