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.236, 2002/06/05 20:40:10
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 2279 sub EXT {	Line 2278 sub EXT {
my %reply=&get($space,[$item]);	my %reply=&get($space,[$item]);
return $reply{$item};	return $reply{$item};
}	}
} elsif ($realm eq 'request') {	} elsif ($realm eq 'query') {
	# ---------------------------------------------- pull stuff out of query string
	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},[$space]);
	return $ENV{'form.'.$space};
	} elsif ($realm eq 'request') {
# ------------------------------------------------------------- request.browser	# ------------------------------------------------------------- request.browser
if ($space eq 'browser') {	if ($space eq 'browser') {
return $ENV{'browser.'.$qualifier};	return $ENV{'browser.'.$qualifier};
Line 2788 sub declutter {	Line 2791 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;
}	}