loncom/interface/lonbulletin.pm - diff

Return to lonbulletin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2003/09/15 13:38:19	version 1.15, 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::lonnet::texthash(
'aaa_title' => 'Topic',	'aaa_title' => 'Topic',
'bbb_content' => 'Task',	'bbb_content' => 'Task',
'ccc_webreferences' => 'Web References');	'ccc_webreferences' => 'Web References');
Line 174 ENDDOCUMENT	Line 175 ENDDOCUMENT
$r->print('<p>No page information provided.</p>');	$r->print('<p>No page information provided.</p>');
}	}
$r->print(&Apache::lonfeedback::list_discussion	$r->print(&Apache::lonfeedback::list_discussion
(1,'bulletin___'.$marker.'___'.	('board','OPEN','bulletin___'.$marker.'___'.
'adm/wrapper'.$r->uri).'</body></html>');	'adm/wrapper'.$r->uri).'</body></html>');
return OK;	return OK;
}	}