loncom/interface/lonbulletin.pm - diff

Return to lonbulletin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23, 2004/05/10 14:10:03	version 1.25, 2004/07/27 23:35:34
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']);	# &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous']);
Line 170 ENDDOCUMENT	Line 169 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>');