From 415a5d128205e8d6b6749f962cf25c81316389f9 Mon Sep 17 00:00:00 2001
From: "jake%acutex.net" <>
Date: Sat, 1 Sep 2001 06:51:35 +0000
Subject: Fix for bug 42810 - Bugzilla would choke if your product name
 contained a ' mark. Patch by Christian Reis <kiko@async.com.br> r=
 justdave@syndicomm.com, caillon@returnzero.com

---
 globals.pl | 2 +-
 query.cgi  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/globals.pl b/globals.pl
index dcfbce883..af3c26a3d 100644
--- a/globals.pl
+++ b/globals.pl
@@ -409,7 +409,7 @@ sub GenerateCode {
         $result = "";
         foreach my $k (sort { uc($a) cmp uc($b)} eval("keys $name")) {
             $result .= GenerateCode("\$" . substr($name, 1) .
-                                    "{'" . $k . "'}");
+                                    "{" . PerlQuote($k) . "}");
         }
         return $result;
     } else {
diff --git a/query.cgi b/query.cgi
index 1013b7af0..10b644b63 100755
--- a/query.cgi
+++ b/query.cgi
@@ -347,7 +347,7 @@ sub make_js_array {
     foreach my $p ( @prods ) {
         # join each element with a "," case-insensitively alpha sorted
         if ( $data{$p} ) {
-            $ret .= $arr."['$p'] = [";
+            $ret .= $arr."[".SqlQuote($p)."] = [";
             # the SqlQuote() protects our 's.
             my @tmp = map( SqlQuote( $_ ), @{ $data{$p} } );
             # do the join on a sorted, quoted list
-- 
cgit v1.2.3-24-g4f1b