fixing redirection after member deletion (due to script move to members/ )

[koha_gimpoz] / delbiblio.pl

diff --git a/delbiblio.pl b/delbiblio.pl
index 8c86528..d696467 100755 (executable)
--- a/delbiblio.pl
+++ b/delbiblio.pl
@@ -27,7 +27,6 @@ use strict;
 use C4::Search;
 use CGI;
 use C4::Output;
-#use C4::Acquisitions;         # FIXME - Doesn't exist anymore
 use C4::Biblio;
 
 my $input = new CGI;
@@ -35,11 +34,8 @@ my $input = new CGI;
 
 
 my $biblio=$input->param('biblio');
-#print $input->header;
-#check no items attached
-# FIXME - C4::Acquisitions no longer exists. Should this be
-# &C4::Search::itemcount, or &C4::Biblio::itemcount?
-my $count=C4::Acquisitions::itemcount($biblio);
+# check no items attached
+my $count=C4::Biblio::itemcount($biblio);
 
 
 #print $count;
@@ -49,5 +45,5 @@ if ($count > 0){
   ";
 } else {
        delbiblio($biblio);
-       print $input->redirect("/catalogue/");
+       print $input->redirect("/cgi-bin/koha/loadmodules.pl?module=search");
 }