loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.80, 2003/12/09 21:25:53	version 1.81, 2003/12/30 22:45:59
Line 77 ENDREDIR	Line 77 ENDREDIR
return;	return;
}	}

	sub authorbombs {
	my ($uname,$udom)=@_;
	my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
	foreach (keys %bombs) {
	if ($_=~/^$udom\/$uname\//) {
	return '<img src="/adm/lonMisc/bomb.gif" />';
	}
	}
	return '';
	}

sub handler {	sub handler {

my $r = shift;	my $r = shift;
Line 417 ENDHEADER	Line 428 ENDHEADER
': '.$tdom.'<br />'.	': '.$tdom.'<br />'.
' '.&mt('Server').': '.$home;	' '.&mt('Server').': '.$home;
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';	$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
	$tremark.=&authorbombs($trest,$tdom);
$sortkey=$role."$trest:$tdom";	$sortkey=$role."$trest:$tdom";
} elsif ($role eq 'au') {	} elsif ($role eq 'au') {
# Authors	# Authors
Line 436 ENDHEADER	Line 448 ENDHEADER
$twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server').	$twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server').
': '.$home;	': '.$home;
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';	$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
	$tremark.=&authorbombs($ENV{'user.name'},$tdom);
$sortkey=$role;	$sortkey=$role;
} elsif ($trest) {	} elsif ($trest) {
$ttype='Course';	$ttype='Course';