[Koha-devel] CVS: koha delbiblio.pl,1.1.1.1,1.2
Chris Cornack
rangi at users.sourceforge.net
Tue Feb 27 23:08:59 CET 2001
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/");
+ }
More information about the Koha-devel
mailing list