loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2002/05/03 16:30:48	version 1.39, 2002/05/03 17:45:07
Line 699 sub menu_phase_two_drop {	Line 699 sub menu_phase_two_drop {
my ($error,%currentlist)=&get_current_classlist	my ($error,%currentlist)=&get_current_classlist
($ENV{'course.'.$cid.'.domain'},$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");
	} else {
	$r->print("<pre>ERROR:$error</pre>");
	}
} elsif (!defined(%currentlist)) {	} elsif (!defined(%currentlist)) {
$r->print("There are no students currently enrolled.\n");	$r->print("There are no students currently enrolled.\n");
} else {	} else {