gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

improvement: in member details page, issue and reserve lines are toggled.

This commit is contained in:
plg 2006-04-18 10:32:24 +00:00
parent 055eb2726e
commit 4d587f16cd
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
koha-tmpl/intranet-tmpl/prog/en/members/moremember.tmpl
View File

@ -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" -->

4
members/moremember.pl
View File

@ -159,6 +159,7 @@ my ($count,$issue)=borrissues($bornum);
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 @@ for (my $i=0;$i<$count;$i++){
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 @@ for (my $i=0;$i<$count;$i++){
#
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;