version 1.24, 2006/04/10 21:40:08
|
version 1.25, 2006/05/30 12:46:09
|
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) = @_; |
Line 82 sub display_help_banner {
|
Line 84 sub display_help_banner {
|
} |
} |
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 283 sub display_help_mainpage {
|
Line 285 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'}) { |