Changeset 11487 for trunk/gsdl
- Timestamp:
- 2006-03-27T13:57:22+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/gti.pl
r11452 r11487 1209 1209 my $chunk_key = $1; 1210 1210 $line =~ s/\s*$//; # Remove any nasty whitespace 1211 $line =~ s/<Updated date=\"\d?\d-\D\D\D-\d\d\d\d\"\/>$//; 1211 1212 1212 1213 # While there is still text of the string to go... … … 1236 1237 # Simple: just remove the Text tags 1237 1238 $chunk_text =~ s/^\s*<Text id=\"(.*?)\">(\s*)//; 1239 $chunk_text =~ s/<Updated date=\"\d?\d-\D\D\D-\d\d\d\d\"\/>$//; 1238 1240 $chunk_text =~ s/<\/Text>$//; 1239 1241 … … 1247 1249 1248 1250 # Check for an "Updated DD-MMM-YYYY" comment at the end of the chunk 1249 # !! TO DO 1251 if ($chunk_text =~ /<Updated date=\"(\d?\d-\D\D\D-\d\d\d\d)\"\/>$/i) { 1252 return $1; 1253 } 1250 1254 1251 1255 return undef; … … 1309 1313 print TARGET_FILE "<Text id=\"$chunk_key\">$target_file_chunk_text</Text>"; 1310 1314 if ($target_file_key_to_comment_date_mapping->{$chunk_key}) { 1311 # print TARGET_FILE " # Updated " . $target_file_key_to_comment_date_mapping->{$chunk_key};1315 print TARGET_FILE "<Updated date=\"" . $target_file_key_to_comment_date_mapping->{$chunk_key} . "\"\/>"; 1312 1316 } 1313 1317 print TARGET_FILE "\n";
Note:
See TracChangeset
for help on using the changeset viewer.