[Koha-devel] CVS: koha moremember.pl,1.3,1.4

[Chris Cornack]

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