version 1.209, 2006/11/27 23:24:36
|
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); |
Line 2300 sub end_Dimension {
|
Line 2302 sub end_Dimension {
|
# those old ones will continue to work. # It puts the |
# those old ones will continue to work. # It puts the |
# LC_question div to come after any starting closie div |
# LC_question div to come after any starting closie div |
# that the dimension produces |
# that the dimension produces |
if ($result =~ m{\s*</div>}) { |
if ($result =~ m{^\s*</div>}) { |
$result =~ s{(\s*</div>)} |
$result =~ s{^(\s*</div>)} |
{$1\n<div class="LC_question">}; |
{$1\n<div id="$dim" class="LC_question">}; |
} else { |
} else { |
$result = "\n".'<div class="LC_question">'. |
$result = "\n".'<div id="'.$dim.'" class="LC_question">'. |
"\n".$result; |
"\n".$result; |
} |
} |
$result .= "\n</div>\n"; |
$result .= "\n</div>\n"; |