version 1.12, 2003/02/10 20:03:13
|
version 1.13, 2003/02/20 19:41:26
|
Line 174 ENDDOCUMENT
|
Line 174 ENDDOCUMENT
|
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
if (($embstyle eq 'ssi') || ($curfext=~/\/$/)) { |
if (($embstyle eq 'ssi') || ($curfext=~/\/$/)) { |
# make ssi call and remove everything but the body contents |
# make ssi call and remove everything but the body contents |
$output= |
$output=&Apache::lonnet::ssi_body($filelink); |
($filelink=~/^http\:/?&Apache::lonnet::externalssi($filelink): |
|
&Apache::lonnet::ssi($filelink)); |
|
$output=~s/^.*\<body[^\>]*\>//si; |
|
$output=~s/\<\/body\s*\>.*$//si; |
|
} elsif ($embstyle eq 'img') { |
} elsif ($embstyle eq 'img') { |
# embed as an image |
# embed as an image |
$output='<img src="'.$filelink.'" />'; |
$output='<img src="'.$filelink.'" />'; |