loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.330, 2003/02/20 19:41:26	version 1.331, 2003/02/20 22:04:18
Line 811 sub ssi_body {	Line 811 sub ssi_body {
&ssi($filelink));	&ssi($filelink));
$output=~s/^.\<body[^\>]\>//si;	$output=~s/^.\<body[^\>]\>//si;
$output=~s/\<\/body\s\>.$//si;	$output=~s/\<\/body\s\>.$//si;
	$output=~
	s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
return $output;	return $output;
}	}