international characters from onGridInitialize to <a5:r> tags

[christappan]

I'm trying to set labels to multiple languages using <a5:r> tags. I'm defining the translation string in the onGridInitialize event with an SQL query:

e.tmpl.languageDefinition = sql_records_get("::Name::mydb","SELECT CONCAT('<a5:r>',Lang_NameEnglish,'</a5:r>=\"',Lang_NameLocal,'\"') FROM tbl_language WHERE Lang_Key = :LangID","","",args)

It works as expected except for international characters (e.g. T�l�phone), which instead are displayed with garbage characters. I found in the documentation the code e.tmpl.encodeLanguageStringAsUTF8 = .f. that theoretically takes care of the problem, but that's not getting the job done either.

Any pointers out there? Thanks...

[christappan]

Re: international characters from onGridInitialize to &lt;a5:r&gt; tags

So, after writing this, the labels suddenly started displaying as expected, even with international characters. However, I'm now having the same problem with dropdown choices set to a variable set in the onGridIntialize:

e.rtc.groupStage = sql_records_get("::Name::HOPEdb","SELECT SCAGroupStageName_Name, SCAGroupStageName_KeyID FROM tbl_scagroupstagename WHERE SCAGroupStageName_LangID = :LangID","","",args)

Works as expected except the international characters are garbage. Thoughts anyone?

[[email protected]]

Re: international characters from onGridInitialize to &lt;a5:r&gt; tags

Hi Chris,

I recognize this problem :(
We are using the e.tmpl.encodeLanguageStringAsUTF8 = .f.

And I have a function to get the translations from our database depending on the language.

But sometimes in some situation it looks like garbage and then I just try to avoid the special charaters.

Pieter

[christappan]

Re: international characters from onGridInitialize to &lt;a5:r&gt; tags

That's disappointing if not unacceptable. Are the other international developers just living with garbage characters too? Any other suggestions out there?

[[email protected]]

Re: international characters from onGridInitialize to &lt;a5:r&gt; tags

Chris,

I have just tested to see if i have a problem with dropdownboxes.

I have put this in the choice for a dropdown
<a5:r>Kopieren</a5:r>|AAAAB
<a5:r>kostendrager</a5:r>|AAAAC
<a5:r>��n�</a5:r>|AAAAD



For the dutch language the first is displayed as Kopi�ren
For the german language the second is displayed as Kostentr�ger
And the third one is displayed as ��n� whatever the language is. Which is NOT correct.

So my solution is NOT to use the international characters in the string I want to translate but ONLY in the translated string.
And that works ok. The users see the translated string with international characters.

In all webcomponents the same languages are defined, there are no definitons for translations in the components.
These are all loaded with a serverside event (ondialogexecute, ongridexecute).
This is a function getting the translations for the active language.

I have just noticed that I put htmlencode(rs.data(2),.T.) in that function. Maybe that is the thing that you are missing?



FUNCTION Language_Read AS c (e as p)
e.tmpl.encodeLanguageStringAsUTF8 = .f.
dim language as c
dim sqlCommand as c
dim rs as sql::ResultSet
dim cs as c
dim cn as sql::connection
'pass in a pointer to the session variables as the third argument!
dim flag as l
flag = a5SQLConnectionOpen(cn,"::name::dataPieterOntwikkeling", session)
if flag = .f. then
dim msg as c
msg = "Could not connect to database. Error reported was: " + cn.CallResult.text
'we need to encode this for javascript since the message will be sent back to the browser for display
'js_escape() encodes ' as \' and crlf as \n
msg = js_escape(msg)
dim jscmd as c
jscmd = "alert('" + msg + "');"
readlanguage = jscmd
exit function
end if

dim args as sql::arguments
dim strsqlselectie as c
dim strLanguage as c
'dim session.__protected__activelanguage as c default "english"
'strlanguage = "german"
strlanguage = a5_eval_expression("=session.__protected__activeLanguage")

args.add("Lang_ID",strlanguage)
strsqlselectie = <<%sql%
call procedure_portal_Langportal(:LANG_ID);
%sql%

flag = cn.execute(strsqlselectie, args)

if flag = .f. then
'there was an error - close the connection and exit
cn.Close()
dim msg as c
msg = "Could not get languageelements. Error reported was: " + cn.CallResult.text
msg = js_escape(msg)
dim jscmd as c
jscmd = "alert('" + msg + "');"
readlanguage = jscmd
exit function
end if

rs = cn.ResultSet
'rs.ToDBF("c:\temp\testtable.dbf")
'file_add_to_db("c:\temp\testtable.dbf")
WHILE rs.nextRow()
language = language + "<a5:r>" + rs.data(1) +"</a5:r>=\"" + htmlencode(rs.data(2),.T.) + "\""+crlf()
' language = language + "<a5:r>" + rs.data(1) +"</a5:r>=\"" + rs.data(2) + "\""+crlf()
END WHILE
e.tmpl.languageDefinition = language
'Resultaat wegschrijven naar een txt bestand
'filename = "c:\temp\output.txt"
'file_pointer = file.create(filename, FILE_RW_EXCLUSIVE)
'file_pointer.write(language)
'file_pointer.flush()
'file_pointer.close()

dim msg as c
msg = "taal: " + strLanguage
msg = js_escape(msg)
dim jscmd as c
jscmd = "alert('" + msg + "');"
readlanguage = jscmd
exit function

END FUNCTION

Pieter

[christappan]

Re: international characters from onGridInitialize to &lt;a5:r&gt; tags

I am absolutely certain that I tried that method--putting <a5:r>option1</a5:r>|1 as the dropdown choices--and it wasn't working for me but now is.

I'm not using the htmlencode() but it seems to work without for what little I've tested--do you know of something that breaks without this code that doesn't with it?

Thanks so so much for leading me back to this option.

[[email protected]]

Re: international characters from onGridInitialize to &lt;a5:r&gt; tags

Hi Chris,

The only problem I see at this moment is with bubble help in an action button in the toolbar.
The international characters is garbage there :(
The bubble help on an icon in a grid is ok.

No clue anymore why i put it there.

Pieter