X-Git-Url: http://git.ieval.ro/?p=gruntmaster-data.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FData.pm;fp=lib%2FGruntmaster%2FData.pm;h=da2b3c59eb50851a3935f1fc95118b654cbb09d6;hp=d54f17bed7914dea9d42e0a7992bf6da1a4388c6;hb=9baaf76b50b8888c5f851d1469b5d45255838738;hpb=8ab124f5b4b8d8c871c3bf2c3fb11eb17f61d2f6

diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index d54f17b..da2b3c5 100644
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -36,6 +36,7 @@ my %statements = (
 
 	job_entry_sth => 'SELECT * FROM job_entry WHERE id = ?',
 
+	rerun_problem_sth => 'UPDATE jobs SET daemon=NULL,result=-2,result_text=NULL,results=NULL,errors=NULL WHERE problem = ?',
 	rerun_job_sth => 'UPDATE jobs SET daemon=NULL,result=-2,result_text=NULL,results=NULL,errors=NULL WHERE id = ?',
 	take_job_sth => 'UPDATE jobs SET daemon=? WHERE id = (SELECT id FROM jobs WHERE daemon IS NULL LIMIT 1 FOR UPDATE) RETURNING id',
 );
@@ -242,6 +243,12 @@ sub update_status {
 	$db->commit
 }
 
+sub rerun_problem {
+	my ($problem) = @_;
+	_query rerun_problem_sth => $problem;
+	purge '/log/';
+}
+
 sub rerun_job {
 	my ($id) = @_;
 	_query rerun_job_sth => $id;