Changeset 11487 for trunk/gsdl

Timestamp:

2006-03-27T13:57:22+12:00 (18 years ago)

Author:

mdewsnip

Message:

Added <Updated date="..."> comments to the greenstone XML files, to support updating.

File:

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

trunk/gsdl/bin/script/gti.pl

@@ -1209 +1209 @@
         my $chunk_key = $1;
         $line =~ s/\s*$//;  # Remove any nasty whitespace
+        $line =~ s/<Updated date=\"\d?\d-\D\D\D-\d\d\d\d\"\/>$//;
 
         # While there is still text of the string to go...
@@ -1236 +1237 @@
     # Simple: just remove the Text tags
     $chunk_text =~ s/^\s*<Text id=\"(.*?)\">(\s*)//;
+    $chunk_text =~ s/<Updated date=\"\d?\d-\D\D\D-\d\d\d\d\"\/>$//;
     $chunk_text =~ s/<\/Text>$//;
 
@@ -1247 +1249 @@
 
     # Check for an "Updated DD-MMM-YYYY" comment at the end of the chunk
-    # !! TO DO
+    if ($chunk_text =~ /<Updated date=\"(\d?\d-\D\D\D-\d\d\d\d)\"\/>$/i) {
+    return $1;
+    }
 
     return undef;
@@ -1309 +1313 @@
     print TARGET_FILE "<Text id=\"$chunk_key\">$target_file_chunk_text</Text>";
     if ($target_file_key_to_comment_date_mapping->{$chunk_key}) {
-        # print TARGET_FILE "  # Updated " . $target_file_key_to_comment_date_mapping->{$chunk_key};
+        print TARGET_FILE "<Updated date=\"" . $target_file_key_to_comment_date_mapping->{$chunk_key} . "\"\/>";
     }
     print TARGET_FILE "\n";