|
version 1.11, 2003/02/10 16:22:28
|
version 1.13, 2003/02/20 19:41:26
|
|
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=&Apache::lonnet::ssi_body($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.'" />'; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonsyllabus.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface