version 1.31, 2006/03/23 22:01:57
|
version 1.32, 2006/03/23 22:32:11
|
Line 643 sub print_request_receipt {
|
Line 643 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 693 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, |
|
'addentries' => |
|
'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> |