rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.45, 2002/10/07 19:00:43	version 1.47, 2002/11/18 15:17:56
Line 120 sub loadmap {	Line 120 sub loadmap {
$hash{'kind_'.$rid}='res';	$hash{'kind_'.$rid}='res';
$hash{'title_'.$rid}=$token->[2]->{'title'};	$hash{'title_'.$rid}=$token->[2]->{'title'};
my $turi=$token->[2]->{'src'};	my $turi=$token->[2]->{'src'};
	$Apache::lonnet::titlecache{
	&Apache::lonnet::symbclean(
	&Apache::lonnet::declutter($uri).'___'.
	$token->[2]->{'id'}.'___'.
	&Apache::lonnet::declutter($turi))}=
	$token->[2]->{'title'};
unless ($ispage) {	unless ($ispage) {
$turi=~/\.(\w+)$/;	$turi=~/\.(\w+)$/;
my $embstyle=&Apache::loncommon::fileembstyle($1);	my $embstyle=&Apache::loncommon::fileembstyle($1);
Line 507 sub readmap {	Line 513 sub readmap {
"Could not tie coursemap $fn for $uri.</font>");	"Could not tie coursemap $fn for $uri.</font>");
}	}
&Apache::lonmsg::author_res_msg($ENV{'request.course.uri'},$errtext);	&Apache::lonmsg::author_res_msg($ENV{'request.course.uri'},$errtext);
	# ------------------------------------------------- Check for critical messages

	my @what=&Apache::lonnet::dump('critical',$ENV{'user.domain'},
	$ENV{'user.name'});
	if ($what[0]) {
	if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
	$retfurl='/adm/email?critical=display';
	}
	}


return ($retfurl,$errtext);	return ($retfurl,$errtext);
}	}