Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv24495 Modified Files: moremember.pl Log Message: Changing the form so it passes through a modify value to tell the script to show the flags Index: moremember.pl =================================================================== RCS file: /cvsroot/koha/koha/moremember.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** moremember.pl 2001/02/21 22:17:58 1.3 --- moremember.pl 2001/03/07 21:02:48 1.4 *************** *** 15,18 **** --- 15,19 ---- use C4::Reserves2; use C4::Circulation::Renewals2; + use C4::Circulation::Circ2; my $input = new CGI; my $bornum=$input->param('bornum'); *************** *** 96,102 **** <form action=/cgi-bin/koha/memberentry.pl method=post> <input type=hidden name=bornum value=$bornum> ! <INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif"> ! <INPUT TYPE="image" name="submit" VALUE="delete" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif"> </p> --- 97,103 ---- <form action=/cgi-bin/koha/memberentry.pl method=post> <input type=hidden name=bornum value=$bornum> ! <INPUT TYPE="image" name="modify" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif"> ! <INPUT TYPE="image" name="delete" VALUE="delete" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif"> </p> *************** *** 132,136 **** print "<td>$accts->[$i]{'date'}</td>"; # print "<TD>$accts->[$i]{'accounttype'}</td>"; ! print "<TD>$accts->[$i]{'description'} $accts->[$i]{'title'}</td> <TD>$amount</td><td>$amount2</td> </tr>"; --- 133,143 ---- print "<td>$accts->[$i]{'date'}</td>"; # print "<TD>$accts->[$i]{'accounttype'}</td>"; ! print "<TD>"; ! my $env; ! if ($accts->[$i]{'accounttype'} ne 'Res'){ ! my $iteminfo=C4::Circulation::Circ2::getiteminformation($env,$accts->[$i]->{'itemnumber'},''); ! print "<a href=/cgi-bin/koha/moredetail.pl?itemnumber=$accts->[$i]->{'itemnumber'}&bib=$iteminfo->{'biblionumber'}&bi=$iteminfo->{'biblioitemnumber'}>$accts->[$i]->{'description'} $accts->[$i]{'title'}</a>"; ! } ! print "</td> <TD>$amount</td><td>$amount2</td> </tr>";