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

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

version 1.133, 2008/03/22 00:36:57 version 1.134, 2008/08/08 16:37:13
Line 442  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 503  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 764  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.133  
changed lines
  Added in v.1.134

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