[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 {
  
#------------------------------------------------------------------------------------------------------------------------------