add urlEncode for openUrl setter
This commit is contained in:
parent
17600a886e
commit
67fc1e6fcc
@ -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='
|
||||||
|
Loading…
x
Reference in New Issue
Block a user