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.210, 2009/04/29 18:42:38
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) {
	return '<span class="LC_error">'.
	$message.
	' <img src="/adm/lonIcons/navmap.wrong.gif" /></span>';
	} else {
	return '<span class="LC_success">'.
$message.	$message.
' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';	' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';
	}
}	}

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