[Koha-cvs] koha/acqui orderreceive.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:08

Modified files:
        acqui          : orderreceive.pl 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/orderreceive.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2.2.4&r2=1.2.2.5

Patches:
Index: orderreceive.pl
===================================================================
RCS file: /sources/koha/koha/acqui/Attic/orderreceive.pl,v
retrieving revision 1.2.2.4
retrieving revision 1.2.2.5
diff -u -b -r1.2.2.4 -r1.2.2.5
--- orderreceive.pl     11 Jan 2007 15:30:52 -0000      1.2.2.4
+++ orderreceive.pl     25 Jan 2007 09:36:08 -0000      1.2.2.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: orderreceive.pl,v 1.2.2.4 2007/01/11 15:30:52 hdl Exp $
+# $Id: orderreceive.pl,v 1.2.2.5 2007/01/25 09:36:08 tipaul Exp $
 
 #script to recieve orders
 #written by address@hidden 24/2/2000
@@ -76,12 +76,12 @@
 my $search       = $input->param('recieve');
 my $invoice      = $input->param('invoice');
 my $freight      = $input->param('freight');
-my $biblio       = $input->param('biblio');
-my $daterecieved = $input->param('daterecieved');
+my $biblionumber       = $input->param('biblionumber');
+my $daterecieved = $input->param('daterecieved') || format_date(join 
"-",Date::Calc::Today());
 my $catview      = $input->param('catview');
 my $gst          = $input->param('gst');
 
-my @results = SearchOrder( $search, $supplierid, $biblio, $catview );
+my @results = SearchOrder( $search, $supplierid, $biblionumber, $catview );
 my $count   = scalar @results;
 
 my @booksellers = GetBookSeller( $results[0]->{'booksellerid'} );
@@ -149,7 +149,7 @@
     # See whether barcodes should be automatically allocated.
     # Defaults to 0, meaning "no".
     my $barcode;
-    if ( $auto_barcode eq '1' ) {
+    if ( $auto_barcode ) {
         my $sth = $dbh->prepare("Select max(barcode) from items");
         $sth->execute;
         my $data = $sth->fetchrow_hashref;