From 695d7fd96eccb9a47b2bb44feaf475b65f3db138 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 21 Nov 2008 20:45:17 +0000
Subject: API tests now mostly work

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2412 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/customer.pl  | 4 +++-
 scripts/employee.pl  | 2 +-
 scripts/inventory.pl | 6 ++----
 3 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'scripts')

diff --git a/scripts/customer.pl b/scripts/customer.pl
index 9f2e73a1..0bf05b8f 100644
--- a/scripts/customer.pl
+++ b/scripts/customer.pl
@@ -23,7 +23,7 @@ package LedgerSMB::Scripts::customer;
 use LedgerSMB::DBObject::Customer;
 use base qw(LedgerSMB::ScriptLib::Company);
 
-require 'lsmb-request.pl';
+#require 'lsmb-request.pl';
 
 sub set_entity_class {
     my ($null, $request) = @_;
@@ -35,3 +35,5 @@ sub new_company {
     my ($null, $request) = @_;
     return LedgerSMB::DBObject::Customer->new(base=> $request, copy => 'all');
 }
+
+1;
diff --git a/scripts/employee.pl b/scripts/employee.pl
index 5de34870..b3977961 100644
--- a/scripts/employee.pl
+++ b/scripts/employee.pl
@@ -23,7 +23,7 @@ package LedgerSMB::Scripts::employee;
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Employee;
 
-require 'lsmb-request.pl';
+#require 'lsmb-request.pl';
 
 =pod
 
diff --git a/scripts/inventory.pl b/scripts/inventory.pl
index 04f5388d..8bab9f92 100644
--- a/scripts/inventory.pl
+++ b/scripts/inventory.pl
@@ -15,13 +15,12 @@ Save customer will update or create as needed.
 =head1 METHODS
 
 =cut
-
 package LedgerSMB::Scripts::customer;
 
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Customer;
 
-require 'lsmb-request.pl';
+#require 'lsmb-request.pl';
 
 =over
 
@@ -90,7 +89,7 @@ sub adjustment_next {
 		$adjustment->{"partnumber_new_$i"});
             $adjustment->{"row_$i"} = $item->{id};
             $adjustment->{"description_$i"} = $item->{description};
-            $adjustment->{"onhand_$i"} = $item->{onhand}};
+            $adjustment->{"onhand_$i"} = $item->{onhand};
         }
         $adjustment->{"qty_$i"} = $adjustment->{"onhand_$i"} 
 		- $adjustment->{"counted_$i"}; 
@@ -116,5 +115,4 @@ sub adjustment_save {
     $adjustment->save;
     begin_adjust($request);
 } 
-
 1;
-- 
cgit v1.2.3