Changeset 16997 for gsdl/trunk/perllib
- Timestamp:
- 2008-08-25T16:01:32+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/BasePlugin.pm
r16995 r16997 796 796 $doc_obj->add_utf8_metadata($top_section, "FileSize", (-s $filename_full_path)); 797 797 798 # sets the UTF8 filename (Source) for display and sets the url ref to URL encoded version 799 # of the UTF8 filename (SourceFile) for generated files 798 800 $self->set_Source_metadata($doc_obj, $filename_no_path); 799 801 … … 992 994 foreach my $gaf (@{$metadata->{$field}}) { 993 995 my ($full_filename,$mimetype) = ($gaf =~ m/^(.*):(.*):$/); 994 my ($tail_filename) = ($full_filename =~ /^.*[\/\\](.+?)$/); 996 #my ($tail_filename) = ($full_filename =~ /^.*[\/\\](.+?)$/); 997 my $tail_filename = $doc_obj->get_assocfile_from_sourcefile(); 995 998 my $filename = $full_filename; 996 999 $doc_obj->associate_file($full_filename,$tail_filename,$mimetype);
Note:
See TracChangeset
for help on using the changeset viewer.