[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 <address@hidden>   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 address@hidden 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=>address@hidden, count=>$count) if ($count);