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');
my $missingModul = '';
eval "use Encode qw(encode encode_utf8);1" or $missingModul .= 'Encode ';
@ -793,7 +794,7 @@ sub Set($$@) {
$path .=
'openURL?url='
. $openurl
. urlEncode($openurl)
. '&browserapp='
. $bapp
. '&browserappclass='