Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Analysis.pm: fixed bug in delete_job

  • Loading branch information...
commit 3cadc1847ba7fa3740e0c0b895b42919a5630326 1 parent 882f779
Travis Harrison authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/MGRAST/lib/Analysis.pm
View
2  src/MGRAST/lib/Analysis.pm
@@ -736,7 +736,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);
}
};
Please sign in to comment.
Something went wrong with that request. Please try again.