version 1.24, 2006/04/10 21:40:08
|
version 1.26, 2006/06/26 21:54:34
|
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 160 SCRIPT_TWO
|
Line 162 SCRIPT_TWO
|
<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' /> <b><font size="+1">LON-CAPA help/support</font></b></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 202 END
|
Line 195 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 283 sub display_help_mainpage {
|
Line 267 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'}) { |