![[BACK]](/icons/back.gif){kind=icon}
Return to lonhelpmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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) { |