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

Diff for /loncom/homework/optionresponse.pm between versions 1.17 and 1.18

version 1.17, 2001/06/16 21:23:11 version 1.18, 2001/06/26 21:41:58
Line 240  sub end_conceptgroup { Line 240  sub end_conceptgroup {
   $Apache::optionresponse::conceptgroup=0;    $Apache::optionresponse::conceptgroup=0;
   my $result='';    my $result='';
   if ($target eq 'web' || $target eq 'grade') {    if ($target eq 'web' || $target eq 'grade') {
     my @names = @{ $Apache::response::conceptgroup{'names'} };      #if not there aren't any foils to display and thus no question
     my $pick=int rand $#names+1;      if (defined(@{ $Apache::response::conceptgroup{'names'} })) {
     my $name=$names[$pick];        my @names = @{ $Apache::response::conceptgroup{'names'} };
     push @{ $Apache::response::foilgroup{'names'} }, $name;        my $pick=int rand $#names+1;
     $Apache::response::foilgroup{"$name.value"} =  $Apache::response::conceptgroup{"$name.value"};        my $name=$names[$pick];
     $Apache::response::foilgroup{"$name.text"} =  $Apache::response::conceptgroup{"$name.text"};        push @{ $Apache::response::foilgroup{'names'} }, $name;
     my $concept = &Apache::lonxml::get_param('concept',$parstack,$safeeval);        $Apache::response::foilgroup{"$name.value"} =  $Apache::response::conceptgroup{"$name.value"};
     $Apache::response::foilgroup{"$name.concept"} = $concept;        $Apache::response::foilgroup{"$name.text"} =  $Apache::response::conceptgroup{"$name.text"};
     &Apache::lonxml::debug("Selecting $name in $concept");        my $concept = &Apache::lonxml::get_param('concept',$parstack,$safeeval);
         $Apache::response::foilgroup{"$name.concept"} = $concept;
         &Apache::lonxml::debug("Selecting $name in $concept");
       }
   }    }
   if ($target eq 'edit') {    if ($target eq 'edit') {
     $result=&Apache::edit::end_table();      $result=&Apache::edit::end_table();
Line 257  sub end_conceptgroup { Line 260  sub end_conceptgroup {
 }  }
   
 sub insert_conceptgroup {  sub insert_conceptgroup {
   my $result="\t\t<conceptgroup concept=\"\">\n".&insert_foil()."\t\t</conceptgroup>\n";    my $result="\n\t\t<conceptgroup concept=\"\">".&insert_foil()."\n\t\t</conceptgroup>\n";
   return $result;    return $result;
 }  }
   
Line 291  sub end_foil { Line 294  sub end_foil {
     my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);      my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
     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);
         &Apache::lonxml::debug("Got a name of :$name:");
       if (!$name) { $name=$Apache::lonxml::curdepth; }        if (!$name) { $name=$Apache::lonxml::curdepth; }
         &Apache::lonxml::debug("Using a name of :$name:");
       if ( $Apache::optionresponse::conceptgroup ) {        if ( $Apache::optionresponse::conceptgroup ) {
  push @{ $Apache::response::conceptgroup{'names'} }, $name;   push @{ $Apache::response::conceptgroup{'names'} }, $name;
  $Apache::response::conceptgroup{"$name.value"} = $value;   $Apache::response::conceptgroup{"$name.value"} = $value;
Removed from v.1.17  
changed lines
  Added in v.1.18

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