loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.234, 2002/05/27 19:03:59	version 1.235, 2002/05/29 14:10:28
Line 1737 sub is_on_map {	Line 1737 sub is_on_map {
$pathname=~s/\/$filename$//;	$pathname=~s/\/$filename$//;
my $match=($ENV{'acc.res.'.$ENV{'request.course.id'}.'.'.$pathname}=~	my $match=($ENV{'acc.res.'.$ENV{'request.course.id'}.'.'.$pathname}=~
/\&$filename\:([\d\\|]+)\&/);	/\&$filename\:([\d\\|]+)\&/);
&logthis('is: '.$uri.' '.$match.' '.$1);
if ($match) {	if ($match) {
return (1,$1);	return (1,$1);
} else {	} else {
Line 2788 sub declutter {	Line 2787 sub declutter {
$thisfn=~s/^$perlvar{'lonDocRoot'}//;	$thisfn=~s/^$perlvar{'lonDocRoot'}//;
$thisfn=~s/^\///;	$thisfn=~s/^\///;
$thisfn=~s/^res\///;	$thisfn=~s/^res\///;
	$thisfn=~s/\?.+$//;
return $thisfn;	return $thisfn;
}	}