rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.39, 2002/08/31 00:43:13	version 1.43, 2002/09/10 20:53:37
Line 118 sub loadmap {	Line 118 sub loadmap {
unless ($ispage) {	unless ($ispage) {
$turi=~/\.(\w+)$/;	$turi=~/\.(\w+)$/;
my $embstyle=&Apache::loncommon::fileembstyle($1);	my $embstyle=&Apache::loncommon::fileembstyle($1);
if ($token->[2]->{'external'} eq 'true') {	if ($token->[2]->{'external'} eq 'true') { # external
$turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//;	$turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//;
} else {	} elsif ($turi=~/^\/*uploaded\//) { # uploaded
my $embstyle=&Apache::loncommon::fileembstyle($1);	if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')
	\|\| ($embstyle eq 'ssi')) {
	$turi='/adm/wrapper'.$turi;
	} elsif ($turi!~/\.(sequence\|page)$/) {
	$turi='/adm/coursedocs/showdoc'.$turi;
	}
	} else { # normal internal resource
if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')	if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')
\|\| ($turi=~/\/syllabus$/) \|\| ($turi=~/\/aboutme$/)) {	\|\| ($turi=~/\/(syllabus\|aboutme\|navmaps\|smppg\|bulletinboard)$/)) {
$turi='/adm/wrapper'.$turi;	$turi='/adm/wrapper'.$turi;
}	}
}	}