moving fields around toCVS: ----------------------------------------------------...

[koha_fer] / delbiblio.pl

diff --git a/delbiblio.pl b/delbiblio.pl
index 5ee2c91..d052bbb 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;
 use C4::Biblio;
 
 my $input = new CGI;
@@ -35,9 +34,8 @@ my $input = new CGI;
 
 
 my $biblio=$input->param('biblio');
-#print $input->header;
-#check no items attached
-my $count=C4::Acquisitions::itemcount($biblio);
+# check no items attached
+my $count=C4::Biblio::itemcount($biblio);
 
 
 #print $count;