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

1 files changed, 8 insertions, 0 deletions

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;