loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.86 and 1.88

-version 1.86, 2003/10/06 21:57:54
+version 1.88, 2003/11/03 21:47:21
  Line 25
  #
  # http://www.lon-capa.org/
  #
- # 11/23,11/24,11/28 Gerd Kortemeyer
- # Guy Albertelli
- # 08/04,08/07 Gerd Kortemeyer
  package Apache::response;
  use strict;
- Line 80  sub end_hintresponse {
+ Line 77  sub end_hintresponse {
  # that is stable and unique based on the part number and response number
  sub setrandomnumber {
      my $rndseed;
-     if ($ENV{'request.state'} eq "construct") {
+     $rndseed=&Apache::structuretags::setup_rndseed();
- 	$rndseed=$ENV{'form.rndseed'};
+     if (!defined($rndseed)) { $rndseed=&Apache::lonnet::rndseed(); }
- 	if (!$rndseed) { $rndseed=time; }
-     } else {
- 	$rndseed=&Apache::lonnet::rndseed();
-     }
      &Apache::lonxml::debug("randseed $rndseed");
      #  $rndseed=unpack("%32i",$rndseed);
      my $rndmod=(&Apache::lonnet::numval($Apache::inputtags::part) << 10);
      if (defined($Apache::inputtags::response['-1'])) {
-        $rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]);
+ 	$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]);
      }
      if ($rndseed =~/,/) {
  	{
- Line 574  sub show_answer {
+ Line 567  sub show_answer {
  	       && lc($Apache::lonhomework::problemstatus) ne 'no')
  	      || $status eq "SHOW_ANSWER");
  }
+ sub analyze_store_foilgroup {
+     my ($shown,$attrs)=@_;
+     my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
+     foreach my $name (@{ $Apache::response::foilgroup{'names'} }) {
+ 	if (defined($Apache::lonhomework::analyze{"$part_id.foil.value.$name"})) { next; }
+ 	push (@{ $Apache::lonhomework::analyze{"$part_id.foils"} },$name);
+ 	foreach my $attr (@$attrs) {
+ 	    $Apache::lonhomework::analyze{"$part_id.foil.".$attr.".$name"} =
+ 		$Apache::response::foilgroup{"$name.".$attr};
+ 	}
+     }
+     push (@{ $Apache::lonhomework::analyze{"$part_id.shown"} }, @{ $shown });
+ }
+ sub pick_foil_for_concept {
+     my ($target,$attrs,$hinthash,$parstack,$safeeval)=@_;
+     if (not defined(@{ $Apache::response::conceptgroup{'names'} })) { return; }
+     my @names = @{ $Apache::response::conceptgroup{'names'} };
+     my $pick=int(&Math::Random::random_uniform() * ($#names+1));
+     my $name=$names[$pick];
+     push @{ $Apache::response::foilgroup{'names'} }, $name;
+     foreach my $attr (@$attrs) {
+ 	$Apache::response::foilgroup{"$name.".$attr} =
+ 	    $Apache::response::conceptgroup{"$name.".$attr};
+     }
+     my $concept = &Apache::lonxml::get_param('concept',$parstack,$safeeval);
+     $Apache::response::foilgroup{"$name.concept"} = $concept;
+     &Apache::lonxml::debug("Selecting $name in $concept");
+     my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
+     if ($target eq 'analyze') {
+ 	push (@{ $Apache::lonhomework::analyze{"$part_id.concepts"} },
+ 	      $concept);
+ 	$Apache::lonhomework::analyze{"$part_id.concept.$concept"}=
+ 	    $Apache::response::conceptgroup{'names'};
+ 	foreach my $name (@{ $Apache::response::conceptgroup{'names'} }) {
+ 	    push (@{ $Apache::lonhomework::analyze{"$part_id.foils"} },
+ 		  $name);
+ 	    foreach my $attr (@$attrs) {
+ 		$Apache::lonhomework::analyze{"$part_id.foil.$attr.$name"}=
+ 		    $Apache::response::conceptgroup{"$name.$attr"};
+ 	    }
+ 	}
+     }
+     push(@{ $hinthash->{"$part_id.concepts"} },$concept);
+     $hinthash->{"$part_id.concept.$concept"}=
+ 	$Apache::response::conceptgroup{'names'};
+ }
 ;
  __END__

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

Removed from v.1.86
changed lines
	Added in v.1.88