diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-21 20:45:17 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-21 20:45:17 +0000 |
commit | 695d7fd96eccb9a47b2bb44feaf475b65f3db138 (patch) | |
tree | d3c748e9ca9410f29e8d8a951ed34e27d90fcc8e /scripts/inventory.pl | |
parent | 4162f3285a28eab5166dd31cc668da803a042aa7 (diff) |
API tests now mostly work
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2412 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts/inventory.pl')
-rw-r--r-- | scripts/inventory.pl | 6 |
1 files changed, 2 insertions, 4 deletions
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; |