version 1.22, 2006/03/21 18:37:51
|
version 1.27, 2006/06/26 22:06:19
|
Line 32 use Apache::Constants qw(:common);
|
Line 32 use Apache::Constants qw(:common);
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['page','color','function','faq','bug','topic','component_help','origurl','stayonpage']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['page','function','faq','bug','topic','component_help','origurl','stayonpage']); |
&Apache::loncommon::content_type($r,'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 = $env{'form.color'}; |
|
my $faq = $env{'form.faq'}; |
my $faq = $env{'form.faq'}; |
my $bug = $env{'form.bug'}; |
my $bug = $env{'form.bug'}; |
my $topic = $env{'form.topic'}; |
my $topic = $env{'form.topic'}; |
Line 62 sub handler {
|
Line 63 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,$stayOnPage); |
&display_help_banner($r,$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); |
&display_help_mainpage($r,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail); |
} |
} |
return OK; |
return OK; |
} |
} |
|
|
sub display_help_banner { |
sub display_help_banner { |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_; |
my ($r,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_; |
my $fontcolor = &Apache::loncommon::designparm($function.'.font'); |
|
my $alinkcolor = &Apache::loncommon::designparm($function.'.alink'); |
|
my $vlinkcolor = &Apache::loncommon::designparm($function.'.vlink'); |
|
my $pagecolor = &Apache::loncommon::designparm($function.'.pgbg'); |
|
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
|
my $location=&Apache::loncommon::lonhttpdurl("/adm"); |
my $location=&Apache::loncommon::lonhttpdurl("/adm"); |
if (($tablecolor eq '') || ($tablecolor eq '#FFFFFF')) { |
|
$tablecolor = '#EEEE99'; |
|
} |
|
my $scripttag = ''; |
my $scripttag = ''; |
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
my $displayurl = &Apache::lonnet::escape($origurl); |
my $displayurl = &escape($origurl); |
$scripttag = (<<"SCRIPT_ONE"); |
$scripttag = (<<"SCRIPT_ONE"); |
<script> |
<script> |
function gohelpdesk() { |
function gohelpdesk() { |
Line 137 function validmail(field) {
|
Line 130 function validmail(field) {
|
SCRIPT_TWO |
SCRIPT_TWO |
} |
} |
|
|
my $html=&Apache::lonxml::xmlbegin(); |
my %body_layout = |
my $body_layout = 'rightmargin="0" leftmargin="0" marginwidth="0" topmargin="1" marginheight="1"'; |
('rightmargin' => "0", |
|
'leftmargin' => "0", |
|
'marginwidth' => "0", |
|
'topmargin' => "1", |
|
'marginheight' => "1"); |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('',$scripttag, |
&Apache::loncommon::start_page('',$scripttag, |
{'function' => $function, |
{'function' => $function, |
'add_entries' => $body_layout, |
'add_entries' => \%body_layout, |
'only_body' => 1,}); |
'only_body' => 1,}); |
$r->print($start_page); |
$r->print($start_page); |
|
|
if ($stayOnPage) { |
my $width = ($stayOnPage) ? '700' : '600'; |
$r->print('<table width="700" border="0" cellspacing="0" cellpadding="0" height="55">'); |
|
} else { |
$r->print('<table id="LC_helpmenu" width="'.$width.'">'); |
$r->print('<table width="600" border="0" cellspacing="0" cellpadding="0" height="55">'); |
|
} |
|
$r->print(<<END); |
$r->print(<<END); |
<tr height="50"> |
<tr height="50"> |
<td width='5'> </td> |
<td width='5'> </td> |
<td> |
<td> |
<fieldset><legend><img src="$location/lonIcons/minilogo.gif" height='20' width='29' valign='bottom' /> <b><font size="+1">LON-CAPA help/support</font></b></legend> |
<fieldset><legend><img src="$location/lonIcons/minilogo.gif" height='20' width='29' valign='bottom' /> LON-CAPA help/support</legend> |
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000"> |
<table id="LC_helpmenu_links"> |
<tr> |
<tr> |
<td> |
|
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000"> |
|
<tr> |
|
<td> |
|
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff"> |
|
<tr> |
|
<td> |
|
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> |
|
<tr bgcolor="$tablecolor"> |
|
END |
END |
if ($component_url) { |
if ($component_url) { |
$r->print("<td align=\"center\"><b><a href=\"$component_url\" target=\"bodyframe\">". |
$r->print("<td align=\"center\"><b><a href=\"$component_url\" target=\"bodyframe\">". |
Line 198 END
|
Line 185 END
|
END |
END |
} |
} |
$r->print(<<END); |
$r->print(<<END); |
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
</tr> |
</table> |
</table> |
</fieldset> |
</fieldset> |
Line 222 END
|
Line 200 END
|
} |
} |
|
|
sub display_help_mainpage { |
sub display_help_mainpage { |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_; |
my ($r,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_; |
|
|
my %lt =&Apache::lonlocal::texthash( |
my %lt =&Apache::lonlocal::texthash( |
'topp' => 'Topic Page', |
'topp' => 'Topic Page', |
Line 244 sub display_help_mainpage {
|
Line 222 sub display_help_mainpage {
|
'suim' => ' Suggested improvements may include additional functionality, improved usability, or changes to wording used in LON-CAPA pages, including the embedded help system.' |
'suim' => ' Suggested improvements may include additional functionality, improved usability, or changes to wording used in LON-CAPA pages, including the embedded help system.' |
); |
); |
|
|
|
my %body_layout = |
|
('topmargin' => "0", |
|
'marginheight' => "0"); |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Help Content',undef, |
&Apache::loncommon::start_page('Help Content',undef, |
{'function' => $function, |
{'function' => $function, |
'add_entries' => 'topmargin="0" marginheight="0"', |
'add_entries' => \%body_layout, |
'only_body' => 1,}); |
'only_body' => 1,}); |
$r->print($start_page); |
$r->print($start_page); |
$r->print($lt{'chen'}); |
$r->print($lt{'chen'}); |
Line 276 sub display_help_mainpage {
|
Line 257 sub display_help_mainpage {
|
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
$r->print(" |
$r->print(" |
<ul> |
<ul> |
<li><a href=\"/adm/support?origurl=".&Apache::lonnet::escape($origurl)."&function=$function\">$lt{'cont'}</a></li> |
<li><a href=\"/adm/support?origurl=".&escape($origurl)."&function=$function\">$lt{'cont'}</a></li> |
</ul> |
</ul> |
<p>$lt{'suhr'}"); |
<p>$lt{'suhr'}"); |
unless ($env{'user.adv'}) { |
unless ($env{'user.adv'}) { |