loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2005/04/07 06:56:22	version 1.39, 2005/11/18 13:35:30
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::lonrss();
use Apache::lonlocal;	use Apache::lonlocal;

sub handler {	sub handler {
Line 97 ENDDOCUMENT	Line 98 ENDDOCUMENT
}	}
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('<h3>'.$Apache::lonnet::domaindescription{$cdom}.'</h3>'.	$r->print('<h3>'.$Apache::lonnet::domaindescription{$cdom}.'</h3>'.
'<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).'</p>');	'<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).'</p>'.&Apache::lonrss::advertisefeeds($cnum,$cdom));
} else {	} else {
$r->print('\textbf{'.$Apache::lonnet::domaindescription{$cdom}.'}\\\\');	$r->print('\textbf{'.$Apache::lonnet::domaindescription{$cdom}.'}\\\\');
}	}
Line 181 ENDDOCUMENT	Line 182 ENDDOCUMENT
foreach (sort keys %syllabusfields) {	foreach (sort keys %syllabusfields) {
if (($syllabus{$_}) \|\| ($allowed)) {	if (($syllabus{$_}) \|\| ($allowed)) {
my $message=$syllabus{$_};	my $message=$syllabus{$_};
$message=~s/\n/\<br \/\>/g;	&Apache::lonfeedback::newline_to_br(\$message);
$message	$message
=~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;	=~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
if ($allowed) {	if ($allowed) {