[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/cataloguing addbiblio.pl [rel_3_0]
From: |
paul poulain |
Subject: |
[Koha-cvs] koha/cataloguing addbiblio.pl [rel_3_0] |
Date: |
Tue, 16 Jan 2007 15:00:33 +0000 |
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;
- [Koha-cvs] koha/cataloguing addbiblio.pl [rel_3_0],
paul poulain <=