loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.263, 2010/01/25 19:16:08	version 1.265, 2010/01/26 13:08:08
Line 74 sub coursepreflink {	Line 74 sub coursepreflink {

sub raw_href_to_link {	sub raw_href_to_link {
my ($message)=@_;	my ($message)=@_;
$message=~s/(https?\:\/\/[^\s\'\"]+)(\s\|$)/<a href="$1"><tt>$1<\/tt><\/a>$2/gi;	$message=~s/(https?\:\/\/[^\s\'\"\<]+)([\s\<]\|$)/<a href="$1"><tt>$1<\/tt><\/a>$2/gi;
return $message;	return $message;
}	}

Line 90 Successful completion of an operation me	Line 90 Successful completion of an operation me
sub confirm_success {	sub confirm_success {
my ($message,$failure)=@_;	my ($message,$failure)=@_;
if ($failure) {	if ($failure) {
return '<span class="LC_error">'."\n"	return '<span class="LC_error" style="font-size: inherit;">'."\n"
.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n"	.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n"
.$message."\n"	.$message."\n"
.'</span>'."\n";	.'</span>'."\n";