version 1.42, 2005/11/17 21:33:40
|
version 1.45, 2006/03/06 22:17:48
|
Line 41 use Apache::lonspeller();
|
Line 41 use Apache::lonspeller();
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
|
|
|
# --------------------------------------------------- Get course info from URL |
|
my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); |
|
# ----------------------------------------------------- Is this even a course? |
|
my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom); |
|
if ($homeserver eq 'no_host') { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
$r->print('<html><body>'.&mt('No syllabus available').'</body></html>'); |
|
return OK; |
|
} |
|
# ------------------------------------- There is such a course, get environment |
|
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); |
|
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
my $target=$env{'form.grade_target'}; |
my $target=$env{'form.grade_target'}; |
my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); |
|
my $feedurl='feed://'.$ENV{'HTTP_HOST'}.'/public/'.$cdom.'/'.$cnum.'/Course_Announcements.rss'; |
my $feedurl='feed://'.$ENV{'HTTP_HOST'}.'/public/'.$cdom.'/'.$cnum.'/Course_Announcements.rss'; |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
Line 61 ENDDOCUMENT
|
Line 73 ENDDOCUMENT
|
$r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'})); |
$r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'})); |
} |
} |
|
|
# Is this even a course? |
|
my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom); |
|
if ($homeserver eq 'no_host') { |
|
$r->print('</head><body>'.&mt('No syllabus available').'</body></html>'); |
|
return OK; |
|
} |
|
# --------------------------------------------------------- The syllabus fields |
# --------------------------------------------------------- The syllabus fields |
my %syllabusfields=&Apache::lonlocal::texthash( |
my %syllabusfields=&Apache::lonlocal::texthash( |
'aaa_instructorinfo' => 'Instructor Information', |
'aaa_instructorinfo' => 'Instructor Information', |
Line 101 ENDDOCUMENT
|
Line 107 ENDDOCUMENT
|
my $forceedit=''; |
my $forceedit=''; |
if ($env{'form.forceedit'}) { $forceedit='edit'; } |
if ($env{'form.forceedit'}) { $forceedit='edit'; } |
|
|
# ------------------------------------- There is such a course, get environment |
# ----------------------------------------------------------------- Make header |
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); |
|
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::lonhtmlcommon::htmlareaheaders(). |
$r->print(&Apache::lonhtmlcommon::htmlareaheaders(). |
'</head>'.&Apache::loncommon::bodytag |
'</head>'.&Apache::loncommon::bodytag |
Line 116 ENDDOCUMENT
|
Line 121 ENDDOCUMENT
|
# -------------------------------------------------------------- Announcements? |
# -------------------------------------------------------------- Announcements? |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::lonannounce::showday(time,2, |
$r->print(&Apache::lonannounce::showday(time,2, |
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum)). |
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum)). |
'<p>'.&mt('Course Announcement RSS Feed').': '. |
&Apache::lonrss::advertisefeeds($cnum,$cdom)); |
'<a href="'.$feedurl.'"><tt>'.$feedurl.'</tt></a>'); |
|
} else { |
} else { |
$r->print(&Apache::lonxml::xmlparse($r,'tex', |
$r->print(&Apache::lonxml::xmlparse($r,'tex', |
&Apache::lonannounce::showday(time,2, |
&Apache::lonannounce::showday(time,2, |