[Yaacs-svn] SF.net SVN: yaacs: [568] trunk

[<bu...@us...>]

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.