3 #script to delete biblios
15 #print $input->header;
18 my $biblio=$input->param('biblio');
19 #print $input->header;
20 #check no items attached
21 my $count=C4::Acquisitions::itemcount($biblio);
27 print "This biblio has $count items attached, please delete them before deleting this biblio<p>
31 print $input->redirect("/catalogue/");