Commit 4b0d0f6f authored by Leigh Stoller's avatar Leigh Stoller

Fix DeleteInputFiles() so that they really get deleted!

parent f7fd9cb1
......@@ -704,12 +704,6 @@ sub DeleteInputFiles($)
" rsrcidx!='$rsrcidx'");
goto bad
if (! $query_result);
next
if ($query_result->numrows);
DBQueryWarn("delete from experiment_input_data ".
"where idx='$input_data_idx'")
or goto bad;
DBQueryWarn("delete from experiment_inputs ".
"where input_data_idx='$input_data_idx'")
......@@ -720,6 +714,12 @@ sub DeleteInputFiles($)
"where rsrcidx='$rsrcidx'")
or goto bad;
}
next
if ($query_result->numrows);
DBQueryWarn("delete from experiment_input_data ".
"where idx='$input_data_idx'")
or goto bad;
}
done:
DBQueryWarn("unlock tables");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment