version 1.179, 2006/06/24 01:28:17
|
version 1.180, 2006/06/28 21:46:53
|
Line 372 sub nested_parse {
|
Line 372 sub nested_parse {
|
@Apache::scripttag::parser_env = @old_env; |
@Apache::scripttag::parser_env = @old_env; |
if ($args->{'delayed_dim_results'}) { |
if ($args->{'delayed_dim_results'}) { |
my $dim = &get_dim_id(); |
my $dim = &get_dim_id(); |
|
&Apache::lonxml::debug(" tossing out $result "); |
|
&Apache::lonxml::debug(" usining out $dim 's ". $dimension{$dim}{'result'}); |
return $dimension{$dim}{'result'}; |
return $dimension{$dim}{'result'}; |
} |
} |
return $result; |
return $result; |
Line 2221 sub get_criteria {
|
Line 2223 sub get_criteria {
|
&nested_parse(\$dimension{$dim}{$instance.'.text'},[@_]); |
&nested_parse(\$dimension{$dim}{$instance.'.text'},[@_]); |
$result.= |
$result.= |
&nested_parse(\$dimension{$dim}{'questiontext'},[@_], |
&nested_parse(\$dimension{$dim}{'questiontext'},[@_], |
{'set_dim_id' => undef, |
{'set_dim_id' => undef, |
'delay_dim_results' => 1}); |
'delayed_dim_results' => 1}); |
foreach my $id (@{$dimension{$dim}{$instance.'.criterias'}}, |
foreach my $id (@{$dimension{$dim}{$instance.'.criterias'}}, |
@{$dimension{$dim}{'criterias'}} ) { |
@{$dimension{$dim}{'criterias'}} ) { |
my $type = $dimension{$dim}{'criteria.'.$id.'.type'}; |
my $type = $dimension{$dim}{'criteria.'.$id.'.type'}; |
Line 2259 sub get_criteria {
|
Line 2261 sub get_criteria {
|
$result.=&grading_history($version,$dim,$id); |
$result.=&grading_history($version,$dim,$id); |
$last_link=$link; |
$last_link=$link; |
} |
} |
if (&delay_result()) { |
if (&nest()) { |
&Apache::lonxml::debug(" for $dim stashing results into ".$dimension{$dim}{'nested'}); |
&Apache::lonxml::debug(" for $dim stashing results into ".$dimension{$dim}{'nested'}); |
$dimension{$dimension{$dim}{'nested'}}{'result'}.=$result; |
$dimension{$dimension{$dim}{'nested'}}{'result'}.=$result; |
undef($result); |
undef($result); |