loncom/enrollment/Enrollment.pm - diff

Return to Enrollment.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.42, 2009/10/31 17:55:01	version 1.43, 2010/08/20 21:44:59
Line 775 sub parse_classlist {	Line 775 sub parse_classlist {
push @state, $tagname;	push @state, $tagname;
if ("@state" eq "students student") {	if ("@state" eq "students student") {
$uname = $attr->{username};	$uname = $attr->{username};
	$$studentsref{$uname}[ $$placeref{'groupID'} ] = $groupID;
}	}
}, "tagname, attr"],	}, "tagname, attr"],
text_h =>	text_h =>
[sub {	[sub {
my ($text) = @_;	my ($text) = @_;
if ("@state" eq "students student groupID") {	if ("@state" eq "students student startdate") {
$$studentsref{$uname}[ $$placeref{'groupID'} ] = $groupID;
} elsif ("@state" eq "students student startdate") {
my $start = $text;	my $start = $text;
unless ($text eq '') {	unless ($text eq '') {
$start = &process_date($text);	$start = &process_date($text);