luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Enhance language detection done by the Request.Language property.

Browse source 
[GB.WEB]
* NEW: Enhance language detection done by the Request.Language property.
This commit is contained in:
gambas 2019-06-21 20:00:58 +02:00
parent 64a13bfab4
commit 0179eb5936
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
comp/src/gb.web/.src/Request.module
View file

@ -232,14 +232,17 @@ Private Function Language_Read() As String
Dim aLang As String[]
Dim sLang As String
Dim iPos As Integer
Dim I As Integer
aLang = Split(CGI["HTTP_ACCEPT_LANGUAGE"], ",")
If aLang.Count = 0 Then Return System.Language
sLang = aLang[0]
iPos = InStr(sLang, ";")
If iPos Then sLang = Left(sLang, iPos - 1)
sLang = Replace(sLang, "-", "_")
Return sLang & ".UTF-8"
For I = 0 To aLang.Max
iPos = InStr(sLang, ";")
If iPos Then sLang = Left(sLang, iPos - 1)
If InStr(sLang, "-") Then Return Replace(sLang, "-", "_") & ".UTF-8"
Next
Return System.Language
End