Changeset 11448
- Timestamp:
- 2006-03-21T15:17:35+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/gti.pl
r11447 r11448 461 461 } 462 462 $source_file_chunk_text =~ s/\n$//; # Strip the extra newline character added 463 $source_file_chunk_text = &unmake_text_xml_safe($source_file_chunk_text); 463 464 464 465 &log_message("Source file key: $chunk_key"); … … 479 480 } 480 481 $target_file_chunk_text =~ s/\n$//; # Strip the extra newline character added 482 $target_file_chunk_text = &unmake_text_xml_safe($target_file_chunk_text); 481 483 482 484 &log_message("Target file key: $chunk_key"); … … 791 793 { 792 794 my $text = shift(@_); 793 $text =~ s/\&/\&\; /g;795 $text =~ s/\&/\&\;amp\;/g; 794 796 $text =~ s/</\<\;/g; 795 797 $text =~ s/>/\>\;/g; 798 return $text; 799 } 800 801 802 sub unmake_text_xml_safe 803 { 804 my $text = shift(@_); 805 $text =~ s/\<\;/</g; 806 $text =~ s/\>\;/>/g; 807 $text =~ s/\&\;/\&/g; 796 808 return $text; 797 809 }
Note:
See TracChangeset
for help on using the changeset viewer.