Changeset 30681 for main/trunk/greenstone2/bin/script/gti.pl
- Timestamp:
- 2016-08-05T19:22:05+12:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/gti.pl
r30582 r30681 917 917 { 918 918 my ($file_lines, $key_to_line_mapping, $translation_file_type) = @_; 919 920 &log_message("@@@ HELLO WORLD"); 921 919 922 920 923 my %key_to_text_mapping = (); … … 930 933 # Map from chunk key to text 931 934 eval "\$key_to_text_mapping{\${chunk_key}} = &import_chunk_from_${translation_file_type}(\$chunk_text)"; 935 936 #if($chunk_key =~ m/document\\/) { 937 #&log_message("Submission source: $source_file_key_to_submission_mapping{$chunk_key}"); 938 #&log_message("@@@ chunk key: $chunk_key"); 939 #} 940 932 941 } 933 942 … … 1608 1617 1609 1618 # Line contains a dictionary string 1610 if ($line =~ /^(\S+ ?)[:|=](.*)$/) {1619 if ($line =~ /^(\S+)[:|=](.*)$/) { 1611 1620 $chunk_key = $1; 1612 1621 $startindex = $i; … … 1633 1642 1634 1643 # Simple: just remove string key 1635 $chunk_text =~ s/^(\S+ ?)[:|=](\s*)//s;1644 $chunk_text =~ s/^(\S+)[:|=](\s*)//s; 1636 1645 $chunk_text =~ s/(\s*)$//s; # Remove any nasty whitespace, carriage returns etc. 1637 1646 $chunk_text =~ s/(\s*)\#\s+Updated\s+(\d?\d-\D\D\D-\d\d\d\d.*)\s*$//is;
Note:
See TracChangeset
for help on using the changeset viewer.