From 388bd0e5c145e470c59123e61d22d870145475de Mon Sep 17 00:00:00 2001 From: oleonard Date: Wed, 9 Feb 2005 20:59:18 +0000 Subject: [PATCH] - adding 'toggle' variable to allow alternating table row styles - adding 'classification' to list of returned variables - using format_date() to format dates according to system preference --- readingrec.pl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/readingrec.pl b/readingrec.pl index 85d44d19bd..3c1d3e50bb 100755 --- a/readingrec.pl +++ b/readingrec.pl @@ -29,6 +29,7 @@ use C4::Interface::CGI::Output; use CGI; use C4::Search; use HTML::Template; +use C4::Date; my $input=new CGI; @@ -61,11 +62,15 @@ my @loop_reading; for (my $i=0;$i<$count;$i++){ my %line; + if($i%2){ + $line{'toggle'} = 1; + } $line{biblionumber}=$issues->[$i]->{'biblionumber'}; $line{title}=$issues->[$i]->{'title'}; $line{author}=$issues->[$i]->{'author'}; - $line{date_due}=$issues->[$i]->{'date_due'}; - $line{returndate}=$issues->[$i]->{'returndate'}; + $line{classification} = $issues->[$i]->{'classification'}; + $line{date_due}=format_date($issues->[$i]->{'date_due'}); + $line{returndate}=format_date($issues->[$i]->{'returndate'}); $line{volumeddesc}=$issues->[$i]->{'volumeddesc'}; push(@loop_reading,\%line); } -- 2.39.5