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.209, 2009/04/25 20:22:07
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>';
	}
}	}

##############################################	##############################################