|
version 1.29, 2002/06/24 14:09:49
|
version 1.31, 2002/06/27 13:21:04
|
|
Line 409 sub accinit {
|
Line 409 sub accinit {
|
| # ------------------------------------- Selectively delete from randompick maps |
# ------------------------------------- Selectively delete from randompick maps |
| |
|
| sub pickrandom { |
sub pickrandom { |
| |
my $randomoutentry=''; |
| foreach my $rid (keys %randompick) { |
foreach my $rid (keys %randompick) { |
| my $rndpick=$randompick{$rid}; |
my $rndpick=$randompick{$rid}; |
| my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}}; |
my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}}; |
|
Line 435 sub pickrandom {
|
Line 436 sub pickrandom {
|
| for (my $k=0; $k<=$#currentrids; $k++) { |
for (my $k=0; $k<=$#currentrids; $k++) { |
| if ($currentrids[$k]) { |
if ($currentrids[$k]) { |
| $hash{'randomout_'.$currentrids[$k]}=1; |
$hash{'randomout_'.$currentrids[$k]}=1; |
| |
$randomoutentry.='&'.$currentrids[$k].'&'; |
| } |
} |
| } |
} |
| } |
} |
| |
if ($randomoutentry) { |
| |
&Apache::lonnet::appenv('acc.randomout' => $randomoutentry); |
| |
} |
| } |
} |
| |
|
| # ---------------------------------------------------- Read map and all submaps |
# ---------------------------------------------------- Read map and all submaps |
|
Line 467 sub readmap {
|
Line 472 sub readmap {
|
| %parmhash=(); |
%parmhash=(); |
| $errtext=''; |
$errtext=''; |
| $pc=0; |
$pc=0; |
| |
my $furi='/res/'.&Apache::lonnet::declutter($uri); |
| |
$hash{'src_0.0'}=$furi; |
| |
$hash{'title_0.0'}=&Apache::lonnet::metadata($uri,'title'); |
| |
$hash{'ids_'.$furi}='0.0'; |
| |
$hash{'is_map_0.0'}=1; |
| loadmap($uri); |
loadmap($uri); |
| if (defined($hash{'map_start_'.$uri})) { |
if (defined($hash{'map_start_'.$uri})) { |
| &traceroute('0',$hash{'map_start_'.$uri},'&'); |
&traceroute('0',$hash{'map_start_'.$uri},'&'); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserstate.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat