[Koha-cvs] koha/acqui.simple addbiblio.pl [dev_week]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Joshua Ferraro <kados>	06/10/05 23:43:43

Modified files:
	acqui.simple   : addbiblio.pl 

Log message:
	allowing the error check to pass and redirect

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui.simple/addbiblio.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.52.2.40.2.9&r2=1.52.2.40.2.10

Patches:
Index: addbiblio.pl
===================================================================
RCS file: /sources/koha/koha/acqui.simple/Attic/addbiblio.pl,v
retrieving revision 1.52.2.40.2.9
retrieving revision 1.52.2.40.2.10
diff -u -b -r1.52.2.40.2.9 -r1.52.2.40.2.10
--- addbiblio.pl	4 Oct 2006 16:55:46 -0000	1.52.2.40.2.9
+++ addbiblio.pl	5 Oct 2006 23:43:43 -0000	1.52.2.40.2.10
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: addbiblio.pl,v 1.52.2.40.2.9 2006/10/04 16:55:46 oleonard Exp $
+# $Id: addbiblio.pl,v 1.52.2.40.2.10 2006/10/05 23:43:43 kados Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -575,7 +575,7 @@
 } elsif ($op eq "delete") {
 #------------------------------------------------------------------------------------------------------------------------------
 	my $error = &DelBiblio($dbh,$biblionumber);
-	if ($error) {
+	if ($error != 1) {
 		print "Content-Type: text/html\n\n$error";
 	}
 	else {