loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1535, 2025/02/07 02:06:07	version 1.1537, 2025/03/19 14:44:04
Line 3734 sub ssi_body {	Line 3734 sub ssi_body {
$output=~s\|//(\s<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s(-->)?\s\|\|gs;	$output=~s\|//(\s<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s(-->)?\s\|\|gs;
$output=~s/^.?\<body[^\>]\>//si;	$output=~s/^.?\<body[^\>]\>//si;
$output=~s/\<\/body\s\>.?$//si;	$output=~s/\<\/body\s\>.?$//si;
	$output=~s{\Q<div class="LC_landmark" role="main">\E}{<div>}gs;
if (wantarray) {	if (wantarray) {
return ($output, $response);	return ($output, $response);
} else {	} else {
Line 15116 sub whichuser {	Line 15117 sub whichuser {
$courseid=$tmp_courseid;	$courseid=$tmp_courseid;
($domain)=&get_env_multiple('form.grade_domain');	($domain)=&get_env_multiple('form.grade_domain');
($name)=&get_env_multiple('form.grade_username');	($name)=&get_env_multiple('form.grade_username');
	if ($name eq 'public' && $domain eq 'public') {
	$publicuser = 1;
	}
return ($symb,$courseid,$domain,$name,$publicuser);	return ($symb,$courseid,$domain,$name,$publicuser);
}	}
}	}
Line 15132 sub whichuser {	Line 15136 sub whichuser {
$env{'form.username'}.=time.rand(10000000);	$env{'form.username'}.=time.rand(10000000);
}	}
$name.=$env{'form.username'};	$name.=$env{'form.username'};
	$publicuser = 1;
}	}
return ($symb,$courseid,$domain,$name,$publicuser);	return ($symb,$courseid,$domain,$name,$publicuser);