loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2004/07/03 18:49:42	version 1.2, 2004/07/03 19:05:12
Line 3 package Apache::lonsupportreq;	Line 3 package Apache::lonsupportreq;
use strict;	use strict;
use lib qw(/home/httpd/lib/perl);	use lib qw(/home/httpd/lib/perl);
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon;	use Apache::loncommon();
use Apache::lonnet;	use Apache::lonnet();
use localenroll;	use localenroll;
use Apache::lonlocal;	use Apache::lonlocal;

Line 13 use Mail::Send;	Line 13 use Mail::Send;
# use MIME::Types;	# use MIME::Types;

sub handler {	sub handler {
my $r = shift;	my ($r) = @_;
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;

if ($r->header_only) {	if ($r->header_only) {