--- a/gameServer/OfficialServer/DBInteraction.hs	Tue Feb 24 21:47:17 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Wed Feb 25 17:12:32 2009 +0000
@@ -29,12 +29,12 @@
 	q <- readChan queries
 	case q of
 		CheckAccount clID name -> do
-				statement <- prepare dbConn "SELECT uid FROM users WHERE name=?"
+				statement <- prepare dbConn "SELECT pass FROM users WHERE name=?"
 				execute statement [SqlString name]
-				uid <- fetchRow statement
+				pass <- fetchRow statement
 				finish statement
-				if isJust uid then
-					writeChan coreChan $ ClientAccountInfo clID HasAccount
+				if isJust pass then
+					writeChan coreChan $ ClientAccountInfo clID (HasAccount $ fromSql $ head $ fromJust $ pass)
 					else
 					writeChan coreChan $ ClientAccountInfo clID Guest
 			`onException`