loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.380, 2003/06/17 01:38:14	version 1.381, 2003/06/18 19:10:23
Line 982 sub repcopy {	Line 982 sub repcopy {

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