Changeset 16799 for gsdl/trunk/perllib
- Timestamp:
- 2008-08-14T20:18:50+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/HTMLPlugin.pm
r16769 r16799 710 710 my ($tailname,$dirname,$suffix) = &File::Basename::fileparse($file, "\\.[^\\.]+\$"); 711 711 my $utf8_file = $self->filename_to_utf8_metadata($file); 712 # $utf8_file = &unicode::url_encode($utf8_file);713 712 714 713 my $web_url = "http://"; … … 718 717 $web_url = $web_url.$utf8_file; 719 718 } 719 # URL encode this in unison with web_url since database lookup via Java code does not handle utf8-encoded keys 720 $web_url = &unicode::url_encode($web_url); 720 721 # print STDERR "#### weburl: $web_url\n"; 721 722 … … 1079 1080 if (($rl == 0) || ($filename =~ m/$self->{'process_exp'}/) || 1080 1081 ($href =~ m/\/$/) || ($href =~ m/^(mailto|news|gopher|nntp|telnet|javascript):/i)) { 1081 &ghtml::urlsafe ($href); 1082 # URL encode this in unison with web_url since database lookup via Java code does not handle utf8-encoded keys 1083 # No longer need to &ghtml::urlsafe($href) for special characters, since the entire thing is going to be URL-encoded 1084 $href = &unicode::url_encode($href); 1082 1085 return $front . "_httpextlink_&rl=" . $rl . "&href=" . $href . $hash_part . $back; 1083 1086 } else {
Note:
See TracChangeset
for help on using the changeset viewer.