version 1.65, 2006/06/16 19:54:02
|
version 1.66, 2006/06/20 03:32:40
|
Line 256 sub make_reservation {
|
Line 256 sub make_reservation {
|
|
|
my $parm_symb = $symb; |
my $parm_symb = $symb; |
my $parm_level = 1; |
my $parm_level = 1; |
if ($use_slots eq 'map') { |
if ($use_slots eq 'map' || $use_slots eq 'map_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 495 sub release_reservation {
|
Line 495 sub release_reservation {
|
} |
} |
|
|
my $parm_level = 1; |
my $parm_level = 1; |
if ($use_slots eq 'map') { |
if ($use_slots eq 'map' || $use_slots eq 'map_map') { |
$parm_level = 2; |
$parm_level = 2; |
} |
} |
# store new parameter string |
# store new parameter string |
Line 1570 sub handler {
|
Line 1570 sub handler {
|
} |
} |
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 'map') { |
if ($useslots ne 'resource' |
|
&& $useslots ne 'map' |
|
&& $useslots ne 'map_map') { |
&fail($r,'not_available'); |
&fail($r,'not_available'); |
return OK; |
return OK; |
} |
} |