|
From: <bu...@us...> - 2006-03-17 14:42:17
|
Revision: 568 Author: bugant Date: 2006-03-17 06:42:03 -0800 (Fri, 17 Mar 2006) ViewCVS: http://svn.sourceforge.net/yaacs/?rev=568&view=rev Log Message: ----------- bug fix: see http://sourceforge.net/tracker/index.php?func=detail&aid=1452383&group_id=47069&atid=448358 for details; Modified Paths: -------------- branches/yaacs-2.0-rc1/yacco.tcl trunk/yacco.tcl Modified: branches/yaacs-2.0-rc1/yacco.tcl =================================================================== --- branches/yaacs-2.0-rc1/yacco.tcl 2006-03-17 09:29:10 UTC (rev 567) +++ branches/yaacs-2.0-rc1/yacco.tcl 2006-03-17 14:42:03 UTC (rev 568) @@ -1283,8 +1283,8 @@ return [array get dummy] } - set ret(login) [getWdjValue login] - if { $ret(login) == "" || [string length $ret(codfis)]<2 } { + set ret(login) [string tolower [getWdjValue login]] + if { $ret(login) == "" || [string length $ret(login)]<2 } { yatk_dlg::error [mc "Login empty or less the 3 chars"] return [array get dummy] } Modified: trunk/yacco.tcl =================================================================== --- trunk/yacco.tcl 2006-03-17 09:29:10 UTC (rev 567) +++ trunk/yacco.tcl 2006-03-17 14:42:03 UTC (rev 568) @@ -1847,8 +1847,8 @@ return [array get dummy] } - set ret(login) [getWdjValue login] - if { $ret(login) == "" || [string length $ret(codfis)]<2 } { + set ret(login) [string tolower [getWdjValue login]] + if { $ret(login) == "" || [string length $ret(login)]<2 } { yatk_dlg::error [mc "Login empty or less the 3 chars"] return [array get dummy] } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |