Changeset 16812 for gsdl/trunk/perllib/plugins/HTMLPlugin.pm
- Timestamp:
- 2008-08-15T13:57:21+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/HTMLPlugin.pm
r16799 r16812 717 717 $web_url = $web_url.$utf8_file; 718 718 } 719 # URL encode this in unison with web_url since database lookup via Java code does not handle utf8-encoded keys720 $web_url = &unicode::url_encode($web_url);721 719 # print STDERR "#### weburl: $web_url\n"; 722 720 … … 1080 1078 if (($rl == 0) || ($filename =~ m/$self->{'process_exp'}/) || 1081 1079 ($href =~ m/\/$/) || ($href =~ m/^(mailto|news|gopher|nntp|telnet|javascript):/i)) { 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); 1080 &ghtml::urlsafe ($href); 1085 1081 return $front . "_httpextlink_&rl=" . $rl . "&href=" . $href . $hash_part . $back; 1086 1082 } else {
Note:
See TracChangeset
for help on using the changeset viewer.