version 1.14, 2003/02/28 16:16:59
|
version 1.16, 2003/03/10 14:20:07
|
Line 51 ENDDOCUMENT
|
Line 51 ENDDOCUMENT
|
# Is this even a course? |
# Is this even a course? |
my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom); |
my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom); |
if ($homeserver eq 'no_host') { |
if ($homeserver eq 'no_host') { |
$r->print('<body>No syllabus available</body>'); |
$r->print('</head><body>No syllabus available</body></html>'); |
return OK; |
return OK; |
} |
} |
# --------------------------------------------------------- The syllabus fields |
# --------------------------------------------------------- The syllabus fields |
Line 89 ENDDOCUMENT
|
Line 89 ENDDOCUMENT
|
# ------------------------------------- There is such a course, get environment |
# ------------------------------------- There is such a course, get environment |
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); |
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); |
$r->print('</head>'.&Apache::loncommon::bodytag |
$r->print('</head>'.&Apache::loncommon::bodytag |
("Syllabus",$forcestudent,$addentries,'',$cdom)); |
("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>'); |
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum); |
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum); |
Line 105 ENDDOCUMENT
|
Line 105 ENDDOCUMENT
|
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print('<p>'. |
$r->print('<p>'. |
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'</p><p>This syllabus can be publically viewed at <tt>http://'. |
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'</p><p>This syllabus can be publicly viewed at <tt>http://'. |
$Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'. |
$Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'. |
&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'. |
&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'. |
'<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'. |
'<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'. |