Changeset 13544 for trunk

Timestamp:

2007-01-08T16:46:57+13:00 (17 years ago)

Author:

shaoqun

Message:

it seems that the replacement of spaces with %20 is unnecessary, so commented it out

Location:

trunk/gsdl/perllib/plugins

Files:

• PagedImgPlug.pm (modified) (1 diff)
• UnknownPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -352 +352 @@
     my $url =$file; # the new file name prepared for a url
     my $srcurl = $srcfile;
-    $url =~ s/ /%20/g;
-    $srcurl =~ s/ /%20/g;
+    ##$url =~ s/ /%20/g;
+    ##$srcurl =~ s/ /%20/g;
     
     $doc_obj->add_metadata ($section, "Image", $url);

trunk/gsdl/perllib/plugins/UnknownPlug.pm

@@ -136 +136 @@
     return 0 if ($file eq "" || $filename eq "");
 
-    # Add the image metadata
+    
     my $url = $file;
-    $url =~ s/ /%20/g;
+    ##$url =~ s/ /%20/g;
 
     # Add the file as an associated file ...