loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.209, 2009/04/25 20:22:07	version 1.211, 2009/05/05 16:01:50
Line 76 Successful completion of an operation me	Line 76 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">'.	return '<span class="LC_error">'."\n"
$message.	.'<img src="/adm/lonIcons/navmap.wrong.gif" /> '."\n"
' <img src="/adm/lonIcons/navmap.wrong.gif" /></span>';	.$message."\n"
	.'</span>'."\n";
} else {	} else {
return '<span class="LC_success">'.	return '<span class="LC_success">'."\n"
$message.	.'<img src="/adm/lonIcons/navmap.correct.gif" /> '."\n"
' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';	.$message."\n"
	.'</span>'."\n";
}	}
}	}

Line 1546 END	Line 1548 END
}	}

sub row_title {	sub row_title {
	my ($title,$css_title_class,$css_value_class) = @_;
$row_count[0]++;	$row_count[0]++;
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';	my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
my ($title,$css_title_class,$css_value_class) = @_;
$css_title_class \|\|= 'LC_pick_box_title';	$css_title_class \|\|= 'LC_pick_box_title';
$css_title_class = 'class="'.$css_title_class.'"';	$css_title_class = 'class="'.$css_title_class.'"';