Changeset 13543


Ignore:
Timestamp:
2007-01-08T16:44:31+13:00 (15 years ago)
Author:
shaoqun
Message:

fixed the bug that cause the server couldn't locate the file which is stored a subdirectory

Location:
trunk/gsdl/perllib/plugins
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/OggVorbisPlug.pm

    r13269 r13543  
    112112    # replace spaces in filename with %20 in url for metadata entry
    113113    my $url = $file;
    114     $url =~ s/ /%20/g;
     114    ##$url =~ s/ /%20/g;
     115
    115116    # Source (filename) to be consistent with other plugins
    116117    $doc_obj->add_metadata ($section, "Source", $url);
  • trunk/gsdl/perllib/plugins/RealMediaPlug.pm

    r12270 r13543  
    105105    my $top_section = $doc_obj->get_top_section();
    106106
    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         
    108110    my $url = $file;
    109     $url =~ s/ /%20/g;
     111 
    110112    # Source (filename) to be consistent with other plugins
    111113    $doc_obj->add_metadata($top_section, "Source", $url);
    112 
     114 
     115 
    113116    my $text = "";
    114117    my $real_media = rm::Header::PurePerl->new($filename);
Note: See TracChangeset for help on using the changeset viewer.