loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.202, 2006/11/13 21:23:19	version 1.204, 2006/11/13 21:47:33
Line 2230 sub end_Dimension {	Line 2230 sub end_Dimension {
my $question = ('sub' x $dimension{$dim}{'depth'}).'question';	my $question = ('sub' x $dimension{$dim}{'depth'}).'question';
$question =~ s/^(.)/uc($1)/e;	$question =~ s/^(.)/uc($1)/e;
if ($dim_status eq 'pass') {	if ($dim_status eq 'pass') {
$dim_info.='<h3>'.$question.' : you passed the above'.$mandatory.' question</h3>';	$dim_info.='<h3>'.$question.' : you passed the above '.$mandatory.' question</h3>';
}	}
if ($dim_status eq 'fail') {	if ($dim_status eq 'fail') {
$dim_info.='<h3>'.$question.' : you did not pass the above '.$mandatory.' question</h3>';	$dim_info.='<h3>'.$question.' : you did not pass the above '.$mandatory.' question</h3>';
Line 2638 sub layout_web_Criteria {	Line 2638 sub layout_web_Criteria {
$status_display=~s/^([a-z])/uc($1)/e;	$status_display=~s/^([a-z])/uc($1)/e;
my $criteria_info.=	my $criteria_info.=
'<div class="LC_'.$status.' LC_criteria">'."\n\t".'<h4>'	'<div class="LC_'.$status.' LC_criteria">'."\n\t".'<h4>'
.$mandatory.' Criteria</h4>'."\n\t".'<p class="LC_criteria_text>'."\n";	.$mandatory.' Criteria</h4>'."\n\t".'<p class="LC_criteria_text">'
	."\n";
$criteria =~ s/^\s*//s;	$criteria =~ s/^\s*//s;
$criteria =~ s/\s*$//s;	$criteria =~ s/\s*$//s;
$criteria_info.= $criteria;	$criteria_info.= $criteria;