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

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.130 and 1.134

version 1.130, 2007/10/22 09:29:58 version 1.134, 2008/08/08 16:37:13
Line 103  sub start_radiobuttonresponse { Line 103  sub start_radiobuttonresponse {
  $result .= '\begin{enumerate}';   $result .= '\begin{enumerate}';
     } elsif ($target eq 'analyze') {      } elsif ($target eq 'analyze') {
  my $part_id="$Apache::inputtags::part.$id";   my $part_id="$Apache::inputtags::part.$id";
           $Apache::lonhomework::analyze{"$part_id.type"} = 'radiobuttonresponse';
  push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);   push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
     }      }
     return $result;      return $result;
Line 441  sub whichfoils { Line 442  sub whichfoils {
     }      }
  }   }
  if (!$havetrue && $Apache::lonhomework::type ne 'survey') {   if (!$havetrue && $Apache::lonhomework::type ne 'survey') {
     &Apache::lonxml::error("There are no true statements available.<br />");      &Apache::lonxml::error(&mt('There are no true statements available.').'<br />');
  }   }
     } else {      } else {
  my $current=0;   my $current=0;
Line 502  sub whichfoils { Line 503  sub whichfoils {
  my $dosplice=1;   my $dosplice=1;
  if ($notrue && $Apache::lonhomework::type ne 'survey') {   if ($notrue && $Apache::lonhomework::type ne 'survey') {
     $dosplice=0;      $dosplice=0;
     &Apache::lonxml::error("There are no true statements available.<br />");      &Apache::lonxml::error(&mt('There are no true statements available.').'<br />');
  }   }
  #insert the true statement, keeping track of where it wants to be   #insert the true statement, keeping track of where it wants to be
  if ($Apache::response::foilgroup{$truename.'.location'} eq 'top' && $dosplice) {   if ($Apache::response::foilgroup{$truename.'.location'} eq 'top' && $dosplice) {
Line 566  sub displayfoils { Line 567  sub displayfoils {
  $result.='\item \vskip -2 mm  ';   $result.='\item \vskip -2 mm  ';
     }      }
     if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {       if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { 
  if ($target ne 'tex') { $result.='Correct:<b>'; } else { $result.='Correct: \textbf{';}   if ($target ne 'tex') {
                       $result.=&mt('Correct:').'<b>';
                   } else {
                       $result.=&mt('Correct:').' \textbf{';
                   }
     } else {      } else {
  $result.='Incorrect:';   $result.=&mt('Incorrect:');
     }      }
     if ($target eq 'web') { $result.="<label>"; }      if ($target eq 'web') { $result.="<label>"; }
     $result.=$Apache::response::foilgroup{$name.'.text'};      $result.=$Apache::response::foilgroup{$name.'.text'};
Line 759  sub end_foil { Line 764  sub end_foil {
  if ($value ne 'unused') {   if ($value ne 'unused') {
     my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);      my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
     if ($name eq "") {      if ($name eq "") {
  &Apache::lonxml::warning("Foils without names exist. This can cause problems to malfunction.");   &Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.'));
  $name=$Apache::lonxml::curdepth;   $name=$Apache::lonxml::curdepth;
     }      }
     if (defined($Apache::response::foilnames{$name})) {      if (defined($Apache::response::foilnames{$name})) {
  &Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));   &Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.','<b><tt>'.$name.'</tt></b>'));
     }      }
     $Apache::response::foilnames{$name}++;      $Apache::response::foilnames{$name}++;
     my $location =&Apache::lonxml::get_param('location',$parstack,      my $location =&Apache::lonxml::get_param('location',$parstack,
Removed from v.1.130  
changed lines
  Added in v.1.134

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