|
version 1.148, 2014/02/23 20:27:54
|
version 1.149.2.1, 2018/03/29 20:10:47
|
|
Line 1072 sub accinit {
|
Line 1072 sub accinit {
|
| |
|
| sub hiddenurls { |
sub hiddenurls { |
| my $randomoutentry=''; |
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}}; |
| # ------------------------------------------- put existing resources into array |
# ------------------------------------------- put existing resources into array |
|
Line 1123 sub hiddenurls {
|
Line 1123 sub hiddenurls {
|
| } |
} |
| } |
} |
| # ------------------------------ take care of explicitly hidden urls or folders |
# ------------------------------ take care of explicitly hidden urls or folders |
| foreach my $rid (keys %hiddenurl) { |
foreach my $rid (keys(%hiddenurl)) { |
| $hash{'randomout_'.$rid}=1; |
$hash{'randomout_'.$rid}=1; |
| my ($mapid,$resid)=split(/\./,$rid); |
my ($mapid,$resid)=split(/\./,$rid); |
| $randomoutentry.='&'. |
$randomoutentry.='&'. |
|
Line 1174 sub readmap {
|
Line 1174 sub readmap {
|
| &unlink_tmpfiles($fn); |
&unlink_tmpfiles($fn); |
| } |
} |
| undef %randompick; |
undef %randompick; |
| |
undef %randompickseed; |
| |
undef %randomorder; |
| undef %hiddenurl; |
undef %hiddenurl; |
| undef %encurl; |
undef %encurl; |
| $retfrid=''; |
$retfrid=''; |
|
Line 1317 sub readmap {
|
Line 1319 sub readmap {
|
| $lock=1; |
$lock=1; |
| } |
} |
| undef %randompick; |
undef %randompick; |
| |
undef %randompickseed; |
| |
undef %randomorder; |
| undef %hiddenurl; |
undef %hiddenurl; |
| undef %encurl; |
undef %encurl; |
| $errtext=''; |
$errtext=''; |
![[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