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

Diff for /loncom/homework/matchresponse.pm between versions 1.83 and 1.84

version 1.83, 2011/10/07 22:39:59 version 1.84, 2011/11/08 01:33:14
Line 131  sub end_itemgroup { Line 131  sub end_itemgroup {
     my $result;      my $result;
   
     if ($target eq 'edit') { $result=&Apache::edit::end_table(); }      if ($target eq 'edit') { $result=&Apache::edit::end_table(); }
     if (!defined(@{ $Apache::response::itemgroup{'names'} })) { return; }      if (ref($Apache::response::itemgroup{'names'}) eq 'ARRAY') {
           if(!@{ $Apache::response::itemgroup{'names'} }) { return; }
       } else {
           return;
       }
     my @names=@{ $Apache::response::itemgroup{'names'} };      my @names=@{ $Apache::response::itemgroup{'names'} };
     my $randomize =&Apache::lonxml::get_param('randomize',$parstack,$safeeval);      my $randomize =&Apache::lonxml::get_param('randomize',$parstack,$safeeval);
     if ($randomize ne 'no' ) {      if ($randomize ne 'no' ) {
Line 345  sub whichfoils { Line 349  sub whichfoils {
   
 sub displayanswers {  sub displayanswers {
     my ($max,$randomize,@opt)=@_;      my ($max,$randomize,@opt)=@_;
     if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }      if (ref($Apache::response::foilgroup{'names'}) eq 'ARRAY') {
           if (!@{ $Apache::response::foilgroup{'names'} }) { return; }
       } else {
           return;
       }
     my @names = @{ $Apache::response::foilgroup{'names'} };      my @names = @{ $Apache::response::foilgroup{'names'} };
     my @whichfoils = &Apache::response::whichorder(&getfoilcounts($max),      my @whichfoils = &Apache::response::whichorder(&getfoilcounts($max),
    $randomize,     $randomize,
   &Apache::response::showallfoils(),    &Apache::response::showallfoils(),
  \%Apache::response::foilgroup);   \%Apache::response::foilgroup);
     my %name_letter_map;      my %name_letter_map;
     if (defined(%{ $Apache::response::itemgroup{'name_letter_map'} })) {      if (ref($Apache::response::itemgroup{'name_letter_map'}) eq 'HASH') {
  %name_letter_map=          if (%{$Apache::response::itemgroup{'name_letter_map'}}) {
     %{ $Apache::response::itemgroup{'name_letter_map'} };      %name_letter_map=
           %{ $Apache::response::itemgroup{'name_letter_map'} };
           }
     }      }
     my $result;      my $result;
     if ($Apache::lonhomework::type eq 'exam') {      if ($Apache::lonhomework::type eq 'exam') {
Line 391  sub grade_response { Line 401  sub grade_response {
     my %answerhash;      my %answerhash;
     my ($temp,$right,$wrong,$ignored)=(1,0,0,0);      my ($temp,$right,$wrong,$ignored)=(1,0,0,0);
     my %letter_name_map;      my %letter_name_map;
     if (defined(%{ $Apache::response::itemgroup{'letter_name_map'} })) {      if (ref($Apache::response::itemgroup{'letter_name_map'}) eq 'HASH') {
  %letter_name_map=          if (%{$Apache::response::itemgroup{'letter_name_map'}}) {
     %{ $Apache::response::itemgroup{'letter_name_map'} };      %letter_name_map=
           %{ $Apache::response::itemgroup{'letter_name_map'} };
           }
     }      }
     my @items;      my @items;
     my $numitems = scalar(@{ $Apache::response::itemgroup{'names'} });      my $numitems = scalar(@{ $Apache::response::itemgroup{'names'} });
Line 564  sub displayfoils { Line 576  sub displayfoils {
     my $part=$Apache::inputtags::part;      my $part=$Apache::inputtags::part;
     my $solved=$Apache::lonhomework::history{"resource.$part.solved"};      my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
     my %letter_name_map;      my %letter_name_map;
     if (defined(%{ $Apache::response::itemgroup{'letter_name_map'} })) {      if (ref($Apache::response::itemgroup{'letter_name_map'}) eq 'HASH') {
  %letter_name_map=          if (%{$Apache::response::itemgroup{'letter_name_map'}}) {
     %{ $Apache::response::itemgroup{'letter_name_map'} };      %letter_name_map=
           %{ $Apache::response::itemgroup{'letter_name_map'} };
           }
     }      }
     my %name_letter_map;      my %name_letter_map;
     if (defined(%{ $Apache::response::itemgroup{'name_letter_map'} })) {      if (ref($Apache::response::itemgroup{'name_letter_map'}) eq 'HASH') {
  %name_letter_map=          if (%{$Apache::response::itemgroup{'name_letter_map'}}) {
     %{ $Apache::response::itemgroup{'name_letter_map'} };      %name_letter_map=
           %{ $Apache::response::itemgroup{'name_letter_map'} };
           }
     }      }
     if ( &Apache::response::show_answer() && ($target ne 'tex')) {      if ( &Apache::response::show_answer() && ($target ne 'tex')) {
  foreach my $name (@whichfoils) {   foreach my $name (@whichfoils) {
Line 835  sub start_foil { Line 851  sub start_foil {
  if ($$tagstack[-2] eq 'conceptgroup') { $level = '-3'; }   if ($$tagstack[-2] eq 'conceptgroup') { $level = '-3'; }
  $result.=&Apache::edit::text_arg('Name:','name',$token);   $result.=&Apache::edit::text_arg('Name:','name',$token);
  my @names;   my @names;
  if (defined(@{ $Apache::response::itemgroup{'names'} })) {   if (ref($Apache::response::itemgroup{'names'}) eq 'ARRAY') {
     @names=@{ $Apache::response::itemgroup{'names'} };              if (@{ $Apache::response::itemgroup{'names'} }) {
           @names=@{ $Apache::response::itemgroup{'names'} };
               }
  }   }
  $result.= &Apache::edit::select_or_text_arg('Correct Option:','value',['unused',@names],$token,'15');   $result.= &Apache::edit::select_or_text_arg('Correct Option:','value',['unused',@names],$token,'15');
  my $randomize=&Apache::lonxml::get_param('randomize',$parstack,   my $randomize=&Apache::lonxml::get_param('randomize',$parstack,
Removed from v.1.83  
changed lines
  Added in v.1.84

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