loncom/interface/lonpopulate.pm - diff

Return to lonpopulate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.25, 2005/09/14 21:25:52	version 1.26, 2005/09/16 16:01:18
Line 540 ENDTWO	Line 540 ENDTWO
my @roleinfo = split/:/,$_;	my @roleinfo = split/:/,$_;
if ($roleinfo[0] eq 'cc') {	if ($roleinfo[0] eq 'cc') {
unless (grep/^$roleinfo[1]\@$roleinfo[2]/,@ccs) {	unless (grep/^$roleinfo[1]\@$roleinfo[2]/,@ccs) {
my $active_cc = &LONCAPA::Enrollment::check_user_status($roleinfo[2],$roleinfo[1],$dom,$crs,'cc');	my $active_cc = &Apache::loncommon::check_user_status($roleinfo[2],$roleinfo[1],$dom,$crs,'cc');
if ($active_cc eq 'ok') {	if ($active_cc eq 'active') {
push @ccs, "$roleinfo[1]\@$roleinfo[2]";	push @ccs, "$roleinfo[1]\@$roleinfo[2]";
$pname{"$roleinfo[1]\@$roleinfo[2]"} = &Apache::loncommon::plainname($roleinfo[1],$roleinfo[2]);	$pname{"$roleinfo[1]\@$roleinfo[2]"} = &Apache::loncommon::plainname($roleinfo[1],$roleinfo[2]);
if (grep/^$roleinfo[1]\@$roleinfo[2]$/,@notified) {	if (grep/^$roleinfo[1]\@$roleinfo[2]$/,@notified) {