loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.75, 2003/07/15 19:23:14	version 1.76, 2003/07/21 17:54:43
Line 154 sub print_main_menu {	Line 154 sub print_main_menu {
</font>	</font>
</p><p>	</p><p>
<font size="+1">	<font size="+1">
<a href="/adm/dropadd?action=classlist">View Classlist</a>	<a href="/adm/dropadd?action=classlist">View Class List</a>
</font>	</font>
</p><p>	</p><p>
<font size="+1">	<font size="+1">
Line 923 sub print_html_classlist {	Line 923 sub print_html_classlist {
<input type="hidden" name="action" value="$ENV{'form.action'}" />	<input type="hidden" name="action" value="$ENV{'form.action'}" />
<input type="hidden" name="state" value="" />	<input type="hidden" name="state" value="" />
<p>	<p>
<font size="+1">Current Classlist</font>	<font size="+1">Current Class List</font>

END	END
if ($ENV{'form.action'} ne 'modifystudent') {	if ($ENV{'form.action'} ne 'modifystudent') {
Line 1028 END	Line 1028 END
$excel_workbook->set_tempdir('/home/httpd/perl/tmp');	$excel_workbook->set_tempdir('/home/httpd/perl/tmp');
$excel_sheet = $excel_workbook->addworksheet('classlist');	$excel_sheet = $excel_workbook->addworksheet('classlist');
#	#
my $description = 'Classlist for '.	my $description = 'Class List for '.
$ENV{'course.'.$ENV{'request.course.id'}.'.description'};	$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
$excel_sheet->write($row++,0,$description);	$excel_sheet->write($row++,0,$description);
#	#