Changeset 16735

Show
Ignore:
Timestamp:
13.08.2008 10:58:46 (11 years ago)
Author:
ak19
Message:

When a directory of interlinking html files is dropped into GLI, adjusted web_url variable so that interlinking still works after the collection is built.

Files:
1 modified

Legend:

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

    r16638 r16735  
    672672    # links, so even if 'file_is_url' is off, still need to store info 
    673673 
     674    my ($tailname,$dirname,$suffix) = &File::Basename::fileparse($file, "\\.[^\\.]+\$"); 
    674675    my $utf8_file = $self->filename_to_utf8_metadata($file); 
    675     my $web_url = "http://$utf8_file"; 
     676    my $web_url = "http://"; 
     677    if(defined $dirname) { # local directory 
     678    $web_url = $web_url.$dirname.$utf8_file;  
     679    } else { 
     680    $web_url = $web_url.$utf8_file; 
     681    } 
    676682    $doc_obj->add_utf8_metadata($cursection, "URL", $web_url); 
    677683