Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

-added package notation for all remaining response styles

    1: # The LearningOnline Network with CAPA
    2: # mutliple choice style responses
    3: # 2/21 Guy
    4: 
    5: package Apache::radiobuttonresponse;
    6: use strict;
    7: 
    8: sub BEGIN {
    9:   &Apache::lonxml::register('Apache::radiobuttonresponse',('radiobuttonresponse'));
   10: }
   11: 
   12: sub start_radiobuttonresponse {
   13:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   14:   #when in a radiobutton response use these
   15:   my $result;
   16:   &Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
   17:   my $id = &Apache::response::start_response($parstack,$safeeval);
   18:   if ($target eq 'meta') {
   19:     $result=&Apache::response::meta_package_write('radiobuttonresponse');
   20:   }
   21:   return $result;
   22: }
   23: 
   24: sub end_radiobuttonresponse {
   25:   &Apache::response::end_response;
   26:   return '';
   27: }
   28: 
   29: %Apache::response::foilgroup={};
   30: sub start_foilgroup {
   31:   %Apache::response::foilgroup={};
   32:   $Apache::radiobuttonresponse::conceptgroup=0;
   33:   &Apache::response::setrandomnumber();
   34:   return '';
   35: }
   36: 
   37: sub storesurvey {
   38:   if ( defined $ENV{'form.submitted'}) {
   39:     my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
   40:     &Apache::lonxml::debug("Here I am!:$response:");
   41:     if ( $response =~ /[^\s]/) {
   42:       my $id = $Apache::inputtags::response['-1'];
   43:       $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response;
   44:       $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='SUBMITTED';
   45:       &Apache::lonxml::debug("submitted a $response<br />\n");
   46:     }
   47:   }
   48:   return '';
   49: }
   50: 
   51: sub end_foilgroup {
   52:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   53:   
   54:   my $result;
   55:   if ($target eq 'grade' || $target eq 'web') {
   56:     my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval,'-2');
   57:     if ( $style eq 'survey' ) {
   58:       if ($target eq 'web') {
   59: 	$result=&displayallfoils();
   60:       } elsif ( $target eq 'grade' ) {
   61: 	$result=&storesurvey();
   62:       }
   63:     } else {
   64:       my $name;
   65:       my ($truecnt,$falsecnt,$max) = &getfoilcounts($parstack,$safeeval);
   66:       my $count=0;
   67:       # we will add in 1 of the true statements
   68:       if (($falsecnt+1)>$max) { $count=$max } else { $count=$falsecnt+1; }
   69:       my $answer = int(rand ($count));
   70:       &Apache::lonxml::debug("Answer is $answer, $count from $max, $falsecnt");
   71:       if ($target eq 'web') {
   72: 	$result=&displayfoils($max,$answer);
   73:       } elsif ( $target eq 'grade') {
   74: 	if ( defined $ENV{'form.submitted'}) {
   75: 	  my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
   76: 	  if ( $response =~ /[^\s]/) {
   77: 	    my $id = $Apache::inputtags::response['-1'];
   78: 	    $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response;
   79: 	    &Apache::lonxml::debug("submitted a $response<br />\n");
   80: 	    if ($response == $answer) {
   81: 	      $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='EXACT_ANS';
   82: 	    } else {
   83: 	      $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='INCORRECT';
   84: 	    }
   85: 	  }
   86: 	}
   87:       }
   88:     }
   89:   }
   90:   return $result;
   91: }
   92: 
   93: sub getfoilcounts {
   94:   my ($parstack,$safeeval)=@_;
   95:   my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
   96:   my @names = @{ $Apache::response::foilgroup{'names'} };
   97:   my $truecnt=0;
   98:   my $falsecnt=0;
   99:   my $name;
  100: 
  101:   foreach $name (@names) {
  102:     if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
  103:       $truecnt++;
  104:     } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') {
  105:       $falsecnt++;
  106:     }
  107:   }
  108:   return ($truecnt,$falsecnt,$max);
  109: }
  110: 
  111: sub displayallfoils {
  112:   my $result;
  113:   &Apache::lonxml::debug("survey style display");
  114:   my @names = @{ $Apache::response::foilgroup{'names'} };
  115:   my $temp=0;
  116:   my $id=$Apache::inputtags::response['-1'];
  117:   my $part=$Apache::inputtags::part;
  118:   my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
  119:   foreach my $name (@names) {
  120:     if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') {
  121:       $result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" ";
  122:       if ($lastresponse eq $temp) { $result .= 'checked="on"'; }
  123:       $result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
  124:       $temp++;
  125:     }
  126:   }
  127:   return $result;
  128: }
  129: 
  130: sub displayfoils {
  131:   my ($max,$answer)=@_;
  132:   my @names = @{ $Apache::response::foilgroup{'names'} };
  133:   my @truelist;
  134:   my @falselist;
  135:   my $result;
  136:   my $name;
  137: 
  138:   foreach $name (@names) {
  139:     #result.="<br /><b>$name</b> is <i> $Apache::response::foilgroup{$name.'.value'} </i>";
  140:     if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
  141:       push (@truelist,$name);
  142:     } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') {
  143:       push (@falselist,$name);
  144:     } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'unused') {
  145:     } else {
  146:       &Apache::lonxml::error("Unknown state $Apache::response::foilgroup{$name.'.value'} for $name in <foilgroup>");
  147:     }
  148:   }
  149:   my $whichtrue = int(rand($#truelist+1));
  150:   &Apache::lonxml::debug("Max is $max, From $#truelist elms, picking $whichtrue");
  151:   my @whichfalse =();
  152:   while ((($#whichfalse+1) < $max) && ($#falselist > -1)) {
  153:     &Apache::lonxml::debug("Have $#whichfalse max is $max");
  154:     my $afalse=int(rand($#falselist+1));
  155:     &Apache::lonxml::debug("From $#falselist elms, picking $afalse");
  156:     $afalse=splice(@falselist,$afalse,1);
  157:     &Apache::lonxml::debug("Picked $afalse");
  158:     push (@whichfalse,$afalse);
  159:   }
  160:   splice(@whichfalse,$answer,0,$truelist[$whichtrue]);
  161:   &Apache::lonxml::debug("the true statement is $answer");
  162:   if ($Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"} =~ /^correct/ ) {
  163:     foreach $name (@whichfalse) {
  164:       $result.="<br />";
  165:       if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { 
  166: 	$result.='Correct';
  167:       } else {
  168: 	$result.='Incorrect';
  169:       }
  170:       $result.=":".$Apache::response::foilgroup{$name.'.text'}."</input>\n";
  171:     }
  172:   } else {
  173:     my $temp=0;
  174:     my $id=$Apache::inputtags::response['-1'];
  175:     my $part=$Apache::inputtags::part;
  176:     my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
  177:     foreach $name (@whichfalse) {
  178:        $result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" ";
  179:       if ($lastresponse eq $temp) { $result .= 'checked="on"'; }
  180:       $result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
  181:       $temp++;
  182:     }
  183:   }
  184:   return $result."<br />";
  185: }
  186: 
  187: sub start_conceptgroup {
  188:   $Apache::radiobuttonresponse::conceptgroup=1;
  189:   %Apache::response::conceptgroup={};
  190:   return '';
  191: }
  192: 
  193: sub end_conceptgroup {
  194:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
  195:   $Apache::radiobuttonresponse::conceptgroup=0;
  196:   if ($target eq 'web' || $target eq 'grade') {
  197:     my @names = @{ $Apache::response::conceptgroup{'names'} };
  198:     my $pick=int rand $#names+1;
  199:     my $name=$names[$pick];
  200:     push @{ $Apache::response::foilgroup{'names'} }, $name;
  201:     $Apache::response::foilgroup{"$name.text"} =  $Apache::response::conceptgroup{"$name.text"};
  202:     $Apache::response::foilgroup{"$name.value"} = $Apache::response::conceptgroup{"$name.value"};
  203:     my $concept = &Apache::lonxml::get_param('concept',$parstack,$safeeval);
  204:     $Apache::response::foilgroup{"$name.concept"} = $concept;
  205:     &Apache::lonxml::debug("Selecting $name in $concept");
  206:   }
  207:   return '';
  208: }
  209: 
  210: sub start_foil {
  211:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
  212:   my $result='';
  213:   if ($target eq 'web') { &Apache::lonxml::startredirection; }
  214:   return '';
  215: }
  216: 
  217: sub end_foil {
  218:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
  219:   my $text='';
  220:   if ($target eq 'web') { $text=&Apache::lonxml::endredirection; }
  221:   if ($target eq 'web' || $target eq 'grade') {
  222:     my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
  223:     if ($value ne 'unused') {
  224:       my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
  225:       if ( $Apache::radiobuttonresponse::conceptgroup ) {
  226: 	push @{ $Apache::response::conceptgroup{'names'} }, $name;
  227: 	$Apache::response::conceptgroup{"$name.value"} = $value;
  228: 	$Apache::response::conceptgroup{"$name.text"} = $text;	
  229:       } else {
  230: 	push @{ $Apache::response::foilgroup{'names'} }, $name;
  231: 	$Apache::response::foilgroup{"$name.value"} = $value;
  232: 	$Apache::response::foilgroup{"$name.text"} = $text;
  233:       }
  234:     }
  235:   }
  236:   return '';
  237: }
  238: 
  239: 1;
  240: __END__
  241: