loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.384, 2006/06/22 13:02:22	version 1.385, 2006/06/22 17:34:40
Line 3315 table.LC_mail_list tr.LC_mail_other {	Line 3315 table.LC_mail_list tr.LC_mail_other {
table.LC_mail_list tr.LC_mail_other:hover {	table.LC_mail_list tr.LC_mail_other:hover {
background-color: $mail_other_hover;	background-color: $mail_other_hover;
}	}


END	END
}	}

Line 3999 sub get_secgrprole_info {	Line 4001 sub get_secgrprole_info {
};	};
if ($needroles) {	if ($needroles) {
$rolehash = {'all' => 'all'};	$rolehash = {'all' => 'all'};
my %dumphash = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);	my %user_roles = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);
foreach my $item (keys(%dumphash)) {	if (&Apache::lonnet::error(%user_roles)) {
	undef(%user_roles);
	}
	foreach my $item (keys(%user_roles)) {
my ($role)=split(/\:/,$item,2);	my ($role)=split(/\:/,$item,2);
if ($role eq 'cr') { next; }	if ($role eq 'cr') { next; }
if ($role =~ /^cr/) {	if ($role =~ /^cr/) {