Changeset 12272

Timestamp:

2006-07-20T16:52:07+12:00 (18 years ago)

Author:

mdewsnip

Message:

Moved some code out of a loop that should only be done once.

File:

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

trunk/gsdl/perllib/lucenebuildproc.pm

@@ -240 +240 @@
         foreach my $item (@metadata_list) {
             $new_text .= "$parastarttag<$shortname index=\"1\">$item</$shortname>$paraendtag\n";
-            # remove entities
-            $new_text =~ s/&\w{1,10};//g; 
-            # remove &
-            $new_text =~ s/&//g;
-        }
+        }
+
+        # remove entities
+        $new_text =~ s/&\w{1,10};//g; 
+        # remove &
+        $new_text =~ s/&//g;
         }