Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv22597 Modified Files: delbiblio.pl Log Message: Quick fix to stop ppl from being able to delete biblios that have items attached Index: delbiblio.pl =================================================================== RCS file: /cvsroot/koha/koha/delbiblio.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** delbiblio.pl 2000/12/19 23:45:51 1.1.1.1 --- delbiblio.pl 2001/02/27 22:08:57 1.2 *************** *** 17,21 **** my $biblio=$input->param('biblio'); ! delbiblio($biblio); print $input->redirect("/catalogue/"); --- 17,32 ---- my $biblio=$input->param('biblio'); + #print $input->header; + #check no items attached + my $count=C4::Acquisitions::itemcount($biblio); ! ! #print $count; ! if ($count > 0){ ! print $input->header; ! print "This biblio has $count items attached, please delete them before deleting this biblio<p> ! "; ! } else { ! #delbiblio($biblio); print $input->redirect("/catalogue/"); + }