--- loncom/interface/lonsyllabus.pm 2004/02/13 15:01:29 1.27
+++ 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.27 2004/02/13 15:01:29 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('
');
# ---------------------------------------------------------- Load syllabus info
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
my $allowed=0;
@@ -141,8 +173,10 @@ ENDDOCUMENT
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
'');
+ } 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('Edit').''); + if ($target ne 'tex') { + $r->print('
'. + &mt('Edit').''); + } } if (($allowed) && ($ENV{'form.storesyl'})) { foreach (keys %syllabusfields) { @@ -192,9 +226,15 @@ ENDDOCUMENT &Apache::loncommon::plainname($syllabus{'uploaded.name'}, $syllabus{'uploaded.domain'}),$syllabus{'uploaded.name'}, $syllabus{'uploaded.domain'}); - $r->print('
'.&mt('Last updated').': | '. - $lastmod.' | '.&mt('by').' '.$who. - ' |
'); + 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('