Changeset 13543
- Timestamp:
- 2007-01-08T16:44:31+13:00 (17 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/OggVorbisPlug.pm
r13269 r13543 112 112 # replace spaces in filename with %20 in url for metadata entry 113 113 my $url = $file; 114 $url =~ s/ /%20/g; 114 ##$url =~ s/ /%20/g; 115 115 116 # Source (filename) to be consistent with other plugins 116 117 $doc_obj->add_metadata ($section, "Source", $url); -
trunk/gsdl/perllib/plugins/RealMediaPlug.pm
r12270 r13543 105 105 my $top_section = $doc_obj->get_top_section(); 106 106 107 # replace spaces in filename with %20 in url for metadata entry 107 #if there's a leading directory name, eat it... 108 $file =~ s/^.*[\/\\]//; 109 108 110 my $url = $file; 109 $url =~ s/ /%20/g;111 110 112 # Source (filename) to be consistent with other plugins 111 113 $doc_obj->add_metadata($top_section, "Source", $url); 112 114 115 113 116 my $text = ""; 114 117 my $real_media = rm::Header::PurePerl->new($filename);
Note:
See TracChangeset
for help on using the changeset viewer.