$dbh->do(qq{update users set locale = ?, pagesize = ?, cortado = ? where id = ?},undef,$query->param('locale'),$query->param('pagesize'),$query->param('cortado'),$userinfo->{'id'})ordie$dbh->errstr;
$dbh->do(qq{update users set locale = ?, pagesize = ? where id = ?},undef,$query->param('locale'),$query->param('pagesize'),$userinfo->{'id'})ordie$dbh->errstr;