loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.82, 2016/02/19 02:39:07	version 1.83, 2016/08/31 18:59:31
Line 80 sub handler {	Line 80 sub handler {

sub print_request_form {	sub print_request_form {
my ($r,$origurl,$function) = @_;	my ($r,$origurl,$function) = @_;
my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,	my ($os,$browser,$bversion,$uname,$udom,$uhome,$urole,$usec,$email,$cid,
$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server,	$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server,
$formname,$public,$homeserver,$knownuser,$captcha_form,$captcha_error,	$formname,$public,$homeserver,$knownuser,$captcha_form,$captcha_error,
$captcha,$recaptcha_version);	$captcha,$recaptcha_version);
Line 89 sub print_request_form {	Line 89 sub print_request_form {
$os = $env{'browser.os'};	$os = $env{'browser.os'};
$browser = $env{'browser.type'};	$browser = $env{'browser.type'};
$bversion = $env{'browser.version'};	$bversion = $env{'browser.version'};
$uhost = $env{'request.host'};
if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) {	if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) {
$public = 1;	$public = 1;
} else {	} else {