- Timestamp:
- 2008-06-03T16:02:04+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/HTMLPlug.pm
r15838 r15841 669 669 # URL metadata (even invalid ones) are used to support internal 670 670 # links, so even if 'file_is_url' is off, still need to store info 671 671 672 $file = &BasPlug::filename_to_metadata($self, $file); # ensures filename is in UTF8 character encoding 672 673 my $web_url = "http://$file"; 673 $doc_obj->add_ metadata($cursection, "URL", $web_url);674 $doc_obj->add_utf8_metadata($cursection, "URL", $web_url); # will eventually ensure it is utf8 anyway 674 675 675 676 if ($self->{'file_is_url'}) { … … 1073 1074 1074 1075 my ($before_hash, $hash_part) = $link =~ /^([^\#]*)(\#?.*)$/; 1075 1076 1076 1077 $hash_part = "" if !defined $hash_part; 1077 1078 if (!defined $before_hash || $before_hash !~ /[\w\.\/]/) {
Note:
See TracChangeset
for help on using the changeset viewer.