Changeset 16991


Ignore:
Timestamp:
2008-08-25T13:29:49+12:00 (13 years ago)
Author:
kjdon
Message:

fixed up a coupld of things to do with assoc files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/UnknownPlugin.pm

    r16961 r16991  
    139139
    140140    # The assocfilename is the url-encoded version of the utf8 filename
    141     my $assoc_file = $self->{'doc_object'}->get_assocfile_from_sourcefile();
     141    my $assoc_file = $doc_obj->get_assocfile_from_sourcefile();
    142142
    143143    $doc_obj->associate_file($filename_full_path, $assoc_file, $mime_type, $section);
    144144    $doc_obj->add_metadata ($section, "FileFormat", $file_format);
    145145    $doc_obj->add_metadata ($section, "MimeType", $mime_type);
    146     $doc_obj->add_metadata ($section, $assoc_field, $filename_full_path);
     146    $doc_obj->add_metadata ($section, $assoc_field, $doc_obj->get_source());
    147147   
    148148    $doc_obj->add_metadata ($section, "srclink",
    149                 "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[$assoc_field]\">");
     149                "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">");
    150150    $doc_obj->add_metadata ($section, "srcicon", "_".$self->{'srcicon'}."_");
    151151    $doc_obj->add_metadata ($section, "/srclink", "</a>");
Note: See TracChangeset for help on using the changeset viewer.