--- loncom/interface/lonsyllabus.pm 2003/10/04 20:49:40 1.25
+++ loncom/interface/lonsyllabus.pm 2004/06/03 14:28:39 1.33
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Syllabus
#
-# $Id: lonsyllabus.pm,v 1.25 2003/10/04 20:49:40 www Exp $
+# $Id: lonsyllabus.pm,v 1.33 2004/06/03 14:28:39 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -36,6 +36,7 @@ use Apache::lontexconvert;
use Apache::lonfeedback;
use Apache::lonannounce;
use Apache::lonlocal;
+use Apache::lonhtmlcommon;
sub handler {
my $r = shift;
@@ -44,11 +45,16 @@ sub handler {
return OK if $r->header_only;
# ------------------------------------------------------------ Print the screen
- $r->print(< '.
@@ -129,15 +169,24 @@ ENDDOCUMENT
.' http://'.
$Apache::lonnet::hostname{$homeserver}.$r->uri.''.
&Apache::loncommon::help_open_topic('Syllabus_ExtLink').' Show Public View'.
+ ' '.
+&mt('Show Public View').''.
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
' '.
+ &mt('Edit').'');
+ }
}
if (($allowed) && ($ENV{'form.storesyl'})) {
foreach (keys %syllabusfields) {
my $field=$ENV{'form.'.$_};
+ chomp($field);
$field=~s/\s+$//s;
- $field=&Apache::lonfeedback::clear_out_html($field,1);
+ $field=~s/^\s+//s;
+ $field=~s/\ ');
+ $syllabus{'uploaded.domain'});
+ if ($target ne 'tex') {
+ $r->print(' ');
+ } else {
+ $r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.&mt('by').'\\\\ '.
+ &Apache::loncommon::plainname($syllabus{'uploaded.name'},
+ $syllabus{'uploaded.domain'}).'\\\\');
+ }
if ($allowed) {
- $r->print(''.$courseenv{'description'}.'
'.
- $Apache::lonnet::domaindescription{$cdom}.'
');
+ if ($target ne 'tex') {
+ $r->print(&Apache::lonhtmlcommon::htmlareaheaders().
+ ''.&Apache::loncommon::bodytag
+ ("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'}));
+ $r->print(''.$courseenv{'description'}.'
'.
+ $Apache::lonnet::domaindescription{$cdom}.'
');
+ } else {
+ $r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.
+ $Apache::lonnet::domaindescription{$cdom}.'}\\\\');
+ }
# -------------------------------------------------------------- Announcements?
$r->print(&Apache::lonannounce::showday(time,2,
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum)));
# -------------------------------------------------------- Get course personnel
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
- $r->print('');
+ if ($target ne 'tex') {
+ $r->print('
');
+ } else {
+ $r->print('\end{tabular}\\\\');
+ }
# ---------------------------------------------------------- Load syllabus info
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
my $allowed=0;
+ my $privileged=0;
# This handler might be called anonymously ...
# ----------------------------------------------------- Only if not public call
@@ -121,7 +157,11 @@ ENDDOCUMENT
# does this user have privileges to post, etc?
if ($ENV{'request.course.id'}) {
$allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
- if ($forcestudent) { $allowed=0; }
+ $privileged=$allowed;
+ if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
+ $forcestudent='student';
+ }
+ if ($forcestudent or $target eq 'tex') { $allowed=0; }
}
if ($allowed) {
$r->print('');
+ } else {
+ $r->print('\begin{tabular}{|c|c|}\hline');
+ }
foreach (sort keys %coursepersonnel) {
- $r->print('
');
+ if ($target ne 'tex') {
+ $r->print(''.$_.' ');
+ if ($target ne 'tex') {
+ $r->print(' ');
+ } else {
+ $r->print('\\\\ \hline');
}
- $r->print('');
}
- $r->print(''.$_.' ');
+ } else {
+ $r->print(' '.$_.'\\\\ ');
+ }
foreach (split(/\,/,$coursepersonnel{$_})) {
my ($puname,$pudom)=split(/\:/,$_);
- $r->print(' '.&Apache::loncommon::aboutmewrapper(
- &Apache::loncommon::plainname($puname,
- $pudom),$puname,$pudom));
+ if ($target ne 'tex') {
+ $r->print(' '.&Apache::loncommon::aboutmewrapper(
+ &Apache::loncommon::plainname($puname,
+ $pudom),$puname,$pudom));
+ } else {
+ $r->print(' '.&Apache::loncommon::plainname($puname,
+ $pudom).' ');
+ }
+ }
+ if ($target ne 'tex') {
+ $r->print('
$//s;
+ $field=&Apache::lonfeedback::clear_out_html($field,1);
$syllabus{$_}=$field;
if ($_ eq 'lll_includeurl') { # clean up included URLs
my $field='';
@@ -177,20 +226,26 @@ ENDDOCUMENT
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
my $lastmod=$syllabus{'uploaded.lastmodified'};
$lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
-
- $r->print(''.&mt('Uploaded').': '.
- &Apache::loncommon::aboutmewrapper(
- &Apache::loncommon::plainname($syllabus{'uploaded.name'},
+ my $who = &Apache::loncommon::aboutmewrapper(
+ &Apache::loncommon::plainname($syllabus{'uploaded.name'},
$syllabus{'uploaded.domain'}),$syllabus{'uploaded.name'},
- $syllabus{'uploaded.domain'}).
- ' '.&mt('Last updated').': '.
- $lastmod.
- ' '.&mt('Last updated').': '.
+ $lastmod.' '.&mt('by').' '.$who.
+ '
No syllabus information provided.
'); } - $r->print('