From 57c78bf9f0482116464226fac37ba0adf6ff4b13 Mon Sep 17 00:00:00 2001 From: "jocuri%softhome.net" <> Date: Thu, 9 Sep 2004 05:53:39 +0000 Subject: Patch for bug 254729: fix editproducts.cgi generated warnings in the error log when creating new products; patch by GavinS ; r=vladd, a=justdave. --- editproducts.cgi | 32 +++++++++++++++++--------------- 1 file changed, 17 insertions(+), 15 deletions(-) (limited to 'editproducts.cgi') diff --git a/editproducts.cgi b/editproducts.cgi index 873db1afc..4098274d0 100755 --- a/editproducts.cgi +++ b/editproducts.cgi @@ -434,23 +434,25 @@ if ($action eq 'new') { my $existing_product = TestProduct($product); - # Check for exact case sensitive match: - if ($existing_product eq $product) { - print "The product '$product' already exists. Please press\n"; - print "Back and try again.\n"; - PutTrailer($localtrailer); - exit; - } + if ($existing_product) { - # Next check for a case-insensitive match: - if (lc($existing_product) eq lc($product)) { - print "The new product '$product' differs from existing product "; - print "'$existing_product' only in case. Please press\n"; - print "Back and try again.\n"; - PutTrailer($localtrailer); - exit; - } + # Check for exact case sensitive match: + if ($existing_product eq $product) { + print "The product '$product' already exists. Please press\n"; + print "Back and try again.\n"; + PutTrailer($localtrailer); + exit; + } + # Next check for a case-insensitive match: + if (lc($existing_product) eq lc($product)) { + print "The new product '$product' differs from existing product "; + print "'$existing_product' only in case. Please press\n"; + print "Back and try again.\n"; + PutTrailer($localtrailer); + exit; + } + } my $version = trim($::FORM{version} || ''); -- cgit v1.2.3-24-g4f1b