Return to lonhelpmenu.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 31 use lib qw(/home/httpd/lib/perl); | Line 31 use lib qw(/home/httpd/lib/perl); |
use Apache::Constants qw(:common); | use Apache::Constants qw(:common); |
use Apache::loncommon(); | use Apache::loncommon(); |
sub handler | sub handler { |
{ | my ($r) = @_; |
my $r = shift; | |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['page','color','function','faq','bug','topic','component_help','origurl']); | &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['page','color','function','faq','bug','topic','component_help','origurl']); |
$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) { |