loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.85, 2003/09/08 14:30:47	version 1.86, 2003/09/29 16:09:20
Line 42 use Apache::loncommon();	Line 42 use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::Constants qw(:common :http REDIRECT);	use Apache::Constants qw(:common :http REDIRECT);
use Spreadsheet::WriteExcel;	use Spreadsheet::WriteExcel;
	use Apache::lonlocal;

###############################################################	###############################################################
###############################################################	###############################################################
Line 1801 The response to the request is governed	Line 1802 The response to the request is governed
sub handler {	sub handler {
my $r=shift;	my $r=shift;
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 1822 sub handler {	Line 1823 sub handler {
$r->content_type('text/csv');	$r->content_type('text/csv');
} else {	} else {
# Start page	# Start page
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
$r->print(&header());	$r->print(&header());
}	}