loncom/interface/spreadsheet/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

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

version 1.24, 2003/09/16 15:41:16	version 1.25, 2003/09/29 14:00:21
Line 62 use Apache::assesscalc();	Line 62 use Apache::assesscalc();
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
	use Apache::lonlocal;
use HTML::Entities();	use HTML::Entities();

##	##
Line 208 sub handler {	Line 209 sub handler {
# HTML Header	# HTML Header
#	#
if ($r->header_only) {	if ($r->header_only) {
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}
Line 297 sub handler {	Line 298 sub handler {
#	#
# Open page, try to prevent browser cache.	# Open page, try to prevent browser cache.
#	#
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;

Line 456 END	Line 457 END
#	#
$r->print("<table><tr>");	$r->print("<table><tr>");
if ($sheettype eq 'classcalc') {	if ($sheettype eq 'classcalc') {
$r->print('<td><input type="submit" value="Generate Spreadsheet" />'.	$r->print('<td><input type="submit" value="'.
	&mt('Generate Spreadsheet').'" />'.
'</td>');	'</td>');
}	}
if ($allowed_to_view) {	if ($allowed_to_view) {