Changeset 18409 for gsdl

Timestamp:

2009-01-21T16:27:41+13:00 (15 years ago)

Author:

ak19

Message:

Need to replace character ref for underscore with underscore again for the doc.xml's URL metadata, otherwise links in HTML files referring to other HTML files whose filenames contain underscores won't work.

File:

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

gsdl/trunk/perllib/plugins/HTMLPlugin.pm

@@ -710 +710 @@
     my ($tailname,$dirname,$suffix) = &File::Basename::fileparse($file, "\\.[^\\.]+\$");
     my $utf8_file = $self->filename_to_utf8_metadata($file);
+    $utf8_file =~ s/&\#095;/_/g;
     my $web_url = "http://";
     if(defined $dirname) { # local directory