From 1151179355b8a2ab9ed6dd3b2260e854e8a4501e Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 26 Sep 2007 17:52:12 +0000
Subject: Moving Aurynn's set() function from DBObject to LedgerSMB namespaces
 since it is not specific to database defined objects

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1670 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject.pm       | 18 ++----------------
 LedgerSMB/DBObject/Admin.pm |  2 +-
 2 files changed, 3 insertions(+), 17 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index 657b30e5..f52724c7 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -23,10 +23,8 @@ this way as is any information that is needed.
 
 =item exec_method ($self, procname => $function_name, args => \@args)
 
-=item set (@attrs)
-
-Copies the given key=>vars to $self. Allows for finer control of 
-merging hashes into self.
+Provides the basic mapping of parameters to the SQL stored procedure function 
+arguments.
 
 =back
 
@@ -283,16 +281,4 @@ sub _parse_array {
     return @return_array;
 }
 
-sub set {
-    
-    my $self = shift @_;
-    my %args = @_;
-    
-    for my $arg (keys(%args)) {
-        $self->{$arg} = $args{$arg};
-    }
-    return 1;    
-
-}
-
 1;
diff --git a/LedgerSMB/DBObject/Admin.pm b/LedgerSMB/DBObject/Admin.pm
index 74ee238b..e09e1214 100644
--- a/LedgerSMB/DBObject/Admin.pm
+++ b/LedgerSMB/DBObject/Admin.pm
@@ -193,4 +193,4 @@ sub get_salutations {
     return $sth->fetchall_arrayref( {} );
 }
 
-1;
\ No newline at end of file
+1;
-- 
cgit v1.2.3