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

Diff for /loncom/homework/optionresponse.pm between versions 1.143 and 1.148

version 1.143, 2007/04/17 23:25:09 version 1.148, 2008/01/31 05:14:06
Line 71  sub start_optionresponse { Line 71  sub start_optionresponse {
   } elsif ($target eq 'analyze') {    } elsif ($target eq 'analyze') {
     my $part_id="$Apache::inputtags::part.$id";      my $part_id="$Apache::inputtags::part.$id";
     push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);      push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
       push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1);
   
   }    }
   return $result;    return $result;
 }  }
Line 275  sub end_foilgroup { Line 277  sub end_foilgroup {
  }   }
       }        }
     }      }
     &Apache::lonxml::increment_counter(&getfoilcounts($max));      my $part_id     = $Apache::inputtags::part;
       my $response_id = $Apache::inputtags::response[-1];
       &Apache::lonxml::increment_counter(&getfoilcounts($max),
          "$part_id.$response_id");
       if ($target eq 'analyze') {
    &Apache::lonhomework::set_bubble_lines();
       }
   
   } elsif ($target eq 'edit') {    } elsif ($target eq 'edit') {
     $result.=&Apache::edit::end_table();      $result.=&Apache::edit::end_table();
   }    }
Line 705  sub end_foil { Line 714  sub end_foil {
   
 sub start_drawoptionlist {  sub start_drawoptionlist {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     if (($target ne 'meta')  && ($target ne 'answer')) {      if ($target !~ /^(?:meta|answer|modified|edit)$/) {
  return $token->[4];   return $token->[4];
     }      }
 }  }
   
 sub end_drawoptionlist {  sub end_drawoptionlist {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     if (($target ne 'meta') && ($target ne 'answer')) {      if ($target !~ /^(?:meta|answer|modified|edit)$/) {
  return $token->[2];   return $token->[2];
     }      }
 }  }
   
 sub insert_foil {  sub insert_foil {
   return '      return '
 <foil name="" value="unused">  <foil name="" value="unused">
 <startouttext />  <startouttext />
 <endouttext />  <endouttext />
 </foil>';  </foil>';
 }  }
   
   sub insert_drawoptionlist {
       return '<drawoptionlist />';
   }
 1;  1;
 __END__  __END__
     
Removed from v.1.143  
changed lines
  Added in v.1.148

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