From 60debf98860ba2103ff0318d54a5179dcf8dee10 Mon Sep 17 00:00:00 2001
From: rangi <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'}<!--</a>-->
 <p align=right>
 <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="modify"  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"> 
+<INPUT TYPE="image" name="delete"  VALUE="delete" height=42  WIDTH=93 BORDER=0 src="/images/delete-mem.gif"> 
 </p>
 
 </TD>
@@ -131,7 +132,13 @@ for (my$i=0;$i<$numaccts;$i++){
     }
     print "<td>$accts->[$i]{'date'}</td>";
 #  print "<TD>$accts->[$i]{'accounttype'}</td>";
-    print "<TD>$accts->[$i]{'description'} $accts->[$i]{'title'}</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>";
   }
-- 
2.39.2