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

Diff for /loncom/homework/bridgetask.pm between versions 1.219 and 1.224

version 1.219, 2007/01/13 06:11:17 version 1.224, 2007/01/26 19:06:37
Line 868  sub get_key_todo { Line 868  sub get_key_todo {
  my ($symb,$cid)=&Apache::lonnet::whichuser();   my ($symb,$cid)=&Apache::lonnet::whichuser();
  my $cnum  = $env{'course.'.$cid.'.num'};   my $cnum  = $env{'course.'.$cid.'.num'};
  my $cdom  = $env{'course.'.$cid.'.domain'};   my $cdom  = $env{'course.'.$cid.'.domain'};
  my $uname = $env{'form.gradinguser'};   my $uname = &LONCAPA::clean_username($env{'form.gradinguser'});
  my $udom  = $env{'form.gradingdomain'};   my $udom  = &LONCAPA::clean_domain($env{'form.gradingdomain'});
   
  my $gradingkey=&encode_queue_key($symb,$udom,$uname);   my $gradingkey=&encode_queue_key($symb,$udom,$uname);
   
Line 2245  sub end_Dimension { Line 2245  sub end_Dimension {
     my $result=&Apache::lonxml::endredirection();      my $result=&Apache::lonxml::endredirection();
     my $dim=&get_id($parstack,$safeeval);      my $dim=&get_id($parstack,$safeeval);
     if (&skip_dimension_parsing($dim)) {      if (&skip_dimension_parsing($dim)) {
  &disable_dimension_parsing($dim);  
  pop(@Apache::bridgetask::dimension);   pop(@Apache::bridgetask::dimension);
  return;   return;
     }      }
Line 2290  sub end_Dimension { Line 2289  sub end_Dimension {
     ('sub' x $dimension{$dim}{'depth'}).'question';      ('sub' x $dimension{$dim}{'depth'}).'question';
  $ucquestion =~ s/^(.)/uc($1)/e;   $ucquestion =~ s/^(.)/uc($1)/e;
  if ($dim_status eq 'pass') {   if ($dim_status eq 'pass') {
     $dim_info.='<h3>'.$ucquestion.' : you passed the above '.$mandatory.' '.$question.'</h3>';      $dim_info.='<h3>'.$ucquestion.' : you passed this '.$mandatory.' '.$question.'</h3>';
  }   }
  if ($dim_status eq 'fail') {   if ($dim_status eq 'fail') {
     $dim_info.='<h3>'.$ucquestion.' : you did not pass the above '.$mandatory.' '.$question.'</h3>';      $dim_info.='<h3>'.$ucquestion.' : you did not pass this '.$mandatory.' '.$question.'</h3>';
  }   }
  my %counts = &get_counts($dim,$instance,$parstack,   my %counts = &get_counts($dim,$instance,$parstack,
  $safeeval);   $safeeval);
Line 2486  sub question_status_message { Line 2485  sub question_status_message {
     $status .= '.';      $status .= '.';
     if ($counts->{'opt'}) {      if ($counts->{'opt'}) {
  $status .= ' You were required to pass '.$counts->{'opt_req'}.   $status .= ' You were required to pass '.$counts->{'opt_req'}.
     'optional ';      ' optional ';
  if ($counts->{'opt_dim'} + $counts->{'man_dim'} < 1) {   if ($counts->{'opt_dim'} + $counts->{'man_dim'} < 1) {
     $status .=      $status .=
  ' component'.($counts->{'opt_req'} == 1?'':'s');   ($counts->{'opt_req'} == 1?'criterion':'criteria');
  } else {   } else {
     $status .=      $status .=
  ($counts->{'opt_req'} == 1?'criterion':'criteria');   'component'.($counts->{'opt_req'} == 1?'':'s');
  }   }
  $status .= '.';   $status .= '.';
     }      }
Removed from v.1.219  
changed lines
  Added in v.1.224

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