version 1.31, 2006/03/23 22:01:57
|
version 1.34, 2006/04/13 19:07:11
|
Line 35 use Apache::Constants qw(:common);
|
Line 35 use Apache::Constants qw(:common);
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonacc(); |
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
Line 46 sub handler {
|
Line 47 sub handler {
|
} |
} |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']); |
if ($r->uri eq '/adm/helpdesk') { |
if ($r->uri eq '/adm/helpdesk') { |
&Apache::loncommon::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
} |
} |
my $function = $env{'form.function'}; |
my $function = $env{'form.function'}; |
my $origurl = &Apache::lonnet::unescape($env{'form.origurl'}); |
my $origurl = &Apache::lonnet::unescape($env{'form.origurl'}); |
Line 197 function initialize_codes() {
|
Line 198 function initialize_codes() {
|
|
|
my $js = '<script type"text/javascript">'."\n$scripttag\n$jscript\n". |
my $js = '<script type"text/javascript">'."\n$scripttag\n$jscript\n". |
'</script>'; |
'</script>'; |
my $add_entries = |
my %add_entries = (topmargin => "0", |
'topmargin="0" marginheight="0" onLoad="initialize_codes()"', |
marginheight => "0", |
|
onLoad =>"initialize_codes()",); |
|
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Support Request',$js, |
&Apache::loncommon::start_page('Support Request',$js, |
{ 'function' => $function, |
{ 'function' => $function, |
'add_entries' => $add_entries, |
'add_entries' => \%add_entries, |
'only_body' => 1,}); |
'only_body' => 1,}); |
$r->print($start_page); |
$r->print($start_page); |
|
|
Line 643 sub print_request_receipt {
|
Line 646 sub print_request_receipt {
|
my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id'); |
my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id'); |
my @cookievars = ('lonID'); |
my @cookievars = ('lonID'); |
|
|
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1); |
|
my $admin = $Apache::lonnet::perlvar{'lonAdminMail'}; |
my $admin = $Apache::lonnet::perlvar{'lonAdminMail'}; |
my $to = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
my $to = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
my $from = $admin; |
my $from = $admin; |
Line 694 Date/Time: $reporttime
|
Line 696 Date/Time: $reporttime
|
<font color="$fontcolor">URL: </font><font color="$vlinkcolor">$env{'form.sourceurl'}</font><br /> |
<font color="$fontcolor">URL: </font><font color="$vlinkcolor">$env{'form.sourceurl'}</font><br /> |
<font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br /> |
<font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br /> |
|; |
|; |
my $html=&Apache::lonxml::xmlbegin(); |
|
my $head = &Apache::loncommon::head('LON-CAPA support request recorded'); |
my $start_page = |
|
&Apache::loncommon::start_page('Support request recorded',undef, |
|
{'function' => $function, |
|
'add_entries' => { |
|
topmargin => "0", |
|
marginheight => "0", |
|
}, |
|
'only_body' => 1,}); |
|
|
$r->print(<<"END"); |
$r->print(<<"END"); |
$html |
$start_page |
$head |
|
$bodytag |
|
<form name="logproblem"> |
<form name="logproblem"> |
<input type="hidden" name="action" value="result" /> |
<input type="hidden" name="action" value="result" /> |
</form> |
</form> |