Changeset 13828 for trunk

Timestamp:

2007-01-30T17:31:46+13:00 (17 years ago)

Author:

kjdon

Message:

trying to tidy up gs2 links in display items

File:

• trunk/gsdl3/bin/script/convert_coll_from_gs2.pl (modified) (5 diffs)

trunk/gsdl3/bin/script/convert_coll_from_gs2.pl

@@ -29 +29 @@
     print STDOUT "   -defaultlang        The language that is considered the default (for display text etc). defaults to 'en'\n\n";
 }
+
 
 sub main {
@@ -154 +155 @@
             $value = format_icon_value($value);
             } else {
-            $value = tidy_up_metadata($value);
+            $value = tidy_up_display_item($value);
             }
             &output_display($collwriter, $name, $lang, $value);
@@ -518 +519 @@
     my ($value) = @_;
     if ($value =~ /^_/) {
-    my ($newvalue) = $value =~ /\/([^\/]*)$/;
+    my ($newvalue) = $value =~ /images\/(.*)$/;
     if ($newvalue) {
         return $newvalue;
@@ -526 +527 @@
 }
 
-sub tidy_up_metadata {
+sub tidy_up_display_item {
     my ($value) = @_;
     # remove \n
@@ -534 +535 @@
     # replace \" with "
     $value =~ s/\\\"/\"/g;
+    # replace _httpprefix_ with _httpsite_
+    $value =~ s/_httpprefix_/_httpsite_/;
+    $value =~ s/_gwcgi_//;
+    $value =~ s/[a-z][a-z]?=_cgiarg[a-z][a-z]?_&?//;
     return $value;
 }