Fix for bug 45784: URL field truncated at quote marks. Patch by

jake@acutex.net

diff --git a/bug_form.pl b/bug_form.pl
index 3fd71c99e5c6e936dba63f2add11432d1727a7ed..58f1b6cb2a468b9d3c012eef5e5861c4a566cd1a 100644 (file)
--- a/bug_form.pl
+++ b/bug_form.pl
@@ -161,7 +161,7 @@ if (scalar(@ccList) > 0) {
         "<INPUT TYPE=CHECKBOX NAME=removecc>Remove selected CCs<br>\n";
 }
 
-my $URL = $bug{'bug_file_loc'};
+my $URL = value_quote($bug{'bug_file_loc'});
 
 if (defined $URL && $URL ne "none" && $URL ne "NULL" && $URL ne "") {
     $URL = "<B><A HREF=\"$URL\">URL:</A></B>";
@@ -265,7 +265,7 @@ print "
   <TR>
     <TD ALIGN=\"RIGHT\">$URL
     <TD COLSPAN=7>
-      <INPUT NAME=bug_file_loc VALUE=\"$bug{'bug_file_loc'}\" SIZE=60></TD>
+      <INPUT NAME=bug_file_loc VALUE=\"" . value_quote($bug{'bug_file_loc'}) . "\" SIZE=60></TD>
   </TR><TR>
     <TD ALIGN=\"RIGHT\"><B>Summary:</B>
     <TD COLSPAN=7>