version 1.10, 2003/02/10 15:19:43
|
version 1.12, 2003/02/10 20:03:13
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lontexconvert; |
use Apache::lontexconvert; |
|
use Apache::lonfeedback; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 96 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 107 ENDDOCUMENT
|
Line 109 ENDDOCUMENT
|
foreach (keys %syllabusfields) { |
foreach (keys %syllabusfields) { |
my $field=$ENV{'form.'.$_}; |
my $field=$ENV{'form.'.$_}; |
$field=~s/\s+$//s; |
$field=~s/\s+$//s; |
$field=~s/\</\<\;/g; |
$field=&Apache::lonfeedback::clear_out_html($field,1); |
$field=~s/\>/\>\;/g; |
|
$syllabus{$_}=$field; |
$syllabus{$_}=$field; |
if ($_ eq 'lll_includeurl') { # clean up included URLs |
if ($_ eq 'lll_includeurl') { # clean up included URLs |
my $field=''; |
my $field=''; |
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') { |