loncom/interface/spreadsheet/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.30, 2003/11/21 18:18:04	version 1.32, 2004/01/15 03:18:20
Line 366 sub handler {	Line 366 sub handler {
ENDSCRIPT	ENDSCRIPT
}	}
$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').	$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
	&Apache::loncommon::help_open_faq(134).
	&Apache::loncommon::help_open_bug('Spreadsheet').
'<form action="'.$r->uri.'" name="sheet" method="post">');	'<form action="'.$r->uri.'" name="sheet" method="post">');
$r->print(&hiddenfield('sname' ,$ENV{'form.sname'}).	$r->print(&hiddenfield('sname' ,$ENV{'form.sname'}).
&hiddenfield('sdomain',$ENV{'form.sdomain'}).	&hiddenfield('sdomain',$ENV{'form.sdomain'}).
Line 470 END	Line 472 END
$r->rflush();	$r->rflush();
#	#
$r->print("<table><tr>");	$r->print("<table><tr>");
if ($sheettype eq 'classcalc') {	$r->print('<td><input type="submit" value="'.
$r->print('<td><input type="submit" value="'.	&mt('Generate Spreadsheet').'" />'.
&mt('Generate Spreadsheet').'" />'.	'</td>');
'</td>');
}
if ($allowed_to_view) {	if ($allowed_to_view) {
$r->print('<td>'.	$r->print('<td>'.
&Apache::loncommon::help_open_topic("Spreadsheet_About",	&Apache::loncommon::help_open_topic("Spreadsheet_About",