version 1.47, 2006/03/07 21:36:20
|
version 1.48, 2006/03/15 19:41:26
|
Line 56 sub handler {
|
Line 56 sub handler {
|
if ($homeserver eq 'no_host') { |
if ($homeserver eq 'no_host') { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print('<html><body>'.&mt('No syllabus available').'</body></html>'); |
$r->print(&Apache::loncommon::startpage('No syllabus available'). |
|
&mt('No syllabus available'). |
|
&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
# ------------------------------------- There is such a course, get environment |
# ------------------------------------- There is such a course, get environment |
Line 66 sub handler {
|
Line 68 sub handler {
|
my $feedurl='http://'.$ENV{'HTTP_HOST'}.'/public/'.$cdom.'/'.$cnum.'/Course_Announcements.rss'; |
my $feedurl='http://'.$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(); |
|
my $head=&Apache::loncommon::headtag('The LearningOnline Network with CAPA'); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
$html |
$html |
<head> |
$head |
<title>The LearningOnline Network with CAPA</title> |
|
<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$feedurl" /> |
<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$feedurl" /> |
ENDDOCUMENT |
ENDDOCUMENT |
} else { |
} else { |
Line 85 ENDDOCUMENT
|
Line 87 ENDDOCUMENT
|
# -------------------------------------------------- Let's see who handles this |
# -------------------------------------------------- Let's see who handles this |
my $externalsyllabus=$courseenv{'externalsyllabus'}; |
my $externalsyllabus=$courseenv{'externalsyllabus'}; |
if ($externalsyllabus=~/\w/) { |
if ($externalsyllabus=~/\w/) { |
$r->print('</head>'); |
$r->print(&Apache::loncommon::endheadtag()); |
if ($env{'form.wrapperdisplay'} eq 'menu') { |
if ($env{'form.wrapperdisplay'} eq 'menu') { |
# |
# |
# Producing the menu buttons |
# Producing the menu buttons |
# |
# |
$r->print('<body bgcolor="#FFFFFF">'. |
$r->print('<body bgcolor="#FFFFFF">'. |
&Apache::lonmenu::menubuttons(1,'web',1).'</body></html>'); |
&Apache::lonmenu::menubuttons(1,'web',1). |
|
&Apache::loncommon::end_page()); |
} else { |
} else { |
if ($env{'browser.interface'} eq 'textual') { |
if ($env{'browser.interface'} eq 'textual') { |
# |
# |
# ssi-based rendering for text-based interface |
# ssi-based rendering for text-based interface |
# |
# |
$r->print('<body bgcolor="#FFFFFF">'. |
$r->print('<body bgcolor="#FFFFFF">'. |
&Apache::lonmenu::menubuttons(1). |
&Apache::lonmenu::menubuttons(1). |
&Apache::lonnet::ssi_body($externalsyllabus).'</body></html>'); |
&Apache::lonnet::ssi_body($externalsyllabus). |
|
&Apache::loncommon::end_page()); |
} elsif ($env{'environment.remote'} eq 'off') { |
} elsif ($env{'environment.remote'} eq 'off') { |
# |
# |
# This is inline remote |
# This is inline remote |
# |
# |
$r->print(<<ENDDOCUMENTINL); |
$r->print(<<ENDDOCUMENTINL); |
<frameset rows="180,*" border=0 $addentries> |
<frameset rows="180,*" border="0" $addentries> |
<frame src="/public/$cdom/$cnum/syllabus?wrapperdisplay=menu"> |
<frame src="/public/$cdom/$cnum/syllabus?wrapperdisplay=menu"> |
<frame src="$externalsyllabus"> |
<frame src="$externalsyllabus"> |
</frameset> |
</frameset> |
Line 116 ENDDOCUMENTINL
|
Line 120 ENDDOCUMENTINL
|
# frame-based rendering for graphical interface |
# frame-based rendering for graphical interface |
# |
# |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<frameset rows="1,*" border=0 $addentries> |
<frameset rows="1,*" border="0" $addentries> |
<frame src="/adm/rat/empty.html"> |
<frame src="/adm/rat/empty.html"> |
<frame src="$externalsyllabus"> |
<frame src="$externalsyllabus"> |
</frameset> |
</frameset> |
Line 154 ENDDOCUMENT
|
Line 158 ENDDOCUMENT
|
# ----------------------------------------------------------------- Make header |
# ----------------------------------------------------------------- Make header |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::lonhtmlcommon::htmlareaheaders(). |
$r->print(&Apache::lonhtmlcommon::htmlareaheaders(). |
'</head>'.&Apache::loncommon::bodytag |
&Apache::loncommon::endheadtag(). |
("Syllabus",$forcestudent,$addentries,'',$cdom,$env{'form.register'})); |
&Apache::loncommon::bodytag("Syllabus",$forcestudent,$addentries,'',$cdom,$env{'form.register'})); |
$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'. |
$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'. |
$Apache::lonnet::domaindescription{$cdom}.'</h3>'); |
$Apache::lonnet::domaindescription{$cdom}.'</h3>'); |
} else { |
} else { |
Line 373 ENDDOCUMENT
|
Line 377 ENDDOCUMENT
|
$r->print('No syllabus information provided.'); |
$r->print('No syllabus information provided.'); |
if ($target ne 'tex') {$r->print('</p>');} |
if ($target ne 'tex') {$r->print('</p>');} |
} |
} |
if ($target ne 'tex') {$r->print('</body></html>');} else {$r->print('\end{document}');} |
if ($target ne 'tex') { |
|
$r->print(&Apache::loncommon::end_page()); |
|
} else { |
|
$r->print('\end{document}'); |
|
} |
return OK; |
return OK; |
} |
} |
|
|