Changeset 22663
- Timestamp:
- 2010-08-18T10:50:18+12:00 (14 years ago)
- Location:
- main/trunk/greenstone2/perllib/plugins
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
r22652 r22663 1140 1140 1141 1141 $doc_obj->associate_file($filename, $assocfilename, undef, $cursection); 1142 $doc_obj->add_utf8_metadata ($cursection, "srclink_file", "[SourceFile]");1142 $doc_obj->add_utf8_metadata ($cursection, "srclink_file", $doc_obj->get_sourcefile()); 1143 1143 } 1144 1144 -
main/trunk/greenstone2/perllib/plugins/ConvertBinaryFile.pm
r22654 r22663 486 486 my $srclink_filename = "doc.$doc_ext"; 487 487 if ($self->{'keep_original_filename'} == 1) { 488 $srclink_filename = "[SourceFile]";488 $srclink_filename = $doc_obj->get_sourcefile(); 489 489 } 490 490 $doc_obj->add_utf8_metadata ($cursection, "srcicon", "_icon".$doc_ext."_"); -
main/trunk/greenstone2/perllib/plugins/ImageConverter.pm
r22658 r22663 243 243 } 244 244 245 $doc_obj->add_metadata ($section, "srclink_file", "[Image]");245 $doc_obj->add_metadata ($section, "srclink_file", $url_to_filename_no_path); 246 246 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/$assocfilemeta/[srclink_file]\" width=\"[ImageWidth]\" height=\"[ImageHeight]\">"); 247 247 -
main/trunk/greenstone2/perllib/plugins/ImagePlugin.pm
r22658 r22663 131 131 $doc_obj->associate_file($filename_full_path, $assoc_file, "", $section); 132 132 133 $doc_obj->add_metadata ($section, "srclink_file", "[SourceFile]");133 $doc_obj->add_metadata ($section, "srclink_file", $doc_obj->get_sourcefile()); 134 134 # We don't know the size of the image, but the browser should display it at full size 135 135 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[srclink_file]\">"); -
main/trunk/greenstone2/perllib/plugins/MP3Plugin.pm
r22655 r22663 267 267 268 268 $doc_obj->add_metadata ($section, "srcicon", "_iconmp3_"); 269 $doc_obj->add_metadata ($section, "srclink_file", "[srcurl]");269 $doc_obj->add_metadata ($section, "srclink_file", $assoc_url); 270 270 my $applet_metadata = $self->{'applet_metadata'}; 271 271 if (defined $applet_metadata && $applet_metadata ) { -
main/trunk/greenstone2/perllib/plugins/MediainfoOGVPlugin.pm
r22656 r22663 145 145 $doc_obj->add_utf8_metadata ($section, $assoc_field, $doc_obj->get_source()); # Source metadata is already in utf8 146 146 147 $doc_obj->add_metadata ($section, "srclink_file", "[SourceFile]");147 $doc_obj->add_metadata ($section, "srclink_file", $doc_obj->get_sourcefile()); 148 148 $doc_obj->add_metadata ($section, "srcicon", "_iconogg_"); 149 149 -
main/trunk/greenstone2/perllib/plugins/OggVorbisPlugin.pm
r22655 r22663 137 137 138 138 $doc_obj->add_metadata ($top_section, "FileFormat", "OggVorbis"); 139 $doc_obj->add_metadata ($top_section, "srclink_file", "[SourceFile]");139 $doc_obj->add_metadata ($top_section, "srclink_file", $doc_obj->get_sourcefile()); 140 140 $doc_obj->add_metadata ($top_section, "srcicon", "_iconogg_"); 141 141 -
main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm
r22655 r22663 262 262 263 263 #setup to doclink thingi 264 $doc_obj->add_metadata ("", "srclink_file", "[SourceFile]");264 $doc_obj->add_metadata ("", "srclink_file", $doc_obj->get_sourcefile()); 265 265 $doc_obj->add_utf8_metadata ("", "srcicon", "<img border=\"0\" align=\"absmiddle\" src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/thumbnail.png\" alt=\"View the Open document\" title=\"View the Open document\">"); 266 266 $self->set_Source_metadata($doc_obj, $file_only); -
main/trunk/greenstone2/perllib/plugins/RealMediaPlugin.pm
r22655 r22663 108 108 $doc_obj->add_metadata($top_section, "FileFormat", "RealMedia"); 109 109 110 $doc_obj->add_metadata ($top_section, "srclink_file", "[SourceFile]");110 $doc_obj->add_metadata ($top_section, "srclink_file", $doc_obj->get_sourcefile()); 111 111 $doc_obj->add_metadata($top_section, "srcicon", "_iconrmvideo_"); 112 112 -
main/trunk/greenstone2/perllib/plugins/UnknownPlugin.pm
r22655 r22663 145 145 $doc_obj->add_metadata ($section, "MimeType", $mime_type); 146 146 $doc_obj->add_utf8_metadata ($section, $assoc_field, $doc_obj->get_source()); # Source metadata is already in utf8 147 $doc_obj->add_metadata ($section, "srclink_file", "[SourceFile]");147 $doc_obj->add_metadata ($section, "srclink_file", $doc_obj->get_sourcefile()); 148 148 $doc_obj->add_metadata ($section, "srcicon", "_".$self->{'srcicon'}."_"); 149 149
Note:
See TracChangeset
for help on using the changeset viewer.