add

i get this: expected integer but got "-xxx"

ind pub -|- !start rlsadd
 proc rlsadd {nick uhost handle chan text} {
 if {![channel get [string tolower $chan] rlsAdd]} { return 0 }
 global dbInfo
   if {[scan $text {%s} rlsname] != 1} {
      putserv "NOTICE $nick :Usage: !start <rls>"
      return
   }
   variable dbInfo
   if {[scan $dbInfo %s%s%s%s hostname username password database] != 4} return
   set time [unixtime]
   
   set rlsname [::mysql::escape $rlsname]
   set nick [::mysql::escape $nick]  
   set con [::mysql::connect -host $hostname -user $username -password $password -db $database]
   #set query [::mysql::query $con "SELECT rlsname,nick,unixtime FROM releases WHERE rlsname = '$rlsname'"]
   set query1 [mysqlsel $con "SELECT rlsname,nick,unixtime FROM releases WHERE rlsname = '$rlsname'" -flatlist];
  #if {[::mysql::fetch $query ]!=""} 
  if {$query1 !=""} {

  foreach {rlsname timestamp nick} $query1 {
  putlog "RLS: $rlsname / $nick / $timestamp "
    set predago [getpred $timestamp]

      puthelp "PRIVMSG $chan \0037RLS\003:\0039$rlsname\003 \0037Allerede Startet Af\003  $nick $predago"
   putlog "RLS: $rlsname / $nick / $predago "
    }
  } else {
      set query [::mysql::query $con "INSERT INTO releases (id,unixtime,rlsname,nick) VALUES (NULL, UNIX_TIMESTAMP(), '$rlsname', '$nick')"]
      puthelp "PRIVMSG $chan :\0037RLS\003: \0039$rlsname\003 \0037Startet af\003 $nick \[ \00314DATE:\003 [clock format $time -format %d-%m-%Y] \] \[ \00314Time:\003 [clock format $time -format %H:%M:%S] \]"
      putlog "RLS: $rlsname / $nick / $time "
  }
   ::mysql::endquery $con
   ::mysql::close $con
}