--- loncom/homework/bridgetask.pm 2006/11/09 21:39:34 1.201 +++ loncom/homework/bridgetask.pm 2006/11/13 21:23:19 1.202 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.201 2006/11/09 21:39:34 albertel Exp $ +# $Id: bridgetask.pm,v 1.202 2006/11/13 21:23:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2193,6 +2193,7 @@ sub end_Dimension { my $instance=&get_instance($dim); my $version=&get_version(); if ($target eq 'web') { + $result .= "\n".'
'."\n"; $result .= &nested_parse(\$dimension{$dim}{'intro'},[@_]); my @instances = $instance; if (&Apache::response::showallfoils()) { @@ -2229,10 +2230,10 @@ sub end_Dimension { my $question = ('sub' x $dimension{$dim}{'depth'}).'question'; $question =~ s/^(.)/uc($1)/e; if ($dim_status eq 'pass') { - $dim_info.='

'.$question.' : you passed this '.$mandatory.' question

'; + $dim_info.='

'.$question.' : you passed the above'.$mandatory.' question

'; } if ($dim_status eq 'fail') { - $dim_info.='

'.$question.' : you did not pass this '.$mandatory.' question

'; + $dim_info.='

'.$question.' : you did not pass the above '.$mandatory.' question

'; } my %counts = &get_counts($dim,$instance,$parstack, $safeeval); @@ -2254,11 +2255,15 @@ sub end_Dimension { [@_]); $dim_info .= &layout_web_Criteria($dim,$id,$criteria); } + # puts the results at the end of the dimension + $result .= $dim_info; - my $internal_location=&internal_location($dim); - $result=~s/\Q$internal_location\E/$dim_info/; + # puts the results at the beginning of the dimension + # my $internal_location=&internal_location($dim); + # $result=~s/\Q$internal_location\E/$dim_info/; } } + $result .= "\n
\n"; } elsif ($target eq 'webgrade') { # in case of any side effects that we need &nested_parse(\$dimension{$dim}{'intro'},[@_]); @@ -2633,7 +2638,9 @@ sub layout_web_Criteria { $status_display=~s/^([a-z])/uc($1)/e; my $criteria_info.= '
'."\n\t".'

' - .$mandatory.' Criteria

'."\n\t".'

'."\n"; + .$mandatory.' Criteria'."\n\t".'

'. "\n\t".'

'.$status_display.'

'; @@ -2675,6 +2682,8 @@ sub layout_webgrade_Criteria { END_BUTTON } + $criteria =~ s/^\s*//s; + $criteria =~ s/\s*$//s; my $result = <