loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.204, 2006/11/13 21:47:33	version 1.205, 2006/11/14 22:12:58
Line 2104 sub start_Dimension {	Line 2104 sub start_Dimension {
}	}
push(@Apache::bridgetask::dimension,$dim);	push(@Apache::bridgetask::dimension,$dim);
&Apache::lonxml::startredirection();	&Apache::lonxml::startredirection();
&enable_dimension_parsing($dim);	if (!&skip_dimension_parsing($dim)) {
	&enable_dimension_parsing($dim);
	}
return &internal_location($dim);	return &internal_location($dim);
}	}

Line 2247 sub end_Dimension {	Line 2249 sub end_Dimension {
@{$dimension{$dim}{'criterias'}}) {	@{$dimension{$dim}{'criterias'}}) {
my $type = $dimension{$dim}{'criteria.'.$id.'.type'};	my $type = $dimension{$dim}{'criteria.'.$id.'.type'};
if ($type eq 'dimension') {	if ($type eq 'dimension') {
$result.=$dimension{$id}{'result'};	if (defined($dimension{$id}{'result'})) {
next;	$result.=$dimension{$id}{'result'};
	next;
	} else {
	$dim_info .=
	&nested_parse(\$dimension{$dim}{'criteria.'.$id},
	[@_],{'set_dim_id' => $id});
	}
	} else {
	my $criteria =
	&nested_parse(\$dimension{$dim}{'criteria.'.$id},
	[@_]);
	$dim_info .= &layout_web_Criteria($dim,$id,$criteria);
}	}
my $criteria =
&nested_parse(\$dimension{$dim}{'criteria.'.$id},
[@_]);
$dim_info .= &layout_web_Criteria($dim,$id,$criteria);
}	}
# puts the results at the end of the dimension	# puts the results at the end of the dimension
$result .= $dim_info;	$result .= $dim_info;