[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.31,1.32

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv21738/acqui.simple

Modified Files:
	addbiblio.pl 
Log Message:
bugfix for #384

1st draft for MARC biblio deletion.
Still does not work well, but at least, Biblio.pm compiles & it should'nt break too many things
(Note the trash in the MARCdetail, but don't use it, please :-) )

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -r1.31 -r1.32
*** addbiblio.pl	6 Aug 2003 12:37:32 -0000	1.31
--- addbiblio.pl	6 Nov 2003 17:18:31 -0000	1.32
***************
*** 428,432 ****
--- 428,437 ----
  		oldbiblioitemnumtagsubfield => $oldbiblioitemnumtagsubfield,
  		oldbiblioitemnumber         => $oldbiblioitemnumber );
+ } elsif ($op eq "delete") {
  #------------------------------------------------------------------------------------------------------------------------------
+ 	&NEWdelbiblio($dbh,$bibid);
+ 	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=/cgi-bin/koha/search.marc/search.pl?type=intranet\"></html>";
+ 	exit;
+ #------------------------------------------------------------------------------------------------------------------------------#------------------------------------------------------------------------------------------------------------------------------
  } else {
  #------------------------------------------------------------------------------------------------------------------------------