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.266, 2010/02/19 10:19:33
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";
Line 1061 sub Increment_PrgWin {	Line 1061 sub Increment_PrgWin {
#	#
my $str;	my $str;
if ($min == 0 && $sec > 1) {	if ($min == 0 && $sec > 1) {
$str = '[_2] seconds';	$str = '[_1] seconds';
} elsif ($min == 1 && $sec > 1) {	} elsif ($min == 1 && $sec > 1) {
$str = '1 minute [_2] seconds';	$str = '1 minute [_2] seconds';
} elsif ($min == 1 && $sec < 2) {	} elsif ($min == 1 && $sec < 2) {