Changeset 16735

Timestamp:

2008-08-13T10:58:46+12:00 (16 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.

File:

• gsdl/trunk/perllib/plugins/HTMLPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/HTMLPlugin.pm

@@ -672 +672 @@
     # links, so even if 'file_is_url' is off, still need to store info
 
+    my ($tailname,$dirname,$suffix) = &File::Basename::fileparse($file, "\\.[^\\.]+\$");
     my $utf8_file = $self->filename_to_utf8_metadata($file);
-    my $web_url = "http://$utf8_file";
+    my $web_url = "http://";
+    if(defined $dirname) { # local directory
+    $web_url = $web_url.$dirname.$utf8_file; 
+    } else {
+    $web_url = $web_url.$utf8_file;
+    }
     $doc_obj->add_utf8_metadata($cursection, "URL", $web_url);