Don't quote when not wanted!

diff --git a/utils.pl b/utils.pl
index 0977e41c16adb5ee28ced399903ba39eda94de2c..a665b95b33be6a33577e9dc6322a83ebbaba6dd4 100644 (file)
--- a/utils.pl
+++ b/utils.pl
@@ -106,9 +106,11 @@ sub getvar ($) {
 sub getvar_mightquote ($$) {
   my ($vn, $quote_html) = @_;
   my $v = getvar($vn);
 sub getvar_mightquote ($$) {
   my ($vn, $quote_html) = @_;
   my $v = getvar($vn);

-  $v =~ s/\&/&/g;  
-  $v =~ s/\</&lt;/g;  
-  $v =~ s/\>/&gt;/g;  
+  if ($quote_html) {
+    $v =~ s/\&/&amp;/g;
+    $v =~ s/\</&lt;/g;
+    $v =~ s/\>/&gt;/g;
+  }

   return $v;
 }
 
   return $v;
 }