loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.93, 2017/10/13 20:37:35	version 1.94, 2019/06/16 05:33:45
Line 67 sub handler {	Line 67 sub handler {
}	}
}	}
my $origurl = $env{'form.origurl'};	my $origurl = $env{'form.origurl'};
$origurl =~ s{^https?://}{};	if ($origurl =~ m{^https?://[^/]+(.*)$}) {
	$origurl =~ $1;
	}
$origurl =~ s/(`)//g;	$origurl =~ s/(`)//g;
$origurl =~ s/\$/$\$$/g;	$origurl =~ s/\$/$\$$/g;
my $command = $env{'form.command'};	my $command = $env{'form.command'};
Line 887 $lt{'date'}: $reporttime	Line 889 $lt{'date'}: $reporttime
$env{'form.'.$field} =~ s/\s+$//;	$env{'form.'.$field} =~ s/\s+$//;
}	}
if ($env{'form.uname'} =~ /^$match_username$/) {	if ($env{'form.uname'} =~ /^$match_username$/) {
$requdom = $env{'form.udom'};	$requname = $env{'form.uname'};
}	}
if ($env{'form.udom'} =~ /^$match_domain$/) {	if ($env{'form.udom'} =~ /^$match_domain$/) {
$requdom = $env{'form.udom'};	$requdom = $env{'form.udom'};