[Koha-cvs] koha/acqui parcel.pl [rel_3_0]

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	paul poulain <tipaul>	07/01/25 09:36:36

Modified files:
	acqui          : parcel.pl 

Log message:
	- normalizing API (invoice)
	- defaulting receive date to today

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/parcel.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.3.2.4&r2=1.3.2.5

Patches:
Index: parcel.pl
===================================================================
RCS file: /sources/koha/koha/acqui/parcel.pl,v
retrieving revision 1.3.2.4
retrieving revision 1.3.2.5
diff -u -b -r1.3.2.4 -r1.3.2.5
--- parcel.pl	9 Jan 2007 09:42:40 -0000	1.3.2.4
+++ parcel.pl	25 Jan 2007 09:36:36 -0000	1.3.2.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: parcel.pl,v 1.3.2.4 2007/01/09 09:42:40 toins Exp $
+# $Id: parcel.pl,v 1.3.2.5 2007/01/25 09:36:36 tipaul Exp $
 
 #script to recieve orders
 #written by chris at katipo.co.nz 24/2/2000
@@ -71,10 +71,10 @@
 my @booksellers=GetBookSeller($supplierid);
 my $count = scalar @booksellers;
 
-my $invoice=$input->param('code') || '';
+my $invoice=$input->param('invoice') || '';
 my $freight=$input->param('freight');
 my $gst=$input->param('gst');
-my $date=$input->param('datereceived');
+my $datereceived=$input->param('datereceived') || format_date(join "-",Date::Calc::Today());
 my $code=$input->param('code');
 
 my ($template, $loggedinuser, $cookie)
@@ -85,8 +85,7 @@
                  flagsrequired => {acquisition => 1},
                  debug => 1,
 });
-# warn "$code  : $invoice : $date";
-my @parcelitems=GetParcel($supplierid,$invoice,$date);
+my @parcelitems=GetParcel($supplierid,$invoice,$datereceived);
 my $countlines = scalar @parcelitems;
 
 my $totalprice=0;
@@ -145,8 +144,8 @@
 $tototal=$tototal+$freight;
 
 $template->param(invoice => $invoice,
-						datereceived => $date,
-						formatteddatereceived => format_date($date),
+						datereceived => $datereceived,
+						formatteddatereceived => format_date($datereceived),
                         name => $booksellers[0]->{'name'},
                         supplierid => $supplierid,
                         gst => $gst,