add urlEncode for openUrl setter

This commit is contained in:
Marko Oldenburg 2021-04-19 16:42:17 +02:00
parent 17600a886e
commit 67fc1e6fcc

View File

@ -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='