Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.47 and 1.48

version 1.47, 2002/09/23 17:20:41 version 1.48, 2002/09/23 19:09:52
Line 228  sub whichfoils { Line 228  sub whichfoils {
   }    }
   if (&Apache::response::showallfoils()) {    if (&Apache::response::showallfoils()) {
     @whichfalse=@names;      @whichfalse=@names;
   } elsif ($randomize=='no') {    } elsif ($randomize eq 'no') {
       &Apache::lonxml::debug("No randomization");        &Apache::lonxml::debug("No randomization");
       my $havetrue=0;        my $havetrue=0;
       foreach my $name (@names) {        foreach my $name (@names) {
   if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {    if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
       if (!$havetrue ) {        if (!$havetrue ) { push(@whichfalse,$name); $havetrue++; }
   push (@whichfalse,$name);  
   $havetrue++;  
       }  
   } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') {    } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') {
       push (@whichfalse,$name);        push (@whichfalse,$name);
   } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'unused') {    } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'unused') {
Line 385  sub start_foil { Line 382  sub start_foil {
     $result.=&Apache::edit::text_arg('Name:','name',$token);      $result.=&Apache::edit::text_arg('Name:','name',$token);
     $result.=&Apache::edit::select_or_text_arg('Correct Option:','value',      $result.=&Apache::edit::select_or_text_arg('Correct Option:','value',
        ['unused','true','false'],$token);         ['unused','true','false'],$token);
       $result.=&Apache::edit::select_or_text_arg('Location:','location',
          ['random','bottom','top'],$token);
     $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();      $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
   } elsif ($target eq 'modified') {    } elsif ($target eq 'modified') {
      my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,       my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
   'value','name');    'value','name','location');
     if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }      if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
   }     } 
   return $result;    return $result;
Line 402  sub end_foil { Line 401  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);
         my $location =&Apache::lonxml::get_param('location',$parstack,$safeeval);
       if (!$name) { $name=$Apache::lonxml::curdepth; }        if (!$name) { $name=$Apache::lonxml::curdepth; }
       if ( $Apache::radiobuttonresponse::conceptgroup        if ( $Apache::radiobuttonresponse::conceptgroup
    && !&Apache::response::showallfoils() ) {     && !&Apache::response::showallfoils() ) {
  push @{ $Apache::response::conceptgroup{'names'} }, $name;   push @{ $Apache::response::conceptgroup{'names'} }, $name;
  $Apache::response::conceptgroup{"$name.value"} = $value;   $Apache::response::conceptgroup{"$name.value"} = $value;
  $Apache::response::conceptgroup{"$name.text"} = $text;   $Apache::response::conceptgroup{"$name.text"} = $text;
    $Apache::response::conceptgroup{"$name.location"} = $location;
       } else {        } else {
  push @{ $Apache::response::foilgroup{'names'} }, $name;   push @{ $Apache::response::foilgroup{'names'} }, $name;
  $Apache::response::foilgroup{"$name.value"} = $value;   $Apache::response::foilgroup{"$name.value"} = $value;
  $Apache::response::foilgroup{"$name.text"} = $text;   $Apache::response::foilgroup{"$name.text"} = $text;
    $Apache::response::foilgroup{"$name.location"} = $location;
       }        }
     }      }
   }    }

Removed from v.1.47  
changed lines
  Added in v.1.48


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