QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-03 12:21:20 +00:00
Code Issues Releases Wiki Activity

Fix URLs containing ampersands

Browse source 
Escapes & in Wiki page URLs (eg. &B, &H, &O) and in external links (eg. many MSDN links)
This commit is contained in:
Roland Heyder 2022-06-12 17:05:18 +02:00
parent e01b29c9a2
commit 63c523ba38
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/ide/ide_methods.bas
View file

@ -2271,7 +2271,8 @@ FUNCTION ide2 (ignore)
IF mCLICK THEN
IF (mY = idewy AND (mX >= idewx - 17 AND mX <= idewx - 4)) THEN 'view on wiki
launchWiki:
url$ = StrReplace$(wikiBaseAddress$ + "/index.php?title=" + Back$(Help_Back_Pos), " ", "%20")
url$ = wikiBaseAddress$ + "/index.php?title=" + Back$(Help_Back_Pos)
url$ = StrReplace$(url$, " ", "%20"): url$ = StrReplace$(url$, "&", "%26")
IF INSTR(_OS$, "WIN") = 0 THEN
url$ = StrReplace$(url$, "$", "\$")
url$ = StrReplace$(url$, "&", "\&")
@ -2596,6 +2597,7 @@ FUNCTION ide2 (ignore)
IF (K$ = CHR$(13)) OR (mY = Help_cy - Help_sy + Help_wy1 AND mX = Help_cx - Help_sx + Help_wx1) THEN
l$ = RIGHT$(l$, LEN(l$) - 5)
l$ = StrReplace$(l$, " ", "%20")
l$ = StrReplace$(l$, "&", "%26")
IF INSTR(_OS$, "WIN") = 0 THEN
l$ = StrReplace$(l$, "$", "\$")
l$ = StrReplace$(l$, "&", "\&")