[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 chris at katipo.co.nz 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;