3 #script to delete biblios
17 #print $input->header;
19 $flagsrequired->{editcatalogue}=1;
20 my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
23 my $biblio=$input->param('biblio');
24 #print $input->header;
25 #check no items attached
26 my $count=C4::Acquisitions::itemcount($biblio);
31 print $input->header(-cookie => $cookie);
32 print "This biblio has $count items attached, please delete them before deleting this biblio<p>
36 print $input->redirect("/catalogue/");