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.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'LedgerSMB.pm')

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 97e30403..3d5454a5 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -89,6 +89,11 @@ defined, that field is used for ordering the rows.  If not, runningnumber is
 used.  Behavior is not defined when index points to a field containing 
 non-numbers.
 
+=item set (@attrs)
+
+Copies the given key=>vars to $self. Allows for finer control of 
+merging hashes into self.
+
 =back
 
 =head1 Copyright (C) 2006, The LedgerSMB core team.
@@ -755,5 +760,17 @@ sub type {
 
 sub DESTROY {}
 
+sub set {
+    
+    my $self = shift @_;
+    my %args = @_;
+    
+    for my $arg (keys(%args)) {
+        $self->{$arg} = $args{$arg};
+    }
+    return 1;    
+
+}
+
 1;
 
-- 
cgit v1.2.3