[Rt-commit] r2498 - rt/branches/QUEBEC-EXPERIMENTAL/html/Search/Elements

[clkao at bestpractical.com]

Author: clkao
Date: Wed Mar 23 04:03:02 2005
New Revision: 2498

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/html/Search/Elements/BuildFormatString
Log:
Don't html-escape loc() when building FormatString.

Modified: rt/branches/QUEBEC-EXPERIMENTAL/html/Search/Elements/BuildFormatString
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/html/Search/Elements/BuildFormatString	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/html/Search/Elements/BuildFormatString	Wed Mar 23 04:03:02 2005
@@ -211,7 +211,8 @@
 foreach my $field (@seen) {
     next unless $field;
     my $row = "'" . $field->{Prefix};
-    $row .= "__" . $m->interp->apply_escapes( $field->{Column}, 'h' ) . "__"
+    $row .= "__" . ($field->{Column} =~ m/\(/ ? $field->{Column} # func, don't escape
+		    : $m->interp->apply_escapes( $field->{Column}, 'h' )) . "__"
       unless ( $field->{Column} eq "<blank>" );
     $row .= $field->{Suffix} . "'";
     push( @format_string, $row );