rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.149.2.2, 2019/02/07 01:51:34	version 1.156, 2018/03/29 21:12:57
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 484 sub parse_resource {	Line 484 sub parse_resource {
} elsif ($turi!~/\.(sequence\|page)$/) {	} elsif ($turi!~/\.(sequence\|page)$/) {
$turi='/adm/coursedocs/showdoc'.$turi;	$turi='/adm/coursedocs/showdoc'.$turi;
}	}
	} elsif ($turi=~ m{^/adm/$match_domain/$match_courseid/\d+/ext\.tool$}) {
	$turi='/adm/wrapper'.$turi;
} elsif ($turi=~/\S/) { # normal non-empty internal resource	} elsif ($turi=~/\S/) { # normal non-empty internal resource
my $mapdir=$uri;	my $mapdir=$uri;
$mapdir=~s/[^\/]+$//;	$mapdir=~s/[^\/]+$//;