version 1.17, 2004/12/20 19:58:41
|
version 1.18, 2004/12/20 21:11:41
|
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 177 END
|
Line 178 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 251 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', |
Line 292 END
|
Line 294 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 '') { |