[BACK]Return to bridgetask.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/bridgetask.pm between versions 1.209 and 1.212

version 1.209, 2006/11/27 23:24:36 version 1.212, 2006/11/28 16:43:51
Line 2250  sub end_Dimension { Line 2250  sub end_Dimension {
  }   }
  my $dim_info=   my $dim_info=
     "\n<div class='LC_$dim_status LC_question_grade'>\n\t";      "\n<div class='LC_$dim_status LC_question_grade'>\n\t";
  my $question = ('sub' x $dimension{$dim}{'depth'}).'question';   my $ucquestion = 
  $question =~ s/^(.)/uc($1)/e;      my $question = 
       ('sub' x $dimension{$dim}{'depth'}).'question';
    $ucquestion =~ s/^(.)/uc($1)/e;
  if ($dim_status eq 'pass') {   if ($dim_status eq 'pass') {
     $dim_info.='<h3>'.$question.' : you passed the above '.$mandatory.' question</h3>';      $dim_info.='<h3>'.$ucquestion.' : you passed the above '.$mandatory.' '.$question.'</h3>';
  }   }
  if ($dim_status eq 'fail') {   if ($dim_status eq 'fail') {
     $dim_info.='<h3>'.$question.' : you did not pass the above '.$mandatory.' question</h3>';      $dim_info.='<h3>'.$ucquestion.' : you did not pass the above '.$mandatory.' '.$question.'</h3>';
  }   }
  my %counts = &get_counts($dim,$instance,$parstack,   my %counts = &get_counts($dim,$instance,$parstack,
  $safeeval);   $safeeval);
Line 2300  sub end_Dimension { Line 2302  sub end_Dimension {
     # those old ones will continue to work.  # It puts the      # those old ones will continue to work.  # It puts the
     # LC_question div to come after any starting closie div      # LC_question div to come after any starting closie div
     # that the dimension produces      # that the dimension produces
     if ($result =~ m{\s*</div>}) {      if ($result =~ m{^\s*</div>}) {
  $result =~ s{(\s*</div>)}   $result =~ s{^(\s*</div>)}
             {$1\n<div class="LC_question">};              {$1\n<div id="$dim" class="LC_question">};
     } else {      } else {
  $result = "\n".'<div class="LC_question">'.   $result = "\n".'<div id="'.$dim.'" class="LC_question">'.
     "\n".$result;      "\n".$result;
     }      }
     $result .= "\n</div>\n";      $result .= "\n</div>\n";
Removed from v.1.209  
changed lines
  Added in v.1.212

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>