Changeset 6214 for trunk

Timestamp:

2003-12-10T17:05:57+13:00 (20 years ago)

Author:

mdewsnip

Message:

Added David's fixes for spaces in filenames and setting srclink metadata.

File:

• trunk/gsdl/perllib/plugins/UnknownPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/UnknownPlug.pm

@@ -136 +136 @@
     # }
 
-    # Escape spaces in the filename
-    $filename =~ s/ /%20/g;
-    $file =~ s/ /%20/g;
+    # Add the image metadata
+    my $url = $file;
+    $url =~ s/ /%20/g;
 
     # Add the file as an associated file ...
@@ -147 +147 @@
     $doc_obj->associate_file($filename, $file, $mime_type, $section);
     $doc_obj->add_metadata ($section, $assoc_field, $file);
+
+    
+    $doc_obj->add_metadata ($section, "srclink", 
+                "<a href=_httpcollection_/index/assoc/[assocfilepath]/[$assoc_field]>");
+    $doc_obj->add_metadata ($section, "/srclink", "</a>");
     
     return 1;