summaryrefslogtreecommitdiff
path: root/LedgerSMB.pm
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-26 17:52:12 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-26 17:52:12 +0000
commit1151179355b8a2ab9ed6dd3b2260e854e8a4501e (patch)
tree268860ebdbb3202b2ede8663d4916fd6a4526e97 /LedgerSMB.pm
parent1d53d40656d58bc4a0293bbaa3001b3be40d6b23 (diff)
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
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-xLedgerSMB.pm17
1 files changed, 17 insertions, 0 deletions
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;