version 1.9, 2003/02/10 14:44:36
|
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::lonnet::hostname{$homeserver}.$r->uri.'</tt></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://'. |
'<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a></p>'); |
$Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'. |
|
&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'. |
|
'<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'. |
|
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'). |
|
'</p>'); |
} |
} |
if (($allowed) && ($ENV{'form.storesyl'})) { |
if (($allowed) && ($ENV{'form.storesyl'})) { |
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 168 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') { |
Line 181 ENDDOCUMENT
|
Line 187 ENDDOCUMENT
|
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print('<h3>'.$syllabusfields{$_}. |
$r->print('<h3>'.$syllabusfields{$_}. |
'</h3>URLs provided will be included into the page output.'. |
&Apache::loncommon::help_open_topic('Syllabus_URLs').'</h3>'. |
'<br />Format:<br /><pre>'. |
'<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'. |
"http://www.foo.org/foo.html\n/res/foo/author/foo.html\n</pre>". |
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>'); |
'<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a></p>'); |
|
} else { |
} else { |
$r->print($message); |
$r->print($message); |
} |
} |