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