Changeset 30562 for main/trunk/greenstone2/bin/script
- Timestamp:
- 2016-06-02T19:19:53+12:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/gti.pl
r30548 r30562 1422 1422 $chunk_text =~ s/^\"//; 1423 1423 $chunk_text =~ s/\"$//; 1424 }1425 1426 # No, so it must be a text macro1427 else {1424 } 1425 1426 # No, so it must be a text macro 1427 else { 1428 1428 # Remove macro key 1429 1429 $chunk_text =~ s/^_([^_]+)_(\s*)//; 1430 1430 1431 1431 # Remove language specifier 1432 $chunk_text =~ s/^\[l= .*\](\s*)//;1432 $chunk_text =~ s/^\[l=[^\]]*\](\s*)//; # only remove until first closing square bracket, ] 1433 1433 1434 1434 # Remove braces enclosing text 1435 1435 $chunk_text =~ s/^{(\s*)((.|\n)*)}(\s*)(\#.+\s*)?/$2/; 1436 }1437 1438 return $chunk_text;1436 } 1437 1438 return $chunk_text; 1439 1439 } 1440 1440
Note:
See TracChangeset
for help on using the changeset viewer.