version 1.17, 2004/12/20 19:58:41
|
version 1.19, 2005/02/17 08:29:42
|
Line 30 use strict;
|
Line 30 use strict;
|
use lib qw(/home/httpd/lib/perl); |
use lib qw(/home/httpd/lib/perl); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
Line 136 function validmail(field) {
|
Line 137 function validmail(field) {
|
</script> |
</script> |
SCRIPT_TWO |
SCRIPT_TWO |
} |
} |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
<title>Help Banner</title> |
<title>Help Banner</title> |
<style type="text/css"> |
<style type="text/css"> |
Line 177 END
|
Line 179 END
|
if (($component_url) || ($ENV{'user.adv'})) { |
if (($component_url) || ($ENV{'user.adv'})) { |
if ($component_url) { |
if ($component_url) { |
$r->print(" |
$r->print(" |
<td align=\"center\"> <b><a href=\"$component_url\" target=\"bodyframe\">"); |
<td align=\"center\"><b><a href=\"$component_url\" target=\"bodyframe\">"); |
} elsif ($ENV{'user.adv'}) { |
} elsif ($ENV{'user.adv'}) { |
$r->print('<td align="center"> <b><a href="/adm/help/nohelptopic.html" target="bodyframe">'); |
$r->print('<td align="center"> <b><a href="/adm/help/nohelptopic.html" target="bodyframe">'); |
} |
} |
Line 250 sub display_help_mainpage {
|
Line 252 sub display_help_mainpage {
|
'coth' => 'Consult the inline help system for this topic.', |
'coth' => 'Consult the inline help system for this topic.', |
'cont' => 'Contact the LON-CAPA support team', |
'cont' => 'Contact the LON-CAPA support team', |
'suhr' => 'Submit a help request to the team responsible for LON-CAPA support at this institution.', |
'suhr' => 'Submit a help request to the team responsible for LON-CAPA support at this institution.', |
|
'stuq' => 'Questions about course content should not be directed to the support team, but instead should be sent to the course instructor', |
'faqo' => 'FAQ-O-Matic Help system', |
'faqo' => 'FAQ-O-Matic Help system', |
'tfaq' => 'The FAQ-O-Matic is a compendium of answers provided to common questions asked by users of LON-CAPA over the past couple of years.', |
'tfaq' => 'The FAQ-O-Matic is a compendium of answers provided to common questions asked by users of LON-CAPA over the past couple of years.', |
'lbug' => 'LON-CAPA Bugzilla bug/feature request tracking system', |
'lbug' => 'LON-CAPA Bugzilla bug/feature request tracking system', |
'crea' => 'Create an account for yourself in the LON-CAPA Bugzilla tracking system, if you wish to report bugs you have encountered in the LON-CAPA software,or if you have suggestions for improvements in LON-CAPA.', |
'crea' => 'Create an account for yourself in the LON-CAPA Bugzilla tracking system, if you wish to report bugs you have encountered in the LON-CAPA software,or if you have suggestions for improvements in LON-CAPA.', |
'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 $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
<title>$lt{'heco'}</title> |
<title>$lt{'heco'}</title> |
</head> |
</head> |
Line 292 END
|
Line 295 END
|
<ul> |
<ul> |
<li><a href=\"/adm/support?origurl=".&Apache::lonnet::escape($origurl)."&function=$function\">$lt{'cont'}</a></li> |
<li><a href=\"/adm/support?origurl=".&Apache::lonnet::escape($origurl)."&function=$function\">$lt{'cont'}</a></li> |
</ul> |
</ul> |
<p>$lt{'suhr'}</p> |
<p>$lt{'suhr'}"); |
"); |
unless ($ENV{'user.adv'}) { |
|
$r->print('<br /><b>'.&mt('Note').'</b>: '.$lt{'stuq'}.'. '.&mt('This can be done using the').' <a href="/adm/communicate" target="_top">'.&mt('COM').'</a> '.&mt('button, or the FDBK button when viewing a content page.')); |
|
} |
|
$r->print("</p>"); |
} |
} |
if ($faqbaseurl && $ENV{'user.adv'}) { |
if ($faqbaseurl && $ENV{'user.adv'}) { |
if (!defined($faq) ||$faq eq '') { |
if (!defined($faq) ||$faq eq '') { |