From d413475697dc9ebf5c890787a1ba91bce3aaa3a1 Mon Sep 17 00:00:00 2001 From: rangi Date: Wed, 21 Feb 2001 22:17:58 +0000 Subject: [PATCH] Got a link from items on issue thru to item details (like in the circ module) And also stopped already renewed books from being renewable in the issues list --- moremember.pl | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/moremember.pl b/moremember.pl index 3f6bde4110..c9aeec3007 100755 --- a/moremember.pl +++ b/moremember.pl @@ -90,8 +90,8 @@ print < -General Notes: -$data->{'borrowernotes'} +General Notes: +$data->{'borrowernotes'}

@@ -180,7 +180,9 @@ for (my $i=0;$i<$count;$i++){ if ($datedue < $today){ print ""; } - print "$issue->[$i]{'title'} $issue->[$i]{'barcode'} + print "$issue->[$i]{'title'} + [$i]->{'itemnumber'}&bib=$issue->[$i]->{'biblionumber'}&bi=$issue->[$i]->{'biblioitemnumber'}> + $issue->[$i]{'barcode'} $issue->[$i]{'date_due'}"; #find the charge for an item my ($charge,$itemtype)=calc_charges(\%env,$issue->[$i]{'itemnumber'},$bornum); @@ -196,6 +198,8 @@ for (my $i=0;$i<$count;$i++){ my ($rescount,$reserves)=FindReserves($issue->[$i]{'biblionumber'},''); if ($rescount >0){ print "[$i]{'biblionumber'}>On Request - no renewals"; + } elsif ($issue->[$i]->{'renewals'} > 0) { + print "Previously Renewed - no renewals"; } else { print ""; -- 2.39.5