Skip to content
Browse files

Merge pull request #213 from teharrison/master

hotfix for job_delete
  • Loading branch information...
2 parents 3bcb85b + 556d32e commit 156623a1b06669cbfc01f967c6c401e7f190fede @teharrison teharrison committed Dec 20, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/MGRAST/lib/Analysis.pm
View
2 src/MGRAST/lib/Analysis.pm
@@ -729,7 +729,7 @@ sub delete_job {
my $all = $self->_dbh->selectcol_arrayref("SELECT DISTINCT version FROM job_info WHERE job = ".$job);
eval {
$self->_dbh->do("DELETE FROM job_info WHERE job = ".$job);
- foreach my $tbl (keys %{$self->_jtbl}) {
+ foreach my $tbl (values %{$self->_jtbl}) {
$self->_dbh->do("DELETE FROM $tbl WHERE version IN (".join(",", @$all).") AND job = ".$job);
}
};

0 comments on commit 156623a

Please sign in to comment.
Something went wrong with that request. Please try again.