[Koha-cvs] koha/acqui recieveorder.pl [rel_2_2]

[paul poulain]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	paul poulain <tipaul at savannah.gnu.org>	06/04/04 13:33:53

Modified files:
	acqui          : recieveorder.pl 

Log message:
	* removing smart::comment dependency
	* formatting dates
	* managing highlight

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/acqui/recieveorder.pl.diff?only_with_tag=rel_2_2&tr1=1.9.2.6&tr2=1.9.2.7&r1=text&r2=text

Patches:
Index: koha/acqui/recieveorder.pl
diff -u koha/acqui/recieveorder.pl:1.9.2.6 koha/acqui/recieveorder.pl:1.9.2.7
--- koha/acqui/recieveorder.pl:1.9.2.6	Tue Feb 14 17:07:24 2006
+++ koha/acqui/recieveorder.pl	Tue Apr  4 13:33:52 2006
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: recieveorder.pl,v 1.9.2.6 2006/02/14 17:07:24 hdl Exp $
+# $Id: recieveorder.pl,v 1.9.2.7 2006/04/04 13:33:52 tipaul Exp $
 
 #script to show display basket of orders
 #written by chris at katipo.co.nz 24/2/2000
@@ -28,13 +28,13 @@
 use C4::Output;
 use C4::Interface::CGI::Output;
 use C4::Database;
+use C4::Date;
 use HTML::Template;
 use C4::Acquisition;
-use Smart::Comments;
 
 my $input=new CGI;
 my $supplierid=$input->param('supplierid');
-my $order=$input->param('orderby');
+my $order=$input->param('orderby') || "datereceived desc";
 my $startfrom=$input->param('startfrom');
 my $code=$input->param('filter');
 my $datefrom=$input->param('datefrom');
@@ -97,6 +97,7 @@
 }
 my @loopres;
 
+my $hilighted=0;
 for (my $i=$startfrom;$i<=($startfrom+$resultsperpage-1<$count-1?$startfrom+$resultsperpage-1:$count-1);$i++){
 ### startfrom: $startfrom
 ### resultsperpage: $resultsperpage
@@ -109,10 +110,13 @@
 	$cell{code}=$results[$i]->{booksellerinvoicenumber};
 	$cell{nullcode}=$results[$i]->{booksellerinvoicenumber} eq "NULL";
 	$cell{emptycode}=$results[$i]->{booksellerinvoicenumber} eq '';
-	$cell{datereceived}=$results[$i]->{datereceived};
+	$cell{raw_datereceived}=$results[$i]->{datereceived};
+	$cell{datereceived}=format_date($results[$i]->{datereceived});
 	$cell{bibcount}=$results[$i]->{biblio};
 	$cell{reccount}=$results[$i]->{itemsreceived};
 	$cell{itemcount}=$results[$i]->{itemsexpected};
+	$cell{hilighted} = $hilighted%2;
+	$hilighted++;
 	push @loopres, \%cell;
 }
 $template->param(searchresults=>\@loopres, count=>$count) if ($count);