version 1.1, 2004/07/03 18:49:42
|
version 1.5, 2004/07/03 19:44:53
|
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) { |
return OK; |
return OK; |
} |
} |
my $color = &Apache::lonnet::unescape($ENV{'form.color'}); |
my $color = $ENV{'form.color'}; |
my $faq = &Apache::lonnet::unescape($ENV{'form.faq'}); |
my $faq = $ENV{'form.faq'}; |
my $bug = &Apache::lonnet::unescape($ENV{'form.bug'}); |
my $bug = $ENV{'form.bug'}; |
my $topic = &Apache::lonnet::unescape($ENV{'form.topic'}); |
my $topic = $ENV{'form.topic'}; |
my $function = &Apache::lonnet::unescape($ENV{'form.function'}); |
my $function = $ENV{'form.function'}; |
my $component_help = &Apache::lonnet::unescape($ENV{'form.component_help'}); |
my $component_help = $ENV{'form.component_help'}; |
my $origurl = $ENV{'form.origurl'}; |
my $origurl = $ENV{'form.origurl'}; |
my $component_url = $component_help; |
my $component_url = $component_help; |
if ($component_url) { |
if ($component_url) { |
Line 60 sub handler
|
Line 59 sub handler
|
my $faqbaseurl = $Apache::lonnet::perlvar{'FAQHost'}; |
my $faqbaseurl = $Apache::lonnet::perlvar{'FAQHost'}; |
my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
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); |
&display_help_banner($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail); |
} 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); |
&display_help_mainpage($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail); |
} |
} |
return OK; |
return OK; |
} |
} |
Line 70 sub handler
|
Line 69 sub handler
|
sub display_help_banner { |
sub display_help_banner { |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_; |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_; |
my $bodytag = &Apache::loncommon::bodytag('',$function,'rightmargin="0" leftmargin="0" marginwidth="0" topmargin="1" marginheight="1"',1); |
my $bodytag = &Apache::loncommon::bodytag('',$function,'rightmargin="0" leftmargin="0" marginwidth="0" topmargin="1" marginheight="1"',1); |
|
$bodytag=~s/[\n\r]/ /g; |
my $fontcolor = &Apache::loncommon::designparm($function.'.font'); |
my $fontcolor = &Apache::loncommon::designparm($function.'.font'); |
my $alinkcolor = &Apache::loncommon::designparm($function.'.alink'); |
my $alinkcolor = &Apache::loncommon::designparm($function.'.alink'); |
my $vlinkcolor = &Apache::loncommon::designparm($function.'.vlink'); |
my $vlinkcolor = &Apache::loncommon::designparm($function.'.vlink'); |
Line 167 END
|
Line 167 END
|
sub display_help_mainpage { |
sub display_help_mainpage { |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_; |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_; |
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1); |
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1); |
|
$bodytag=~s/[\n\r]/ /g; |
$r->print(<<END); |
$r->print(<<END); |
<html> |
<html> |
<head> |
<head> |