Changeset 16953 for gsdl/trunk/perllib/plugins
- Timestamp:
- 2008-08-21T16:32:06+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/UnknownPlugin.pm
r16392 r16953 138 138 my $assoc_field = $self->{'assoc_field'} || "unknown_file"; 139 139 140 $doc_obj->associate_file($filename_full_path, $filename_no_path, $mime_type, $section); 140 # The assocfilename is the url-encoded version of the utf8 filename 141 my $assoc_file = $doc_object->get_assocfile_from_sourcefile(); 142 143 $doc_obj->associate_file($filename_full_path, $assoc_file, $mime_type, $section); 141 144 $doc_obj->add_metadata ($section, "FileFormat", $file_format); 142 145 $doc_obj->add_metadata ($section, "MimeType", $mime_type);
Note:
See TracChangeset
for help on using the changeset viewer.