[LON-CAPA-cvs] cvs: loncom /homework response.pm
raeburn
raeburn@source.lon-capa.org
Sun, 19 Dec 2010 00:44:09 -0000
raeburn Sun Dec 19 00:44:09 2010 EDT
Modified files:
/loncom/homework response.pm
Log:
- New Question Type - randomizetry
- Additional args to &setrandomnumber() -- $target and $rndseed
- Additional arg to &setup_prior_tries_hash() -- $questiontype.
If $questiontype is randomizetry:
When setting up prior tries display deternine options array
(for rankresponse, optionresponse and matchresponse) from part's
foilorder key in Apache::lonhomework::history hash
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.220 loncom/homework/response.pm:1.221
--- loncom/homework/response.pm:1.220 Wed Nov 24 00:10:06 2010
+++ loncom/homework/response.pm Sun Dec 19 00:44:09 2010
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# various response type definitons response definition
#
-# $Id: response.pm,v 1.220 2010/11/24 00:10:06 www Exp $
+# $Id: response.pm,v 1.221 2010/12/19 00:44:09 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -136,9 +136,10 @@
}
sub setrandomnumber {
- my ($ignore_id2) = @_;
- my $rndseed;
- $rndseed=&Apache::structuretags::setup_rndseed();
+ my ($ignore_id2,$target,$rndseed) = @_;
+ if (!defined($rndseed)) {
+ $rndseed=&Apache::structuretags::setup_rndseed(undef,$target);
+ }
if (!defined($rndseed)) { $rndseed=&Apache::lonnet::rndseed(); }
&Apache::lonxml::debug("randseed $rndseed");
# $rndseed=unpack("%32i",$rndseed);
@@ -283,6 +284,8 @@
my ($curresponse,$partid,$id,$last,$type) = @_;
my %previous;
$previous{'used'} = 0;
+ my $questiontype = $Apache::lonhomework::type;
+ my $curr_rndseed = $env{'form.'.$partid.'.rndseed'};
foreach my $key (sort(keys(%Apache::lonhomework::history))) {
if ($key =~ /resource\.\Q$partid\E\.\Q$id\E\.submission$/) {
if ( $last && $key =~ /^(\d+):/ ) {
@@ -291,24 +294,33 @@
&Apache::lonxml::debug("Trying $key");
my $pastresponse=$Apache::lonhomework::history{$key};
if ($pastresponse eq $curresponse) {
- $previous{'used'} = 1;
my $history;
if ( $key =~ /^(\d+):/ ) {
- $history=$1;
+ $history=$1;
+ next if ((($questiontype eq 'randomizetry') ||
+ ($Apache::lonhomework::history{"$history:resource.$partid.type"} eq 'randomizetry')) &&
+ ($curr_rndseed ne $Apache::lonhomework::history{"$history:resource.$partid.rndseed"}));
$previous{'award'} = $Apache::lonhomework::history{"$history:resource.$partid.$id.awarddetail"};
$previous{'last'}='0';
push(@{ $previous{'version'} },$history);
} else {
+ next if ((($questiontype eq 'randomizetry') ||
+ ($Apache::lonhomework::history{"resource.$partid.type"} eq 'randomizetry')) &&
+ ($curr_rndseed ne $Apache::lonhomework::history{"resource.$partid.rndseed"}));
$previous{'award'} = $Apache::lonhomework::history{"resource.$partid.$id.awarddetail"};
$previous{'last'}='1';
}
+ $previous{'used'} = 1;
if (! $previous{'award'} ) { $previous{'award'} = 'UNKNOWN'; }
if ($previous{'award'} eq 'INTERNAL_ERROR') { $previous{'used'}=0; }
&Apache::lonxml::debug("got a match :$previous{'award'}:$previous{'used'}:");
} elsif ($type eq 'ci') {
if (lc($pastresponse) eq lc($curresponse)) {
if ($key =~ /^(\d+):/) {
- push (@{$previous{'versionci'}},$1);
+ my $history = $1;
+ next if (($questiontype eq 'randomizetry') &&
+ ($curr_rndseed ne $Apache::lonhomework::history{"$history:resource.$partid.rndseed"}));
+ push (@{$previous{'versionci'}},$history);
$previous{'awardci'} = $Apache::lonhomework::history{"resource.$partid.$id.awarddetail"};
$previous{'usedci'} = 1;
}
@@ -329,7 +341,7 @@
} elsif (($Apache::lonhomework::type ne 'survey') &&
($Apache::lonhomework::type ne 'surveycred') &&
($Apache::lonhomework::type ne 'anonsurvey') &&
- ($Apache::lonhomework::type ne 'anonsurveycred')) {
+ ($Apache::lonhomework::type ne 'anonsurveycred')) {
push(@Apache::inputtags::previous,'PREVIOUSLY_USED');
push(@Apache::inputtags::previous_version,$$previous{'version'});
}
@@ -1076,7 +1088,7 @@
}
sub whichorder {
- my ($max,$randomize,$showall,$hash)=@_;
+ my ($max,$randomize,$showall,$hash,$rndseed)=@_;
#&Apache::lonxml::debug("man $max randomize $randomize");
if (!defined(@{ $$hash{'names'} })) { return; }
my @names = @{ $$hash{'names'} };
@@ -1316,25 +1328,40 @@
- scalars that are other elements of the history hash to pass to $func
- ref to data to be passed untouched to $func
+ $questiontype is the questiontype (currently only passed in if
+ randomizebytry.
+
=cut
sub setup_prior_tries_hash {
- my ($func,$data) = @_;
+ my ($func,$data,$questiontype) = @_;
my $part = $Apache::inputtags::part;
- my $id = $Apache::inputtags::response[-1];
+ my $id = $Apache::inputtags::response[-1];
foreach my $i (1..$Apache::lonhomework::history{'version'}) {
- my $sub_key = "$i:resource.$part.$id.submission";
+ my $partprefix = "$i:resource.$part";
+ my $sub_key = "$partprefix.$id.submission";
next if (!exists($Apache::lonhomework::history{$sub_key}));
+ my $type_key = "$partprefix.type";
+ my $type = $Apache::lonhomework::history{$type_key};
my @other_data;
- foreach my $datum (@{ $data }) {
- if (ref($datum)) {
- push(@other_data,$datum);
- } else {
- my $info_key = "$i:resource.$part.$id.$datum";
- push(@other_data,$Apache::lonhomework::history{$info_key});
+ if (ref($data) eq 'ARRAY') {
+ foreach my $datum (@{ $data }) {
+ if (ref($datum)) {
+ push(@other_data,$datum);
+ } else {
+ my $info_key = "$i:resource.$part.$id.$datum";
+ push(@other_data,$Apache::lonhomework::history{$info_key});
+ }
}
- }
-
+ }
+ if ($questiontype eq 'randomizetry') {
+ my $order_key = "$partprefix.$id.foilorder";
+ my @whichopts = &Apache::lonnet::str2array($Apache::lonhomework::history{$order_key});
+ if (@whichopts > 0) {
+ shift(@other_data);
+ unshift(@other_data,\@whichopts);
+ }
+ }
my $output =
&$func('grade',
$Apache::lonhomework::history{$sub_key},