Changeset 20778 for gsdl/trunk
- Timestamp:
- 2009-10-05T15:53:42+13:00 (15 years ago)
- Location:
- gsdl/trunk/perllib/plugins
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/BasePlugin.pm
r20605 r20778 1050 1050 $tail_filename = &util::rename_file($tail_filename, $self->{'file_rename_method'}); 1051 1051 $doc_obj->associate_file($full_filename,$tail_filename,$mimetype); 1052 $doc_obj->associate_source_file($full_filename); 1052 1053 # If the filename is url_encoded, we need to encode the % signs 1053 1054 # in the filename, so that it works in a url … … 1112 1113 1113 1114 if (-e $filename) { 1115 $doc_obj->associate_source_file($filename); 1114 1116 $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg"); 1115 1117 $doc_obj->add_utf8_metadata($top_section, "hascover", 1); … … 1118 1120 $upper_filename =~ s/jpg$/JPG/; 1119 1121 if (-e $upper_filename) { 1122 $doc_obj->associate_source_file($upper_filename); 1120 1123 $doc_obj->associate_file($upper_filename, "cover.jpg", 1121 1124 "image/jpeg"); -
gsdl/trunk/perllib/plugins/HTMLPlugin.pm
r20774 r20778 757 757 return "_httpextlink_&rl=" . $rl . "&href=" . $href . $hash_part; 758 758 } 759 # add the original image file as a source file 760 $doc_obj->associate_source_file($filename); 759 761 if ($self->{'rename_assoc_files'}) { 760 762 if (defined $self->{'aux_files'}->{$href}) { -
gsdl/trunk/perllib/plugins/ISISPlugin.pm
r17479 r20778 214 214 my $outhandle = $self->{'outhandle'}; 215 215 216 # store the auxiliary files so we know which ones were used 217 # (mst file becomes the source file) 218 $doc_obj->associate_source_file($self->{'fdt_file_path'}); 219 $doc_obj->associate_source_file($self->{'xrf_file_path'}); 220 216 221 my $section = $doc_obj->get_top_section(); 217 222 my $fdt_mapping = $self->{'fdt_mapping'}; -
gsdl/trunk/perllib/plugins/PagedImagePlugin.pm
r19999 r20778 394 394 my $self = shift(@_); 395 395 my ($filename_full_path, $filename_no_path, $doc_obj, $section, $rotate) = @_; 396 # check the filenames 397 return 0 if ($filename_no_path eq "" || !-f $filename_full_path); 398 399 # remember that this image file was one of our source files 400 $doc_obj->associate_source_file($filename_full_path); 401 396 402 # do rotation 397 403 if ((defined $rotate) && ($rotate eq "r")) { 398 # check the filenames399 return 0 if ($filename_no_path eq "" || !-f $filename_full_path);400 401 404 # we get a new temporary file which is rotated 402 405 $filename_full_path = $self->rotate_image($filename_full_path); … … 617 620 } 618 621 622 # remember that this text file was one of our source files 623 $doc_obj->associate_source_file($filename_full_path); 619 624 # Do encoding stuff 620 625 my ($language, $encoding) = $self->textcat_get_language_encoding ($filename_full_path);
Note:
See TracChangeset
for help on using the changeset viewer.