Changeset 16991

Show
Ignore:
Timestamp:
25.08.2008 13:29:49 (11 years ago)
Author:
kjdon
Message:

fixed up a coupld of things to do with assoc files

Files:
1 modified

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>");