Changeset 16991

Timestamp:

2008-08-25T13:29:49+12:00 (16 years ago)

Author:

kjdon

Message:

fixed up a coupld of things to do with assoc files

File:

• gsdl/trunk/perllib/plugins/UnknownPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/UnknownPlugin.pm

@@ -139 +139 @@
 
     # The assocfilename is the url-encoded version of the utf8 filename
-    my $assoc_file = $self->{'doc_object'}->get_assocfile_from_sourcefile();
+    my $assoc_file = $doc_obj->get_assocfile_from_sourcefile();
 
     $doc_obj->associate_file($filename_full_path, $assoc_file, $mime_type, $section);
     $doc_obj->add_metadata ($section, "FileFormat", $file_format);
     $doc_obj->add_metadata ($section, "MimeType", $mime_type);
-    $doc_obj->add_metadata ($section, $assoc_field, $filename_full_path);
+    $doc_obj->add_metadata ($section, $assoc_field, $doc_obj->get_source());
     
     $doc_obj->add_metadata ($section, "srclink", 
-                "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[$assoc_field]\">");
+                "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">");
     $doc_obj->add_metadata ($section, "srcicon", "_".$self->{'srcicon'}."_");
     $doc_obj->add_metadata ($section, "/srclink", "</a>");