Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.78 and 1.79

version 1.78, 2003/10/27 19:27:09 version 1.79, 2003/10/27 20:04:34
Line 154  sub end_foilgroup { Line 154  sub end_foilgroup {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   
   my $result;    my $result;
   if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') {    if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
         $target eq 'tex' || $target eq 'analyze') {
     my $style = $Apache::lonhomework::type;      my $style = $Apache::lonhomework::type;
     if ( $style eq 'survey'  && $target ne 'analyze') {      if ( $style eq 'survey'  && $target ne 'analyze') {
       if ($target eq 'web' || $target eq 'answer' || $target eq 'tex') {        if ($target eq 'web' || $target eq 'answer' || $target eq 'tex') {
Line 175  sub end_foilgroup { Line 176  sub end_foilgroup {
  &grade_response($max,$randomize);   &grade_response($max,$randomize);
       }  elsif ( $target eq 'analyze') {        }  elsif ( $target eq 'analyze') {
   my @shown = &whichfoils($max,$randomize);    my @shown = &whichfoils($max,$randomize);
   &Apache::response::analyze_store_foilgroup(\@shown,['text','value']);    &Apache::response::analyze_store_foilgroup(\@shown,
     ['text','value','location']);
     my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
     push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },
    ('true','false'));
       }        }
     }      }
   }    }

Removed from v.1.78  
changed lines
  Added in v.1.79


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