[Koha-cvs] koha/acqui receive.pl [dev_week]

[Ryan Higgins]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Ryan Higgins <rych>     07/01/01 01:55:53

Modified files:
        acqui          : receive.pl 

Log message:
        add tmpl var for quant received

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/receive.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.13.2.5.2.2&r2=1.13.2.5.2.3

Patches:
Index: receive.pl
===================================================================
RCS file: /sources/koha/koha/acqui/Attic/receive.pl,v
retrieving revision 1.13.2.5.2.2
retrieving revision 1.13.2.5.2.3
diff -u -b -r1.13.2.5.2.2 -r1.13.2.5.2.3
--- receive.pl  3 Dec 2006 21:57:38 -0000       1.13.2.5.2.2
+++ receive.pl  1 Jan 2007 01:55:53 -0000       1.13.2.5.2.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: receive.pl,v 1.13.2.5.2.2 2006/12/03 21:57:38 rych Exp $
+# $Id: receive.pl,v 1.13.2.5.2.3 2007/01/01 01:55:53 rych Exp $
 
 #script to recieve orders
 #written by address@hidden 24/2/2000
@@ -82,6 +82,7 @@
        $line{unitprice} = $parcelitems[$i]->{'unitprice'};
        $line{ecost} = $parcelitems[$i]->{'ecost'};
        $line{quantityrecieved} = $parcelitems[$i]->{'quantityreceived'};
+       $line{quantityrecievedplus1} = $parcelitems[$i]->{'quantityreceived'} + 
1;
        $line{quantity} = $parcelitems[$i]->{'quantity'};
        $line{total} = $total;
        $line{supplierid} = $supplierid;