version 1.79.2.9, 2022/01/01 19:55:31
|
version 1.79.2.10, 2022/01/19 13:57:19
|
Line 393 ENDJS
|
Line 393 ENDJS
|
$i = $num%2; |
$i = $num%2; |
if ($knownuser) { |
if ($knownuser) { |
if ($homeserver) { |
if ($homeserver) { |
unless ($helpform{'cc'} eq 'no') { |
my $ip = &Apache::lonnet::get_requestor_ip($r); |
|
my %setters; |
|
my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) = |
|
&Apache::loncommon::blockcheck(\%setters,'com',$ip); |
|
unless (($helpform{'cc'} eq 'no') || ($by_ip)) { |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'emac'},undef,$css[$i]). |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'emac'},undef,$css[$i]). |
'<input type="text" size="50" name="cc" value="" /><br />'."\n". |
'<input type="text" size="50" name="cc" value="" /><br />'."\n". |
&Apache::lonhtmlcommon::row_closure(); |
&Apache::lonhtmlcommon::row_closure(); |
Line 663 sub print_request_receipt {
|
Line 667 sub print_request_receipt {
|
return; |
return; |
} |
} |
} |
} |
my $ip = &Apache::lonnet::get_requestor_ip(); |
my $ip = &Apache::lonnet::get_requestor_ip($r); |
|
my %setters; |
|
my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) = |
|
&Apache::loncommon::blockcheck(\%setters,'com',$ip); |
my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','SERVER_ADDR','SERVER_NAME'); |
my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','SERVER_ADDR','SERVER_NAME'); |
my @envvars = ('browser.os','browser.type','browser.version','user.home','request.role'); |
my @envvars = ('browser.os','browser.type','browser.version','user.home','request.role'); |
my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id'); |
my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id'); |
Line 709 sub print_request_receipt {
|
Line 716 sub print_request_receipt {
|
unless ($helpform{'course'} eq 'no') { |
unless ($helpform{'course'} eq 'no') { |
$formvars{'course'} = 1; |
$formvars{'course'} = 1; |
} |
} |
unless ($helpform{'cc'} eq 'no') { |
unless (($helpform{'cc'} eq 'no') || ($by_ip)) { |
$formvars{'cc'} = 1; |
$formvars{'cc'} = 1; |
} |
} |
unless ($helpform{'screenshot'} eq 'no') { |
unless ($helpform{'screenshot'} eq 'no') { |