loncom/enrollment/localenroll.pm - diff

Return to localenroll.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.6, 2003/12/11 15:45:25	version 1.7, 2003/12/11 19:01:33
Line 135 sub run { return 0; }	Line 135 sub run { return 0; }
################################	################################

sub fetch_enrollment {	sub fetch_enrollment {
my ($dom,$affiliatesref,$replyref) = @_;	my ($dom,$affiliatesref,$replyref) = @_;
foreach my $crs (sort keys %{$affiliatesref}) {	foreach my $crs (sort keys %{$affiliatesref}) {
$$replyref{$crs} = 0;	$$replyref{$crs} = 0;
}	}
}	my $okflag = 0;
my $okflag = 0;	return $okflag;
return $okflag;
}	}

###############################	###############################