Added code to allow searches to be used by catalogue maintenance

[koha_fer] / moredetail.pl

diff --git a/moredetail.pl b/moredetail.pl
index 9ff0c7b..d89dd2a 100755 (executable)
--- a/moredetail.pl
+++ b/moredetail.pl
@@ -53,6 +53,12 @@ $dewey=~ s/\.$//;
 print <<printend
 <br>
 <a href=/cgi-bin/koha/request.pl?bib=$bib><img src=/images/requests.gif width=120 height=42 border=0 align=right border=0></a>
+printend
+;
+if ($type eq 'catmain'){
+  print "<FONT SIZE=6><em>Catalogue Maintenance</em></FONT><br>";
+}
+print <<printend
 <FONT SIZE=6><em><a href=/cgi-bin/koha/detail.pl?bib=$bib&type=intra>$data->{'title'} ($data->{'author'})</a></em></FONT><P>
 <p>
 <form action=/cgi-bin/koha/modbibitem.pl>
@@ -84,6 +90,13 @@ print <<printend
 <b>Size:</b> $data->{'size'}<br>
 <b>Notes:</b> $data->{'notes'}<br>
 <b>No. of Items:</b> $count
+printend
+;
+if ($type eq 'catmain'){
+  print "<br><a href=/cgi-bin/koha/maint/shiftbib.pl?bi=$data->{'biblioitemnumber'}&bib=$data->{'biblionumber'}>Shift to another biblio</a>";
+ 
+}
+print <<printend
 </font>
 </TD>
 </tr>