From 60debf98860ba2103ff0318d54a5179dcf8dee10 Mon Sep 17 00:00:00 2001 From: rangi Date: Wed, 7 Mar 2001 21:02:48 +0000 Subject: [PATCH] Changing the form so it passes through a modify value to tell the script to show the flags --- moremember.pl | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/moremember.pl b/moremember.pl index c9aeec3007..0abf1ad86c 100755 --- a/moremember.pl +++ b/moremember.pl @@ -14,6 +14,7 @@ use C4::Search; use Date::Manip; use C4::Reserves2; use C4::Circulation::Renewals2; +use C4::Circulation::Circ2; my $input = new CGI; my $bornum=$input->param('bornum'); @@ -95,9 +96,9 @@ $data->{'borrowernotes'}

- + - +

@@ -131,7 +132,13 @@ for (my$i=0;$i<$numaccts;$i++){ } print "$accts->[$i]{'date'}"; # print "$accts->[$i]{'accounttype'}"; - print "$accts->[$i]{'description'} $accts->[$i]{'title'} + print ""; + my $env; + if ($accts->[$i]{'accounttype'} ne 'Res'){ + my $iteminfo=C4::Circulation::Circ2::getiteminformation($env,$accts->[$i]->{'itemnumber'},''); + print "[$i]->{'itemnumber'}&bib=$iteminfo->{'biblionumber'}&bi=$iteminfo->{'biblioitemnumber'}>$accts->[$i]->{'description'} $accts->[$i]{'title'}"; + } + print " $amount$amount2 "; } -- 2.39.5