From 0ed8d17388e304fe1d32f78d71a88597929236e5 Mon Sep 17 00:00:00 2001 From: "jouni%heikniemi.net" <> Date: Tue, 20 Jul 2004 12:06:18 +0000 Subject: Bug 86051: Enable changing product name case. Patch by GavinS r=jouni, a=justdave --- editproducts.cgi | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) (limited to 'editproducts.cgi') diff --git a/editproducts.cgi b/editproducts.cgi index c539465af..17bcfd703 100755 --- a/editproducts.cgi +++ b/editproducts.cgi @@ -306,13 +306,27 @@ if ($action eq 'new') { PutTrailer($localtrailer); exit; } - if (TestProduct($product)) { + + 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; } + # 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} || ''); if ($version eq '') { @@ -1190,7 +1204,9 @@ if ($action eq 'update') { PutTrailer($localtrailer); exit; } - if (TestProduct($product)) { + + if (lc($product) ne lc($productold) && + TestProduct($product)) { print "Sorry, product name '$product' is already in use."; SendSQL("UNLOCK TABLES"); PutTrailer($localtrailer); -- cgit v1.2.3-24-g4f1b