version 1.77, 2009/02/19 17:32:39
|
version 1.78, 2009/02/19 18:55:53
|
Line 168 ENDSCRIPT
|
Line 168 ENDSCRIPT
|
$r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'. |
$r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'. |
&Apache::lonnet::domain($cdom,'description').'}\\\\'); |
&Apache::lonnet::domain($cdom,'description').'}\\\\'); |
} |
} |
# -------------------------------------------------------------- Announcements? |
|
my $day = &Apache::lonannounce::showday(time,2, |
|
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum)); |
|
if ($target ne 'tex') { |
|
$r->print($day. &Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit)); |
|
} else { |
|
$r->print(&Apache::lonxml::xmlparse($r,'tex',$day)); |
|
} |
|
|
|
# -------------------------------------------------------- Get course personnel |
# -------------------------------------------------------- Get course personnel |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
Line 220 ENDSCRIPT
|
Line 211 ENDSCRIPT
|
} else { |
} else { |
$r->print('\end{tabular}\\\\'); |
$r->print('\end{tabular}\\\\'); |
} |
} |
|
# -------------------------------------------------------------- Announcements? |
|
my $day = &Apache::lonannounce::showday(time,2, |
|
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum)); |
|
if ($target ne 'tex') { |
|
&Apache::lontemplate::print_template($r,'RSS Feeds and Blogs',&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit),1,'LC_ContentBoxSpecial'); |
|
} else { |
|
$r->print(&Apache::lonxml::xmlparse($r,'tex',$day)); |
|
} |
# ---------------------------------------------------------- Load syllabus info |
# ---------------------------------------------------------- Load syllabus info |
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum); |
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum); |
my $allowed=0; |
my $allowed=0; |