Changeset 13828
- Timestamp:
- 2007-01-30T17:31:46+13:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl3/bin/script/convert_coll_from_gs2.pl
r13228 r13828 29 29 print STDOUT " -defaultlang The language that is considered the default (for display text etc). defaults to 'en'\n\n"; 30 30 } 31 31 32 32 33 sub main { … … 154 155 $value = format_icon_value($value); 155 156 } else { 156 $value = tidy_up_ metadata($value);157 $value = tidy_up_display_item($value); 157 158 } 158 159 &output_display($collwriter, $name, $lang, $value); … … 518 519 my ($value) = @_; 519 520 if ($value =~ /^_/) { 520 my ($newvalue) = $value =~ / \/([^\/]*)$/;521 my ($newvalue) = $value =~ /images\/(.*)$/; 521 522 if ($newvalue) { 522 523 return $newvalue; … … 526 527 } 527 528 528 sub tidy_up_ metadata{529 sub tidy_up_display_item { 529 530 my ($value) = @_; 530 531 # remove \n … … 534 535 # replace \" with " 535 536 $value =~ s/\\\"/\"/g; 537 # replace _httpprefix_ with _httpsite_ 538 $value =~ s/_httpprefix_/_httpsite_/; 539 $value =~ s/_gwcgi_//; 540 $value =~ s/[a-z][a-z]?=_cgiarg[a-z][a-z]?_&?//; 536 541 return $value; 537 542 }
Note:
See TracChangeset
for help on using the changeset viewer.