loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1003, 2009/06/11 19:19:57	version 1.1004, 2009/07/17 13:55:10
Line 1866 sub ssi_body {	Line 1866 sub ssi_body {
if ($filelink=~/^https?\:/) {	if ($filelink=~/^https?\:/) {
($output,$response)=&externalssi($filelink);	($output,$response)=&externalssi($filelink);
} else {	} else {
	$filelink .= $filelink=~/\?/ ? '&' : '?';
	$filelink .= 'inhibitmenu=yes';
($output,$response)=&ssi($filelink,%form);	($output,$response)=&ssi($filelink,%form);
}	}
$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;