loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.211, 2006/11/28 16:36:04	version 1.212, 2006/11/28 16:43:51
Line 2250 sub end_Dimension {	Line 2250 sub end_Dimension {
}	}
my $dim_info=	my $dim_info=
"\n<div class='LC_$dim_status LC_question_grade'>\n\t";	"\n<div class='LC_$dim_status LC_question_grade'>\n\t";
my $question = ('sub' x $dimension{$dim}{'depth'}).'question';	my $ucquestion =
$question =~ s/^(.)/uc($1)/e;	my $question =
	('sub' x $dimension{$dim}{'depth'}).'question';
	$ucquestion =~ 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>'.$ucquestion.' : 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>'.$ucquestion.' : you did not pass the above '.$mandatory.' '.$question.'</h3>';
}	}
my %counts = &get_counts($dim,$instance,$parstack,	my %counts = &get_counts($dim,$instance,$parstack,
$safeeval);	$safeeval);