--- trunk/lib/SQLSession/Action/DoSQL.pm	2006/12/03 00:04:57	10
+++ trunk/lib/SQLSession/Action/DoSQL.pm	2006/12/03 00:10:31	11
@@ -79,17 +79,17 @@
 	my $db = $dbs->first || $self->result->error("Can't find database $database");
 
 	my $dbh = DBI->connect( $db->dsn, $db->login, $db->passwd ) ||
-		$self->result->error("can't connect to ", $db->dsn, " as ", $db->login, " ", $DBI::errstr);
+		$self->result->error("Can't connect to " . $db->dsn . " as " . $db->login . "<br/>" . $DBI::errstr) && return 0;
 
 	my $sql = $self->argument_value('sql_query');
 
 	warn "SQL: $sql\n";
 
 	my $sth = $dbh->prepare( $sql ) ||
-		$self->result->error( $dbh->errstr() );
+		$self->result->error( $dbh->errstr() ) && return 0;
 
 	$sth->execute() ||
-		$self->result->error( $sth->errstr() );
+		$self->result->error( $sth->errstr() ) && return 0;
 	
     $self->result->message('Query produced ' . (
 		$sth->rows == 0 ?	'no results' :