Changeset 16300 for gsdl/trunk/perllib/lucenebuildproc.pm

Timestamp:

2008-07-04T12:47:06+12:00 (16 years ago)

Author:

mdewsnip

Message:

Fixed another case where '<' and '>' characters in metadata weren't being escaped when producing the XML for indexing.

File:

• gsdl/trunk/perllib/lucenebuildproc.pm (modified) (1 diff)

gsdl/trunk/perllib/lucenebuildproc.pm

@@ -266 +266 @@
         }
         foreach my $item (@metadata_list) {
+            &ghtml::htmlsafe($item);
             $new_text .= "$parastarttag<$shortname index=\"1\">$item</$shortname>$paraendtag\n";
         }