--- loncom/interface/lonsyllabus.pm 2003/10/04 20:49:40 1.25
+++ loncom/interface/lonsyllabus.pm 2004/05/03 17:49:11 1.29
@@ -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.29 2004/05/03 17:49:11 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -44,11 +44,17 @@ sub handler {
return OK if $r->header_only;
# ------------------------------------------------------------ Print the screen
- $r->print(<'.$courseenv{'description'}.'
'.
- $Apache::lonnet::domaindescription{$cdom}.'
');
+ if ($target ne 'tex') {
+ $r->print(''.&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,6 +156,10 @@ ENDDOCUMENT
# does this user have privileges to post, etc?
if ($ENV{'request.course.id'}) {
$allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
+ $privileged=$allowed;
+ if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
+ $forcestudent='student';
+ }
if ($forcestudent) { $allowed=0; }
}
if ($allowed) {
@@ -129,9 +168,15 @@ ENDDOCUMENT
.' http://'.
$Apache::lonnet::hostname{$homeserver}.$r->uri.''.
&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'');
+ } 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('
Show Public View'. + '
'. +&mt('Show Public View').''. &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'). '
'); + } elsif ($privileged) { + if ($target ne 'tex') { + $r->print(''. + &mt('Edit').''); + } } if (($allowed) && ($ENV{'form.storesyl'})) { foreach (keys %syllabusfields) { @@ -177,17 +222,22 @@ 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. - ' |
'); + $syllabus{'uploaded.domain'}); + if ($target ne 'tex') { + $r->print('
'.&mt('Last updated').': | '. + $lastmod.' | '.&mt('by').' '.$who. + ' |
'); + } else { + $r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.&mt('by').'\\\\ '. + &Apache::loncommon::plainname($syllabus{'uploaded.name'}, + $syllabus{'uploaded.domain'}).'\\\\'); + } if ($allowed) { - $r->print('
'); } - $r->print(''); + if ($target ne 'tex') {$r->print('');} else {$r->print('\\\\');} } else { $r->print('No syllabus information provided.
'); } - $r->print('