diff options
| -rw-r--r-- | LedgerSMB/DBObject.pm | 4 | ||||
| -rw-r--r-- | LedgerSMB/GL.pm | 1 | ||||
| -rw-r--r-- | scripts/drafts.pl | 2 | ||||
| -rw-r--r-- | scripts/vendor.pl | 2 |
4 files changed, 4 insertions, 5 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index dade3ab8..57f5ac6f 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -121,7 +121,7 @@ sub exec_method { $ref = $sth->fetchrow_hashref('NAME_lc'); - my $pargs = $ref->{proargnames}; + my $args = $ref->{proargnames}; my @proc_args; if ( !$ref->{proname} ) { # no such function @@ -132,7 +132,7 @@ sub exec_method { $ref->{pronargs} = 0 unless defined $ref->{pronargs}; # If the user provided args.. if (!defined $args{args}) { - @proc_args = $self->_parse_array($pargs); + @proc_args = $self->_parse_array($args); if (@proc_args) { for my $arg (@proc_args) { if ( $arg =~ s/^in_// ) { diff --git a/LedgerSMB/GL.pm b/LedgerSMB/GL.pm index c399b1cf..22976c2d 100644 --- a/LedgerSMB/GL.pm +++ b/LedgerSMB/GL.pm @@ -564,7 +564,6 @@ sub transaction { my $results = $sth->fetchall_hashref('setting_key'); $form->{closedto} = $results->{'closedto'}->{'value'}; $form->{revtrans} = $results->{'revtrans'}->{'value'}; - #$form->{separate_duties} = $results->{'separate_duties'}->{'value'}; $sth->finish; $query = qq|SELECT g.*, d.description AS department diff --git a/scripts/drafts.pl b/scripts/drafts.pl index 7d6008ec..f7771f30 100644 --- a/scripts/drafts.pl +++ b/scripts/drafts.pl @@ -11,7 +11,7 @@ sub search { $request->{class_types} = [ {text => $request->{_locale}->text('AR'), value => 'ar'}, {text => $request->{_locale}->text('AP'), value => 'ap'}, - {text => $request->{_locale}->text('GL'), value => 'gl'}, + {text => $request->{_locale}->text('GL'), value => 'GL'}, ]; my $template = LedgerSMB::Template->new( user =>$request->{_user}, diff --git a/scripts/vendor.pl b/scripts/vendor.pl index 45a46cb6..0f86c553 100644 --- a/scripts/vendor.pl +++ b/scripts/vendor.pl @@ -23,7 +23,7 @@ package LedgerSMB::Scripts::vendor; use LedgerSMB::DBObject::Vendor; use base qw(LedgerSMB::ScriptLib::Company); -# require 'lsmb-request.pl'; +require 'lsmb-request.pl'; sub set_entity_class { my ($null, $request) = @_; |