loncom/interface/lonbulletin.pm - diff

Return to lonbulletin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2004/07/28 18:53:38	version 1.28, 2005/02/17 08:29:42
Line 45 sub handler {	Line 45 sub handler {

# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
if ($target ne 'tex') {	if ($target ne 'tex') {
	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	$html
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
ENDDOCUMENT	ENDDOCUMENT
Line 112 ENDDOCUMENT	Line 113 ENDDOCUMENT
if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {	if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
$forcestudent='student';	$forcestudent='student';
}	}
	if ($target ne 'tex') { $r->print('<table><tr><td>'); }
if ($forcestudent or $target eq 'tex') { $allowed=0; }	if ($forcestudent or $target eq 'tex') { $allowed=0; }

if ($allowed) {	if ($allowed) {
Line 216 ENDDOCUMENT	Line 217 ENDDOCUMENT
} else {	} else {
$r->print('<p>'.&mt('No page information provided.').'</p>');	$r->print('<p>'.&mt('No page information provided.').'</p>');
}	}
	if ($target ne 'tex') { $r->print('</td></tr></table>'); }
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print(&Apache::lonfeedback::list_discussion	$r->print(&Apache::lonfeedback::list_discussion
('board','OPEN','bulletin___'.$marker.'___'.	('board','OPEN','bulletin___'.$marker.'___'.