loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.59, 2006/04/25 15:32:20	version 1.60, 2006/05/12 01:20:31
Line 253 sub make_reservation {	Line 253 sub make_reservation {

my $parm_symb = $symb;	my $parm_symb = $symb;
my $parm_level = 1;	my $parm_level = 1;
if ($use_slots eq 'sequence') {	if ($use_slots eq 'map') {
my ($map) = &Apache::lonnet::decode_symb($symb);	my ($map) = &Apache::lonnet::decode_symb($symb);
$parm_symb = &Apache::lonnet::symbread($map);	$parm_symb = &Apache::lonnet::symbread($map);
$parm_level = 2;	$parm_level = 2;
Line 492 sub release_reservation {	Line 492 sub release_reservation {
}	}

my $parm_level = 1;	my $parm_level = 1;
if ($use_slots eq 'sequence') {	if ($use_slots eq 'map') {
$parm_level = 2;	$parm_level = 2;
}	}
# store new parameter string	# store new parameter string
Line 1552 sub handler {	Line 1552 sub handler {
my $symb=&Apache::lonnet::unescape($env{'form.symb'});	my $symb=&Apache::lonnet::unescape($env{'form.symb'});
my (undef,undef,$res)=&Apache::lonnet::decode_symb($symb);	my (undef,undef,$res)=&Apache::lonnet::decode_symb($symb);
my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);	my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);
if ($useslots ne 'resource' && $useslots ne 'sequence') {	if ($useslots ne 'resource' && $useslots ne 'map') {
&fail($r,'not_valid');	&fail($r,'not_valid');
return OK;	return OK;
}	}