version 1.202, 2006/11/13 21:23:19
|
version 1.203, 2006/11/13 21:25:21
|
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>'; |