Changeset 11447 for trunk/gsdl/bin/script/gti.pl

Timestamp:

2006-03-21T15:08:25+12:00 (18 years ago)

Author:

mdewsnip

Message:

Some fixes for greenstone XML files that I forgot to commit earlier :-(

File:

• trunk/gsdl/bin/script/gti.pl (modified) (3 diffs)

trunk/gsdl/bin/script/gti.pl

@@ -1194 +1194 @@
     if ($line =~ /^\s*<Text id=\"(.*?)\">/) {
         my $chunk_key = $1;
-        $line =~ s/\s*([^\\]\#[^\}]+)?$//;  # Remove any comments and nasty whitespace
+        $line =~ s/\s*$//;  # Remove any nasty whitespace
 
         # While there is still text of the string to go...
@@ -1204 +1204 @@
         }
         $line = $file_lines[$i];
-        $line =~ s/\s*([^\\]\#[^\}]+)?$//;  # Remove any comments and nasty whitespace
+        $line =~ s/\s*$//;  # Remove any nasty whitespace
         }
 
@@ -1221 +1221 @@
 
     # Simple: just remove the Text tags
-    $chunk_text =~ s/^\s*<Text .*id=\"(.*?)\".*?>(\s*)//;
+    $chunk_text =~ s/^\s*<Text id=\"(.*?)\">(\s*)//;
     $chunk_text =~ s/<\/Text>$//;