loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.101, 2020/12/18 15:23:02	version 1.103, 2022/01/01 19:53:45
Line 68 sub handler {	Line 68 sub handler {
}	}
my $origurl = $env{'form.origurl'};	my $origurl = $env{'form.origurl'};
if ($origurl =~ m{^https?://[^/]+(.*)$}) {	if ($origurl =~ m{^https?://[^/]+(.*)$}) {
$origurl =~ $1;	$origurl = $1;
}	}
$origurl =~ s/(`)//g;	$origurl =~ s/(`)//g;
$origurl =~ s/\$/$\$$/g;	$origurl =~ s/\$/$\$$/g;
Line 1147 END	Line 1147 END
}	}
if ($ip ne '') {	if ($ip ne '') {
$envmsg .= '<span class="LC_helpform_receipt_cat">'.	$envmsg .= '<span class="LC_helpform_receipt_cat">'.
} 'REMOTE_ADDR</span>: '.$ip.', ';	'REMOTE_ADDR</span>: '.$ip.', ';
	}
foreach my $var (@envvars) {	foreach my $var (@envvars) {
if ($env{$var} ne '') {	if ($env{$var} ne '') {
$envmsg .= '<span class="LC_helpform_receipt_cat">'.	$envmsg .= '<span class="LC_helpform_receipt_cat">'.