loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.208, 2009/04/25 16:53:13	version 1.211, 2009/05/05 16:01:50
Line 74 Successful completion of an operation me	Line 74 Successful completion of an operation me
=cut	=cut

sub confirm_success {	sub confirm_success {
my ($message)=@_;	my ($message,$failure)=@_;
return '<span class="LC_success_confirm">'.	if ($failure) {
$message.	return '<span class="LC_error">'."\n"
' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';	.'<img src="/adm/lonIcons/navmap.wrong.gif" /> '."\n"
	.$message."\n"
	.'</span>'."\n";
	} else {
	return '<span class="LC_success">'."\n"
	.'<img src="/adm/lonIcons/navmap.correct.gif" /> '."\n"
	.$message."\n"
	.'</span>'."\n";
	}
}	}

##############################################	##############################################
Line 1540 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.'"';