From 36dff6b4f7aa79833d3b21d7e60f504550f0d39b Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 8 Mar 2007 07:07:59 +0000
Subject: refactoring some methods and getting rid of unnecessary multiple
 inheritance

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@863 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 2c82bf7c..9a4910a1 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -3114,4 +3114,12 @@ sub audittrail {
 	$rv;
 }
 
+sub merge {
+	my $self = shift @_;
+	my $src = shift @_;
+	for $arg (@_){
+		$self->{$arg} = $src->{$arg};
+	}
+}
+
 1;
-- 
cgit v1.2.3