version 1.122, 2015/05/10 03:58:12
|
version 1.123, 2015/06/23 16:09:43
|
Line 689 sub release_reservation {
|
Line 689 sub release_reservation {
|
return (0,'error: Unable to determine current status'); |
return (0,'error: Unable to determine current status'); |
} |
} |
my $passed_resource = $navmap->getBySymb($symb); |
my $passed_resource = $navmap->getBySymb($symb); |
if ($passed_resource->is_map()) { |
if (ref($passed_resource)) { |
my ($a_resource) = |
if ($passed_resource->is_map()) { |
$navmap->retrieveResources($passed_resource, |
my ($a_resource) = |
sub {$_[0]->is_problem()},0,1); |
$navmap->retrieveResources($passed_resource, |
$symb = $a_resource->symb(); |
sub {$_[0]->is_problem()},0,1); |
|
$symb = $a_resource->symb(); |
|
} |
|
} else { |
|
unless ($mgr eq 'F') { |
|
return (0,'error: Unable to determine current status'); |
|
} |
} |
} |
|
|
# get parameter string, check for existance, rebuild string with the slot |
# get parameter string, check for existence, rebuild string with the slot |
my $student = &Apache::lonnet::EXT("resource.0.availablestudent", |
my $student = &Apache::lonnet::EXT("resource.0.availablestudent", |
$symb,$udom,$uname); |
$symb,$udom,$uname); |
my @slots = split(/:/,$student); |
my @slots = split(/:/,$student); |