version 1.22, 2006/03/21 18:37:51
|
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 137 function validmail(field) {
|
Line 139 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); |
|
|
Line 244 sub display_help_mainpage {
|
Line 250 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 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'}) { |