can't read class

[Fire-Fox]

I have this code and i get can't read class all the time

Code: Select all

set userChan "#dev.null" 
set accesschan "#dev.null"

bind join - * joins 

proc joins {nick host hand chan} {

        global userChan mysql_ db_

         if {$chan == $userChan } {

                #mysqluse $mysql_(handle) $mysql_(database)
   set sql [mysqlsel $mysql_(handle) "SELECT * FROM $mysql_(table) WHERE username='[mysqlescape $nick]' AND db_(accessclass) = '$class' "]   
   set result [mysqlsel $mysql_(handle) $sql -list] 

   if {$result > 0 } {
   set result [mysqlsel $mysql_(handle) $sql -list]
putserv "NOTICE $userChan Welcome $nick $class" 
   }
} else { 

putserv "kick $userChan $nick :You are not welcome!" 


mysqlendquery $mysql_(handle)
mysqlendquery $mysql_(handle)
	} 
}
putlog "Access.tcl - Loaded"

[caesar]

The $class variable isn't defined before using it, no wonder it's not working.