Changeset 23759
- Timestamp:
- 2011-03-02T16:18:22+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
r23561 r23759 434 434 my $coverfile = $filename; 435 435 $coverfile =~ s/\.[^\\\/\.]+$/\.jpg/; 436 436 437 if (!&util::fd_exists($coverfile)) { 437 438 $coverfile =~ s/jpg$/JPG/; … … 961 962 # print STDERR "****** saving Source as: $url_encoded_filename\n"; 962 963 # } 963 964 964 965 # In the case of converted files and (generalized) exploded documents, there 966 # will already be a source filename => store as OrigSource before overriding 967 my $orig_source = $doc_obj->get_metadata_element ($this_section, "Source"); 968 if ((defined $orig_source) && ($orig_source !~ m/^\s*$/)) { 969 $doc_obj->set_utf8_metadata_element($this_section, "OrigSource", $orig_source); 970 } 971 965 972 # Source is the UTF8 display name - not necessarily the name of the file on the system 966 973 $doc_obj->set_utf8_metadata_element($this_section, "Source", $url_encoded_filename); 974 967 975 968 976 my $renamed_raw_file = &util::rename_file($raw_file, $self->{'file_rename_method'}); … … 1022 1030 1023 1031 # should we move this to read? What about secondary plugins? 1024 1032 my $pp_file = &util::prettyprint_file($base_dir,$file,$gli); 1025 1033 print STDERR "<Processing n='$file' p='$self->{'plugin_type'}'>\n" if ($gli); 1026 1034 print $outhandle "$self->{'plugin_type'} processing $pp_file\n"
Note:
See TracChangeset
for help on using the changeset viewer.