version 1.11, 2003/02/10 16:22:28
|
version 1.12, 2003/02/10 20:03:13
|
Line 97 ENDDOCUMENT
|
Line 97 ENDDOCUMENT
|
if ($forcestudent) { $allowed=0; } |
if ($forcestudent) { $allowed=0; } |
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print('<p>This syllabus can be publically viewed at <tt>http://'. |
$r->print('<p>'. |
|
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'</p><p>This syllabus can be publically viewed at <tt>http://'. |
$Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'. |
$Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'. |
&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'. |
&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'. |
'<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'. |
'<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'. |
Line 171 ENDDOCUMENT
|
Line 172 ENDDOCUMENT
|
# embed style? |
# embed style? |
my ($curfext)=($filelink=~/\.([^\.]+)$/); |
my ($curfext)=($filelink=~/\.([^\.]+)$/); |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
if ($embstyle eq 'ssi') { |
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=&Apache::lonnet::ssi($filelink); |
$output= |
|
($filelink=~/^http\:/?&Apache::lonnet::externalssi($filelink): |
|
&Apache::lonnet::ssi($filelink)); |
$output=~s/^.*\<body[^\>]*\>//si; |
$output=~s/^.*\<body[^\>]*\>//si; |
$output=~s/\<\/body\s*\>.*$//si; |
$output=~s/\<\/body\s*\>.*$//si; |
} elsif ($embstyle eq 'img') { |
} elsif ($embstyle eq 'img') { |