[Koha-cvs] koha/cataloguing addbiblio.pl [rel_3_0]

Tue Jan 16 16:00:33 CET 2007

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	paul poulain <tipaul>	07/01/16 15:00:33

Modified files:
	cataloguing    : addbiblio.pl 

Log message:
	some warnings in case of an error

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/addbiblio.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.14.2.21&r2=1.14.2.22

Patches:
Index: addbiblio.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/addbiblio.pl,v
retrieving revision 1.14.2.21
retrieving revision 1.14.2.22
diff -u -b -r1.14.2.21 -r1.14.2.22

--- addbiblio.pl	9 Jan 2007 08:35:04 -0000	1.14.2.21
+++ addbiblio.pl	16 Jan 2007 15:00:33 -0000	1.14.2.22
@@ -1,6 +1,6 @@
 #!/usr/bin/perl 
 
-# $Id: addbiblio.pl,v 1.14.2.21 2007/01/09 08:35:04 tipaul Exp $
+# $Id: addbiblio.pl,v 1.14.2.22 2007/01/16 15:00:33 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -583,10 +583,10 @@
 } elsif ($op eq "delete") {
 #-----------------------------------------------------------------------------
     my $error = &DelBiblio($biblionumber);
-    if ($error != 1) {
-        print "Content-Type: text/html\n\n$error";
-    }
-    else {
+    if ($error) {
+        warn "ERROR when DELETING BIBLIO $biblionumber : $error";
+        print "Content-Type: text/html\n\n<html><body><h1>ERROR when DELETING BIBLIO $biblionumber : $error</h1></body></html>";
+    } else {
     print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=/cgi-bin/koha/catalogue/search.pl?type=intranet\"></html>";
     }
     exit;



