add urlEncode for openUrl setter
This commit is contained in:
@@ -56,6 +56,7 @@ use GPUtils qw(GP_Import GP_Export);
|
|||||||
|
|
||||||
main::LoadModule('AMADCommBridge');
|
main::LoadModule('AMADCommBridge');
|
||||||
|
|
||||||
|
|
||||||
my $missingModul = '';
|
my $missingModul = '';
|
||||||
eval "use Encode qw(encode encode_utf8);1" or $missingModul .= 'Encode ';
|
eval "use Encode qw(encode encode_utf8);1" or $missingModul .= 'Encode ';
|
||||||
|
|
||||||
@@ -793,7 +794,7 @@ sub Set($$@) {
|
|||||||
|
|
||||||
$path .=
|
$path .=
|
||||||
'openURL?url='
|
'openURL?url='
|
||||||
. $openurl
|
. urlEncode($openurl)
|
||||||
. '&browserapp='
|
. '&browserapp='
|
||||||
. $bapp
|
. $bapp
|
||||||
. '&browserappclass='
|
. '&browserappclass='
|
||||||
|
Reference in New Issue
Block a user