loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.99, 2004/09/02 13:15:54	version 1.100, 2004/11/01 23:23:33
Line 88 sub handler {	Line 88 sub handler {
if ($ENV{'request.course.id'}) {	if ($ENV{'request.course.id'}) {
my %temp=('logout_'.$ENV{'request.course.id'} => time);	my %temp=('logout_'.$ENV{'request.course.id'} => time);
&Apache::lonnet::put('email_status',\%temp);	&Apache::lonnet::put('email_status',\%temp);
}	&Apache::lonnet::delenv('user.state.'.$ENV{'request.course.id'});
	}
&Apache::lonnet::appenv("request.course.id" => '',	&Apache::lonnet::appenv("request.course.id" => '',
"request.course.fn" => '',	"request.course.fn" => '',
"request.course.uri" => '',	"request.course.uri" => '',
Line 620 ENDHEADER	Line 621 ENDHEADER
my $output;	my $output;
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {	foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {	if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {
$output.=&mt($roletext{$sortrole{$which}});	$output.=$roletext{$sortrole{$which}};
}	}
}	}
if ($output) {	if ($output) {