loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2003/07/10 10:53:18	version 1.13, 2003/09/17 19:45:39
Line 34 use Apache::loncommon;	Line 34 use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
use Apache::lontexconvert;	use Apache::lontexconvert;
use Apache::lonfeedback;	use Apache::lonfeedback;
	use Apache::lonlocal;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 65 ENDDOCUMENT	Line 66 ENDDOCUMENT
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};	my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};

# --------------------------------------------------------- The syllabus fields	# --------------------------------------------------------- The syllabus fields
my %syllabusfields=(	my %syllabusfields=&Apache::lonlocal::texthash(
'aaa_title' => 'Page Title',	'aaa_title' => 'Page Title',
'bbb_content' => 'Content',	'bbb_content' => 'Content',
'ccc_webreferences' => 'Web References');	'ccc_webreferences' => 'Web References');
Line 93 ENDDOCUMENT	Line 94 ENDDOCUMENT
$r->print('</head>'.&Apache::loncommon::bodytag	$r->print('</head>'.&Apache::loncommon::bodytag
("Course Page",$forcestudent,$addentries,'',$dom,$ENV{'form.register'}));	("Course Page",$forcestudent,$addentries,'',$dom,$ENV{'form.register'}));

my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});	my $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});

if ($forcestudent) { $allowed=0; }	if ($forcestudent) { $allowed=0; }