[Amsn-commits] msn lang.tcl,1.22,1.23

[Fred <gad...@us...>]

Update of /cvsroot/amsn/msn
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22865

Modified Files:
	lang.tcl 
Log Message:
Fix an encoding problem in the language manager


Index: lang.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/lang.tcl,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** lang.tcl	10 Dec 2004 19:12:33 -0000	1.22
--- lang.tcl	10 Dec 2004 22:04:42 -0000	1.23
***************
*** 170,174 ****
--- 170,186 ----
  }
  
+ proc get_language_encodage { lang } {
+ 
+ 	global lang_list
+ 
+ 	foreach langdata $lang_list {
+ 		if { "lang[lindex $langdata 0]" == $lang } {
+ 			set langenc [lindex $langdata 2]
+ 		}
+ 	}
  
+ 	return $langenc
+ 
+ }
  
  proc get_available_language {} {
***************
*** 193,197 ****
  proc getlanguage { lang selection } {
  
! 	global weburl
  
  	set dir "[pwd]/lang"
--- 205,209 ----
  proc getlanguage { lang selection } {
  
! 	global lang_list weburl
  
  	set dir "[pwd]/lang"
***************
*** 199,203 ****
  	set fid [open "[file join ${dir} $lang]" w]
  
! 	set token [::http::geturl "http://cvs.sourceforge.net/viewcvs.py/*checkout*/amsn/msn/lang/$lang?rev=HEAD&content-type=text/plain" -timeout 10000]
  	set content [::http::data $token]
  
--- 211,217 ----
  	set fid [open "[file join ${dir} $lang]" w]
  
! 	fconfigure $fid -encoding "[get_language_encodage $lang]"
! 
! 	set token [::http::geturl "http://cvs.sourceforge.net/viewcvs.py/*checkout*/amsn/msn/lang/$lang?rev=HEAD&content-type=text" -timeout 10000]
  	set content [::http::data $token]