Changeset 19361
- Timestamp:
- 2009-05-11T13:01:13+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ImagePlugin.pm
r18320 r19361 112 112 my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file); 113 113 114 if ($self->{'image_conversion_available'} == 1) { 114 if ($self->{'image_conversion_available'} == 1) 115 { 115 116 my $utf8_filename_no_path = $self->filepath_to_utf8($filename_no_path); 116 117 my $url_encoded_filename = &util::rename_file($utf8_filename_no_path, $self->{'file_rename_method'}); 117 118 $self->generate_images($filename_full_path, $url_encoded_filename, $doc_obj, $doc_obj->get_top_section()); # should we check the return value? 118 } else { 119 } 120 else 121 { 119 122 if ($gli) { 120 123 &gsprintf(STDERR, "<Warning p='ImagePlugin' r='{ImageConverter.noconversionavailable}: {ImageConverter.".$self->{'no_image_conversion_reason'}."}'>"); … … 128 131 $doc_obj->add_metadata ($section, "srclink", "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"); 129 132 $doc_obj->add_metadata ($section, "/srclink", "</a>"); 130 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\" width=\"100\">"); 133 # We don't know the size of the image, but the browser should display it at full size 134 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"); 131 135 136 # Add a fake thumbnail icon with the full-sized image scaled down by the browser 137 $doc_obj->add_metadata ($section, "thumbicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\" width=\"" . $self->{'thumbnailsize'} . "\">"); 132 138 } 133 139 #we have no text - adds dummy text and NoText metadata
Note:
See TracChangeset
for help on using the changeset viewer.