loncom/interface/lonbulletin.pm - diff

Return to lonbulletin.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonbulletin.pm between versions 1.23 and 1.27

version 1.23, 2004/05/10 14:10:03	version 1.27, 2004/08/18 21:14:00
Line 42 sub handler {	Line 42 sub handler {
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
my $target=$ENV{'form.grade_target'};	my $target=$ENV{'form.grade_target'};
&Apache::lonnet::logthis("MY TARGET IS DEFINED AS $target");


# &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous']);
# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
Line 81 ENDDOCUMENT	Line 78 ENDDOCUMENT

# ------------------------------------------------------------ Get Query String	# ------------------------------------------------------------ Get Query String
&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']);	($ENV{'QUERY_STRING'},['forcestudent','forceedit','register','origpage']);
# ----------------------------------------------------- Force menu registration	# ----------------------------------------------------- Force menu registration
my $addentries='';	my $addentries='';
if ($ENV{'form.register'}) {	if ($ENV{'form.register'}) {
$addentries=' onLoad="'.&Apache::lonmenu::loadevents().	$addentries=' onLoad="'.&Apache::lonmenu::loadevents();
'" onUnload="'.&Apache::lonmenu::unloadevents().'"';	if ($ENV{'form.origpage'}) {
	$addentries .= "document.location='#newpost';";
	}
	$addentries .= '" onUnload="'.&Apache::lonmenu::unloadevents().'"';
$r->print(&Apache::lonmenu::registerurl(1));	$r->print(&Apache::lonmenu::registerurl(1));
	} elsif ($ENV{'form.origpage'}) {
	$addentries = "onLoad=\"document.location='#newpost';\"";
}	}
# --------------------------------------------------------------- Force Student	# --------------------------------------------------------------- Force Student
my $forcestudent='';	my $forcestudent='';
Line 110 ENDDOCUMENT	Line 112 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 170 ENDDOCUMENT	Line 172 ENDDOCUMENT
$message	$message
=~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;	=~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
$message=&Apache::lontexconvert::msgtexconverted($message);	$message=&Apache::lontexconvert::msgtexconverted($message);
unless ($_ eq 'aaa_title') {	if ($allowed) {
	$message=&Apache::lonspeller::markeduptext($message);
	}
	unless ($_ eq 'aaa_title') {
if (($_ ne 'bbb_content') \|\| ($allowed)) {	if (($_ ne 'bbb_content') \|\| ($allowed)) {
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('<h3>'.$syllabusfields{$_}.'</h3>');	$r->print('<h3>'.$syllabusfields{$_}.'</h3>');
Line 211 ENDDOCUMENT	Line 216 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.'___'.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.23
changed lines
	Added in v.1.27