--- loncom/homework/bridgetask.pm 2005/03/28 21:50:46 1.6 +++ loncom/homework/bridgetask.pm 2005/03/31 16:05:13 1.7 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.6 2005/03/28 21:50:46 albertel Exp $ +# $Id: bridgetask.pm,v 1.7 2005/03/31 16:05:13 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -173,7 +173,6 @@ sub start_ClosingParagraph { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my $result; if ($target eq 'web') { - $result='
Closing
'; } return $result; } @@ -182,7 +181,6 @@ sub end_ClosingParagraph { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my $result; if ($target eq 'web') { - $result='
'; } return $result; } @@ -205,14 +203,11 @@ sub end_Dimension { #then start repicking my $instance=$dimension{'instances'}->[0]; $result=$dimension{'intro'}. - $dimension{$instance.'.text'}. - '
Criteria
'; - foreach my $id (@{$dimension{$instance.'.criterias'}}) { - $result.=$dimension{$instance.'.criteria.'.$id}. - '
'; - } - $result=~s/
$//; - $result.='
'; + $dimension{$instance.'.text'}; + #FIXME: don't show the criteria yet + #foreach my $id (@{$dimension{$instance.'.criterias'}}) { + # $result.=$dimension{$instance.'.criteria.'.$id}; + #} } return $result; } @@ -223,8 +218,6 @@ sub start_IntroParagraph { if ($target eq 'web') { if ($tagstack->[-2] eq 'Dimension') { &Apache::lonxml::startredirection(); - } else { - $result='
Intro
'; } } return $result; @@ -236,8 +229,6 @@ sub end_IntroParagraph { if ($target eq 'web') { if ($tagstack->[-2] eq 'Dimension') { $dimension{'intro'}=&Apache::lonxml::endredirection(); - } else { - $result='
'; } } return $result;