[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha members/moremember.pl koha-tmpl/intranet-t...
From: |
Pierrick LE GALL |
Subject: |
[Koha-cvs] koha members/moremember.pl koha-tmpl/intranet-t... |
Date: |
Tue, 18 Apr 2006 10:32:25 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Pierrick LE GALL <address@hidden> 06/04/18 10:32:24
Modified files:
members : moremember.pl
koha-tmpl/intranet-tmpl/prog/en/members: moremember.tmpl
Log message:
improvement: in member details page, issue and reserve lines are
toggled.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/members/moremember.pl.diff?tr1=1.22&tr2=1.23&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/koha-tmpl/intranet-tmpl/prog/en/members/moremember.tmpl.diff?tr1=1.5&tr2=1.6&r1=text&r2=text
Patches:
Index: koha/koha-tmpl/intranet-tmpl/prog/en/members/moremember.tmpl
diff -u koha/koha-tmpl/intranet-tmpl/prog/en/members/moremember.tmpl:1.5
koha/koha-tmpl/intranet-tmpl/prog/en/members/moremember.tmpl:1.6
--- koha/koha-tmpl/intranet-tmpl/prog/en/members/moremember.tmpl:1.5 Fri Apr
14 09:35:22 2006
+++ koha/koha-tmpl/intranet-tmpl/prog/en/members/moremember.tmpl Tue Apr
18 10:32:24 2006
@@ -137,7 +137,11 @@
</tr>
<!-- tmpl_loop name="issueloop" -->
- <tr>
+ <!-- TMPL_IF NAME="toggle" -->
+ <tr class="highlight">
+ <!-- TMPL_ELSE -->
+ <tr>
+ <!-- /TMPL_IF -->
<td>
<!-- TMPL_IF name="red" --><span
class="overdue"><!-- /TMPL_IF -->
<!-- TMPL_VAR NAME="title" --><!-- TMPL_IF
name="red" --></span><!-- /TMPL_IF -->
@@ -196,7 +200,11 @@
</tr>
<!-- TMPL_LOOP name="reserveloop" -->
- <tr>
+ <!-- TMPL_IF NAME="toggle" -->
+ <tr class="highlight">
+ <!-- TMPL_ELSE -->
+ <tr>
+ <!-- /TMPL_IF -->
<td>
<a href="/cgi-bin/koha/request.pl?bib=<!--
TMPL_VAR NAME="biblionumber" -->"><!-- TMPL_VAR NAME="btitle" --></a>
<!-- TMPL_IF name="volumeddesc" -->
Index: koha/members/moremember.pl
diff -u koha/members/moremember.pl:1.22 koha/members/moremember.pl:1.23
--- koha/members/moremember.pl:1.22 Fri Apr 14 09:32:34 2006
+++ koha/members/moremember.pl Tue Apr 18 10:32:24 2006
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: moremember.pl,v 1.22 2006/04/14 09:32:34 tipaul Exp $
+# $Id: moremember.pl,v 1.23 2006/04/18 10:32:24 plg Exp $
# script to do a borrower enquiry/bring up borrower details etc
# Displays all the details about a borrower
@@ -159,6 +159,7 @@
my $today=ParseDate('today');
my @issuedata;
my $totalprice = 0;
+my $toggle = 0;
for (my $i=0;$i<$count;$i++){
my $datedue=ParseDate($issue->[$i]{'date_due'});
$issue->[$i]{'date_due'} = format_date($issue->[$i]{'date_due'});
@@ -168,6 +169,7 @@
if ($datedue < $today){
$row{'red'}=1; #print "<font color=red>";
}
+ $row{toggle} = $toggle++%2;
#find the charge for an item
# FIXME - This is expecting
# &C4::Circulation::Renewals2::calc_charges, but it's getting
@@ -202,10 +204,12 @@
#
my ($rescount,$reserves)=FindReserves('',$bornum); #From C4::Reserves2
my @reservedata;
+$toggle = 0;
foreach my $reserveline (@$reserves) {
$reserveline->{'reservedate2'} =
format_date($reserveline->{'reservedate'});
my $restitle;
my %row = %$reserveline;
+ $row{toggle} = $toggle++%2;
if ($reserveline->{'constrainttype'} eq 'o'){
$restitle=getreservetitle($reserveline->{'biblionumber'},$reserveline->{'borrowernumber'},$reserveline->{'reservedate'},$reserveline->{'rtimestamp'});
%row = (%row , %$restitle) if $restitle;