diff options
-rwxr-xr-x | LedgerSMB.pm | 8 |
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; |