Commit dc131f4e authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

When a node is released and we check its prereserve status, I forgot

to check the reservation_name in the nodes table; if reserved_pid is
set but reservation_name is null, it was prereserved via the web interface
not via the prereserve command line tool. In this case, we never clear
the pre-reserve, someone has to do that via the web interface.
parent 4ee24cb0
......@@ -3689,7 +3689,8 @@ sub CheckPreReserve($$$)
# not look in the object ($self) since it might be stale.
my $query_result =
DBQueryWarn("select reserved_pid,count,active,terminal from nodes ".
DBQueryWarn("select reserved_pid,reservation_name, ".
" count,active,terminal from nodes ".
"left join project_reservations on ".
" and ".
" ".
......@@ -3704,10 +3705,17 @@ sub CheckPreReserve($$$)
# if the reservation request is still active. If not, we can clear it,
# which will allow it to be set again below, if needed.
my ($pid,$count,$active,$terminal) = $query_result->fetchrow_array();
my ($pid,$resname,$count,$active,$terminal) =
if (defined($pid)) {
# There is an active pre-reserve for this node.
goto done
if (defined($count) && $active && !$terminal);
# If the reservation_name is null, the node was prereserved
# via the web page, not by a prereserve command line. Do not
# mess with it.
goto done
if (!defined($resname));
DBQueryWarn("update nodes set reserved_pid=null, ".
" reservation_name=null ".
Supports Markdown
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