loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1536, 2025/02/18 19:30:43	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 {