loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2002/05/01 20:54:10	version 1.39, 2002/05/03 17:45:07
Line 687 sub get_current_classlist {	Line 687 sub get_current_classlist {
}	}
return (undef,%currentlist);	return (undef,%currentlist);
} else {	} else {
	$tmp =~ s/^error://;
return ($tmp,undef);	return ($tmp,undef);
}	}
}	}
Line 695 sub get_current_classlist {	Line 696 sub get_current_classlist {
sub menu_phase_two_drop {	sub menu_phase_two_drop {
my $r=shift;	my $r=shift;
my $cid=$ENV{'request.course.id'};	my $cid=$ENV{'request.course.id'};
my ($error,%currentlist)=&get_current_classlist($ENV{'course.'.$cid.'.domain'},	my ($error,%currentlist)=&get_current_classlist
$ENV{'course.'.$cid.'.num'});	($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'});
if (defined($error)) {	if (defined($error)) {
$r->print('<pre>ERROR:$error</pre>');	if ($error =~ /^No such file or directory/) {
}	$r->print("There are no students currently enrolled.\n");
if (!defined(%currentlist)) {	} else {
	$r->print("<pre>ERROR:$error</pre>");
	}
	} elsif (!defined(%currentlist)) {
$r->print("There are no students currently enrolled.\n");	$r->print("There are no students currently enrolled.\n");
} else {	} else {
# Print out the available choices	# Print out the available choices