--- loncom/interface/lonhelpmenu.pm 2004/12/20 19:58:41 1.17 +++ loncom/interface/lonhelpmenu.pm 2005/06/03 15:47:29 1.21 @@ -30,6 +30,8 @@ use strict; use lib qw(/home/httpd/lib/perl); use Apache::Constants qw(:common); use Apache::loncommon(); +use Apache::lonlocal; +use Apache::lonnet; sub handler { my ($r) = @_; @@ -40,14 +42,14 @@ sub handler { if ($r->header_only) { return OK; } - my $color = $ENV{'form.color'}; - my $faq = $ENV{'form.faq'}; - my $bug = $ENV{'form.bug'}; - my $topic = $ENV{'form.topic'}; - my $function = $ENV{'form.function'}; - my $component_help = $ENV{'form.component_help'}; - my $origurl = $ENV{'form.origurl'}; - my $stayOnPage = $ENV{'form.stayonpage'}; + my $color = $env{'form.color'}; + my $faq = $env{'form.faq'}; + my $bug = $env{'form.bug'}; + my $topic = $env{'form.topic'}; + my $function = $env{'form.function'}; + my $component_help = $env{'form.component_help'}; + my $origurl = $env{'form.origurl'}; + my $stayOnPage = $env{'form.stayonpage'}; my $component_url = $component_help; if ($component_url) { $component_url = '/adm/help/'.$component_url.'.hlp'; @@ -59,9 +61,9 @@ sub handler { } my $faqbaseurl = $Apache::lonnet::perlvar{'FAQHost'}; my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; - if ($ENV{'form.page'} eq 'banner') { + if ($env{'form.page'} eq 'banner') { &display_help_banner($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage); - } elsif ($ENV{'form.page'} eq 'body') { + } elsif ($env{'form.page'} eq 'body') { &display_help_mainpage($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail); } return OK; @@ -136,8 +138,9 @@ function validmail(field) { SCRIPT_TWO } + my $html=&Apache::lonxml::xmlbegin(); $r->print(< +$html Help Banner