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 "; }