From a2bfc9671736d88f3e4603eeb0a97d2425cb3584 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sat, 10 Mar 2007 00:05:22 +0000 Subject: Fixing LedgerSMB::Merge() git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@874 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/DBObject.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'LedgerSMB') diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index 54b34429..d91c4899 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -32,12 +32,13 @@ use warnings; our @ISA = qw(LedgerSMB); sub new { + my $self = shift @_; my $lsmb = shift @_; - my $self = {}; if (! $lsmb->isa('LedgerSMB')){ $self->error("Constructor called without LedgerSMB object arg"); } + $self = {}; my $attr; for $attr (keys %{$lsmb}){ $self->{$attr} = $lsmb->{$attr}; @@ -60,8 +61,6 @@ sub exec_method { my $args = $ref->{proargnames}; $args =~ s/\{(.*)\}/$1/; my @proc_args = split /,/, $args; - print "Ref: $ref\n"; - print "Args: $ref->{proargnames}\n"; if (!$ref){ # no such function $self->error("No such function: ", $funcname); @@ -73,7 +72,6 @@ sub exec_method { if ($args){ for my $arg (@proc_args){ if ($arg =~ s/^in_//){ - print "Arg: $arg\n"; push @call_args, $self->{$arg}; } } @@ -81,7 +79,6 @@ sub exec_method { else { @call_args = @_; } - print "Arg2s: @_ \n"; $self->callproc($funcname, @call_args); } -- cgit v1.2.3