loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.111, 2004/05/14 18:11:12	version 1.113, 2004/06/09 17:08:27
Line 173 sub print_main_menu {	Line 173 sub print_main_menu {
<a href="/adm/dropadd?action=drop">$Text{'drop'}</a>	<a href="/adm/dropadd?action=drop">$Text{'drop'}</a>
</font>$help{'Course_Drop_Student'}	</font>$help{'Course_Drop_Student'}
</p><p>	</p><p>
	END
	my ($cdom,$cnum) = split/_/,$ENV{'request.course.id'};
	if (&Apache::lonnet::auto_run($cnum,$cdom) ) {
	$r->print(<<END);
<font size="+1">	<font size="+1">
<a href="/adm/populate">$Text{'populate'}</a>	<a href="/adm/populate">$Text{'populate'}</a>
</font>	</font>
END	END
	}
}	}

###############################################################	###############################################################
Line 1172 sub print_html_classlist {	Line 1177 sub print_html_classlist {
&show_class_list($r,'view','modify',	&show_class_list($r,'view','modify',
$ENV{'form.Status'},$classlist,$keylist);	$ENV{'form.Status'},$classlist,$keylist);
} else {	} else {
&Apache::lonnet::logthis('showing class list '.$ENV{'form.output'});

&show_class_list($r,$ENV{'form.output'},'aboutme',	&show_class_list($r,$ENV{'form.output'},'aboutme',
$ENV{'form.Status'},$classlist,$keylist);	$ENV{'form.Status'},$classlist,$keylist);
}	}