[Koha-devel] CVS: koha delbiblio.pl,1.1.1.1,1.2

[Chris Cornack]

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/");
+ }