version 1.195, 2006/11/07 20:07:10
|
version 1.196, 2006/11/07 21:31:22
|
Line 2097 sub start_Dimension {
|
Line 2097 sub start_Dimension {
|
&Apache::lonxml::get_param('Mandatory',$parstack,$safeeval); |
&Apache::lonxml::get_param('Mandatory',$parstack,$safeeval); |
push(@{$dimension{$previous_dim}{'criterias'}},$dim); |
push(@{$dimension{$previous_dim}{'criterias'}},$dim); |
$dimension{$dim}{'nested'}=$previous_dim; |
$dimension{$dim}{'nested'}=$previous_dim; |
|
$dimension{$dim}{'depth'} = 1 + $dimension{$previous_dim}{'depth'}; |
&Apache::lonxml::debug("adding $dim as criteria to $previous_dim"); |
&Apache::lonxml::debug("adding $dim as criteria to $previous_dim"); |
} else { |
} else { |
|
$dimension{$top}{'depth'}=0; |
$dimension{$top}{'criteria.'.$dim.'.type'}='dimension'; |
$dimension{$top}{'criteria.'.$dim.'.type'}='dimension'; |
$dimension{$top}{'criteria.'.$dim.'.mandatory'}= |
$dimension{$top}{'criteria.'.$dim.'.mandatory'}= |
&Apache::lonxml::get_param('Mandatory',$parstack,$safeeval); |
&Apache::lonxml::get_param('Mandatory',$parstack,$safeeval); |
Line 2227 sub end_Dimension {
|
Line 2229 sub end_Dimension {
|
$mandatory='Optional'; |
$mandatory='Optional'; |
} |
} |
my $dim_info="<div class='LC_$dim_status LC_question_grade'>\n"; |
my $dim_info="<div class='LC_$dim_status LC_question_grade'>\n"; |
|
my $question = ('sub' x $dimension{$dim}{'depth'}).'question'; |
|
my $ucquestion = $question; |
|
$ucquestion =~ s/^(.)/uc($1)/e; |
if ($dim_status eq 'pass') { |
if ($dim_status eq 'pass') { |
$dim_info.='<h3>Question : you passed this '.$mandatory.' question</h3>'; |
$dim_info.='<h3>'.$ucquestion.' : you passed this '.$mandatory.' '.$question.'</h3>'; |
} |
} |
if ($dim_status eq 'fail') { |
if ($dim_status eq 'fail') { |
$dim_info.='<h3>Question : you did not pass this '.$mandatory.' question</h3>'; |
$dim_info.='<h3>'.$ucquestion.' : you did not pass this '.$mandatory.' '.$question.'</h3>'; |
} |
} |
my $man_count=0; |
my $man_count=0; |
my $man_passed=0; |
my $man_passed=0; |