loncom/enrollment/localenroll.pm - diff

Return to localenroll.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.5, 2003/12/11 15:43:29	version 1.7, 2003/12/11 19:01:33
Line 29 package localenroll;	Line 29 package localenroll;
use strict;	use strict;

################################	################################
	# sub run
	# set this to return 1 if you want the auto enrollment to run
	################################

	sub run { return 0; }

	################################
# sub fetch_enrollment	# sub fetch_enrollment
#	#
# connects to the institutional classlist data source,	# connects to the institutional classlist data source,
Line 128 use strict;	Line 135 use strict;
################################	################################

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;
}	}

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