version 1.14, 2014/01/25 06:29:11
|
version 1.15, 2014/12/11 01:50:27
|
Line 157 sub merge_hash {
|
Line 157 sub merge_hash {
|
$key .= '.'; # If we are prefixing, prefix then . |
$key .= '.'; # If we are prefixing, prefix then . |
} |
} |
|
|
foreach my $childkey (keys (%$child)) { |
foreach my $childkey (keys(%$child)) { |
$parent->{$key . $childkey} = $child->{$childkey}; |
$parent->{$key . $childkey} = $child->{$childkey}; |
} |
} |
} |
} |
Line 279 sub process_versions {
|
Line 279 sub process_versions {
|
$cenv->{'domain'}, |
$cenv->{'domain'}, |
$cenv->{'num'}); |
$cenv->{'num'}); |
|
|
foreach my $ver (keys (%versions)) { |
foreach my $ver (keys(%versions)) { |
if ($ver =~/^error\:/) { # lonc/lond transaction failed. |
if ($ver =~/^error\:/) { # lonc/lond transaction failed. |
throw Error::Simple('lonc/lond returned error: ' . $ver); |
throw Error::Simple('lonc/lond returned error: ' . $ver); |
} |
} |
Line 410 sub hiddenurls {
|
Line 410 sub hiddenurls {
|
my $courseid = $hash->{'context.courseid'}; |
my $courseid = $hash->{'context.courseid'}; |
|
|
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 450 sub hiddenurls {
|
Line 450 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.='&'. |