loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.79.2.4, 2019/07/26 18:03:59	version 1.79.2.5, 2019/08/03 23:40:16
Line 663 sub print_request_receipt {	Line 663 sub print_request_receipt {
my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','REMOTE_ADDR','SERVER_ADDR','SERVER_NAME');	my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','REMOTE_ADDR','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');
my @cookievars = ('lonID');	my @cookievars;
	if ($ENV{'SERVER_PORT'} == 443) {
	@cookievars = ('lonLinkID');
	} else {
	@cookievars = ('lonID');
	}

my $admin = $Apache::lonnet::perlvar{'lonAdminMail'};	my $admin = $Apache::lonnet::perlvar{'lonAdminMail'};
my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};	my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
Line 1001 END	Line 1006 END
if ($$cookie{'lonID'} =~ /lonID=($LONCAPA::handle_re);/) {	if ($$cookie{'lonID'} =~ /lonID=($LONCAPA::handle_re);/) {
$cookies{'lonID'} = $1;	$cookies{'lonID'} = $1;
}	}
	if ($$cookie{'lonLinkID'} =~ /lonLinkID=([a-f0-9]+_linked);/) {
	$cookies{'lonLinkID'} = $1;
	}
if ($attachmentpath =~ m-/([^/]+)$-) {	if ($attachmentpath =~ m-/([^/]+)$-) {
$fname = $1;	$fname = $1;
$displaymsg .= '<br />'	$displaymsg .= '<br />'