loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);