loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.329, 2003/02/13 22:22:01	version 1.330, 2003/02/20 19:41:26
Line 804 sub repcopy {	Line 804 sub repcopy {
}	}
}	}

	# ------------------------------------------------ Get server side include body
	sub ssi_body {
	my $filelink=shift;
	my $output=($filelink=~/^http\:/?&externalssi($filelink):
	&ssi($filelink));
	$output=~s/^.\<body[^\>]\>//si;
	$output=~s/\<\/body\s\>.$//si;
	return $output;
	}

# --------------------------------------------------------- Server Side Include	# --------------------------------------------------------- Server Side Include

sub ssi {	sub ssi {