version 1.149.2.2.2.1, 2020/01/16 21:49:07
|
version 1.155, 2018/03/29 19:59:08
|
Line 42 use Safe::Hole;
|
Line 42 use Safe::Hole;
|
use Opcode; |
use Opcode; |
use Apache::lonenc; |
use Apache::lonenc; |
use Fcntl qw(:flock); |
use Fcntl qw(:flock); |
use LONCAPA; |
use LONCAPA qw(:DEFAULT :match); |
use File::Basename; |
use File::Basename; |
|
|
|
|
Line 255 sub loadmap {
|
Line 255 sub loadmap {
|
push(@map_ids, $resource_id); |
push(@map_ids, $resource_id); |
if ($hash{'src_'.$lpc.'.'.$resource_id}) { |
if ($hash{'src_'.$lpc.'.'.$resource_id}) { |
$rescount{$lpc} ++; |
$rescount{$lpc} ++; |
if (($hash{'src_'.$lpc.'.'.$resource_id}=~/\.sequence$/) || |
if (($hash{'src_'.$lpc.'.'.$resource_id}=~/\.sequence$/) || |
($hash{'src_'.$lpc.'.'.$resource_id}=~/\.page$/)) { |
($hash{'src_'.$lpc.'.'.$resource_id}=~/\.page$/)) { |
$mapcount{$lpc} ++; |
$mapcount{$lpc} ++; |
} |
} |
} |
} |
unless ($codechecked) { |
unless ($codechecked) { |
Line 1229 sub readmap {
|
Line 1229 sub readmap {
|
undef %randompick; |
undef %randompick; |
undef %randompickseed; |
undef %randompickseed; |
undef %randomorder; |
undef %randomorder; |
undef %randomizationcode; |
|
undef %hiddenurl; |
undef %hiddenurl; |
undef %encurl; |
undef %encurl; |
undef %rescount; |
|
undef %mapcount; |
|
$retfrid=''; |
$retfrid=''; |
$errtext=''; |
$errtext=''; |
my ($untiedhash,$untiedparmhash,$tiedhash,$tiedparmhash); # More state flags. |
my ($untiedhash,$untiedparmhash,$tiedhash,$tiedparmhash); # More state flags. |
Line 1377 sub readmap {
|
Line 1374 sub readmap {
|
undef %randompick; |
undef %randompick; |
undef %randompickseed; |
undef %randompickseed; |
undef %randomorder; |
undef %randomorder; |
undef %randomizationcode; |
|
undef %hiddenurl; |
undef %hiddenurl; |
undef %encurl; |
undef %encurl; |
undef %rescount; |
|
undef %mapcount; |
|
$errtext=''; |
$errtext=''; |
$retfrid=''; |
$retfrid=''; |
# |
# |