my $query = $self->{dbConn}->prepare("INSERT INTO repository(rname) VALUES('". $repository->getName ."')"); my $affected = $query->execute; $self->{dbConn}->commit; $logger->debug($DBI::errstr || 'no errors found, ' . $affected . ' affected'); #### 2009/04/02 11:15:15 DEBUG> ResultSQL.pm:62 ResultSQL::prvInsertRepo - Reporting repository 2009/04/02 11:15:15 DEBUG> ResultSQL.pm:65 ResultSQL::prvInsertRepo - INSERT INTO repository(rname) VALUES('testSQL') 2009/04/02 11:15:15 DEBUG> ResultSQL.pm:69 ResultSQL::prvInsertRepo - no errors found, 1 affected #### $logger->debug("INSERT INTO script(repoid, sname) SELECT repoid, '" . $scriptN . "' as sname FROM repository WHERE rname='" . $repository->getName . "'"); my $query = $self->{dbConn}->prepare("INSERT INTO script(repoid, sname) SELECT repoid, '" . $scriptN . "' as sname FROM repository WHERE rname='" . $scriptN . "'"); my $affected = $query->execute; $self->{dbConn}->commit; $logger->debug($DBI::errstr || 'no errors found, ' . $affected . ' affected'); #### 2009/04/02 11:15:15 DEBUG> ResultSQL.pm:78 ResultSQL::prvInsertScripts - Reporting scripts 2009/04/02 11:15:15 DEBUG> ResultSQL.pm:81 ResultSQL::prvInsertScripts - INSERT INTO script(repoid, sname) SELECT repoid, 'tableName' as sname FROM repository WHERE rname='testSQL' 2009/04/02 11:15:15 DEBUG> ResultSQL.pm:85 ResultSQL::prvInsertScripts - no errors found, 0E0 affected