--- loncom/interface/lonsyllabus.pm 2004/02/13 15:01:29 1.27
+++ loncom/interface/lonsyllabus.pm 2004/05/04 14:14:58 1.30
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Syllabus
#
-# $Id: lonsyllabus.pm,v 1.27 2004/02/13 15:01:29 www Exp $
+# $Id: lonsyllabus.pm,v 1.30 2004/05/04 14:14:58 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -44,11 +44,16 @@ sub handler {
return OK if $r->header_only;
# ------------------------------------------------------------ Print the screen
- $r->print(< '.
@@ -141,8 +172,10 @@ ENDDOCUMENT
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
' '.
-&mt('Edit').'');
+ if ($target ne 'tex') {
+ $r->print(' '.
+ &mt('Edit').'');
+ }
}
if (($allowed) && ($ENV{'form.storesyl'})) {
foreach (keys %syllabusfields) {
@@ -192,9 +225,15 @@ ENDDOCUMENT
&Apache::loncommon::plainname($syllabus{'uploaded.name'},
$syllabus{'uploaded.domain'}),$syllabus{'uploaded.name'},
$syllabus{'uploaded.domain'});
- $r->print(' ');
+ 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::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('
');
# ---------------------------------------------------------- Load syllabus info
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
my $allowed=0;
@@ -128,7 +159,7 @@ ENDDOCUMENT
if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
$forcestudent='student';
}
- if ($forcestudent) { $allowed=0; }
+ 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('
');
+ } else {
+ $r->print('\end{tabular}\\\\');
}
- $r->print(''.$_.' ');
+ if ($target ne 'tex') {
+ $r->print(' ');
+ if ($target ne 'tex') {
+ $r->print('');
+ } else {
+ $r->print('\\\\ \hline');
+ }
+ }
+ if ($target ne 'tex') {
+ $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).' ');
+ }
}
- $r->print(' '.&mt('Last updated').': '.
- $lastmod.' '.&mt('by').' '.$who.
- ' '.&mt('Last updated').': '.
+ $lastmod.' '.&mt('by').' '.$who.
+ '
No syllabus information provided.
'); } - $r->print('