rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.67, 2003/11/01 16:42:13	version 1.72, 2004/04/05 18:25:08
Line 159 sub loadmap {	Line 159 sub loadmap {
} elsif ($turi=~/^\/*uploaded\//) { # uploaded	} elsif ($turi=~/^\/*uploaded\//) { # uploaded
if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')	if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')
\|\| ($embstyle eq 'ssi')) {	\|\| ($embstyle eq 'ssi')) {
$turi='/adm/wrapper'.$turi;	unless ($turi =~/\.page$/) {
	$turi='/adm/wrapper'.$turi;
	}
} elsif ($turi!~/\.(sequence\|page)$/) {	} elsif ($turi!~/\.(sequence\|page)$/) {
$turi='/adm/coursedocs/showdoc'.$turi;	$turi='/adm/coursedocs/showdoc'.$turi;
}	}
} else { # normal internal resource	} elsif ($turi=~/\S/) { # normal non-empty internal resource
if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')) {	my $mapdir=$uri;
$turi='/adm/wrapper'.$turi;	$mapdir=~s/[^\/]+$//;
}	$turi=&Apache::lonnet::hreflocation($mapdir,$turi);
	if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')) {
	$turi='/adm/wrapper'.$turi;
	}
}	}
}	}
	# Store reverse lookup, remove query string
if (defined($hash{'ids_'.$turi})) {	my $idsuri=$turi;
$hash{'ids_'.$turi}.=','.$rid;	$idsuri=~s/\?.+$//;
	if (defined($hash{'ids_'.$idsuri})) {
	$hash{'ids_'.$idsuri}.=','.$rid;
} else {	} else {
$hash{'ids_'.$turi}=''.$rid;	$hash{'ids_'.$idsuri}=''.$rid;
}	}

if	if