SF.net SVN: ledger-smb:[2381] trunk

[..hidden..]

Revision: 2381
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2381&view=rev
Author:   einhverfr
Date:     2008-10-28 22:20:27 +0000 (Tue, 28 Oct 2008)

Log Message:
-----------
Correcting testability issues in vendor.pl, bug in DBObject.pm

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject.pm
    trunk/scripts/vendor.pl

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2008-10-28 17:54:14 UTC (rev 2380)
+++ trunk/LedgerSMB/DBObject.pm	2008-10-28 22:20:27 UTC (rev 2381)
@@ -121,7 +121,7 @@
 
     $ref = $sth->fetchrow_hashref('NAME_lc');
     
-    my $args = $ref->{proargnames};
+    my $pargs = $ref->{proargnames};
     my @proc_args;
 
     if ( !$ref->{proname} ) {    # no such function
@@ -132,7 +132,7 @@
     $ref->{pronargs} = 0 unless defined $ref->{pronargs};
     # If the user provided args..
     if (!defined  $args{args}) {
-        @proc_args = $self->_parse_array($args);
+        @proc_args = $self->_parse_array($pargs);
         if (@proc_args) {
             for my $arg (@proc_args) {
                 if ( $arg =~ s/^in_// ) {

Modified: trunk/scripts/vendor.pl
===================================================================
--- trunk/scripts/vendor.pl	2008-10-28 17:54:14 UTC (rev 2380)
+++ trunk/scripts/vendor.pl	2008-10-28 22:20:27 UTC (rev 2381)
@@ -23,7 +23,7 @@
 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) = @_;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.