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.33, 2004/02/20 17:17:32
Line 365 sub handler {	Line 365 sub handler {
</script>	</script>
ENDSCRIPT	ENDSCRIPT
}	}
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb
	({href => $r->uri,
	title => &mt('Spreadsheet'),
	text => &mt('Spreadsheet'),
	faq => 134,
	bug => 'Spreadsheet'});
$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').	$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
	&Apache::lonhtmlcommon::breadcrumbs(undef,&mt('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 478 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",