version 1.76, 2003/05/13 15:44:39
|
version 1.79, 2003/05/23 19:37:33
|
Line 52 sub start_response {
|
Line 52 sub start_response {
|
} |
} |
|
|
sub end_response { |
sub end_response { |
pop @Apache::inputtags::response; |
#pop @Apache::inputtags::response; |
@Apache::inputtags::inputlist=(); |
@Apache::inputtags::inputlist=(); |
return ''; |
return ''; |
} |
} |
Line 62 sub start_hintresponse {
|
Line 62 sub start_hintresponse {
|
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
push (@Apache::inputtags::response,$id); |
push (@Apache::inputtags::response,$id); |
|
push (@Apache::inputtags::responselist,$id); |
push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]); |
push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]); |
return $id; |
return $id; |
} |
} |
Line 363 sub setup_params {
|
Line 364 sub setup_params {
|
sub answer_header { |
sub answer_header { |
my ($type) = @_; |
my ($type) = @_; |
my $result; |
my $result; |
if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) { |
if ($ENV{'form.answer_output_mode'} eq 'tex') { |
$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: '. |
$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: '. |
$Apache::inputtags::part.' \\\\ \hline '; |
$Apache::inputtags::part.' \\\\ \hline '; |
} else { |
} else { |
Line 381 sub answer_header {
|
Line 382 sub answer_header {
|
sub answer_part { |
sub answer_part { |
my ($type,$answer) = @_; |
my ($type,$answer) = @_; |
my $result; |
my $result; |
if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) { |
if ($ENV{'form.answer_output_mode'} eq 'tex') { |
$result = ' '.$answer.'\\\\ \hline '; |
$result = ' '.$answer.'\\\\ \hline '; |
} else { |
} else { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
Line 396 sub answer_part {
|
Line 397 sub answer_part {
|
sub answer_footer { |
sub answer_footer { |
my ($type) = @_; |
my ($type) = @_; |
my $result; |
my $result; |
if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) { |
if ($ENV{'form.answer_output_mode'} eq 'tex') { |
$result = ' \end{tabular} \vskip 0 mm '; |
$result = ' \end{tabular} \vskip 0 mm '; |
} else { |
} else { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
Line 469 sub scored_response {
|
Line 470 sub scored_response {
|
return $repetition; |
return $repetition; |
} |
} |
|
|
|
sub whichorder { |
|
my ($max,$randomize,$showall,$hash)=@_; |
|
#&Apache::lonxml::debug("man $max randomize $randomize"); |
|
if (!defined(@{ $$hash{'names'} })) { return; } |
|
my @names = @{ $$hash{'names'} }; |
|
my @whichopt =(); |
|
my (%top,@toplist,%bottom,@bottomlist); |
|
if (!($showall || ($randomize eq 'no'))) { |
|
my $current=0; |
|
foreach my $name (@names) { |
|
$current++; |
|
if ($$hash{"$name.location"} eq 'top') { |
|
$top{$name}=$current; |
|
} elsif ($$hash{"$name.location"} eq 'bottom') { |
|
$bottom{$name}=$current; |
|
} |
|
} |
|
} |
|
my $topcount=0; |
|
my $bottomcount=0; |
|
while (((scalar(@whichopt)+$topcount+$bottomcount) < $max || $showall) |
|
&& ($#names > -1)) { |
|
#&Apache::lonxml::debug("Have $#whichopt max is $max"); |
|
my $aopt; |
|
if ($showall || ($randomize eq 'no')) { |
|
$aopt=0; |
|
} else { |
|
$aopt=int(&Math::Random::random_uniform() * ($#names+1)); |
|
} |
|
#&Apache::lonxml::debug("From $#whichopt $max $#names elms, picking $aopt"); |
|
$aopt=splice(@names,$aopt,1); |
|
#&Apache::lonxml::debug("Picked $aopt"); |
|
if ($top{$aopt}) { |
|
$toplist[$top{$aopt}]=$aopt; |
|
$topcount++; |
|
} elsif ($bottom{$aopt}) { |
|
$bottomlist[$bottom{$aopt}]=$aopt; |
|
$bottomcount++; |
|
} else { |
|
push (@whichopt,$aopt); |
|
} |
|
} |
|
for (my $i=0;$i<=$#toplist;$i++) { |
|
if ($toplist[$i]) { unshift(@whichopt,$toplist[$i]) } |
|
} |
|
for (my $i=0;$i<=$#bottomlist;$i++) { |
|
if ($bottomlist[$i]) { push(@whichopt,$bottomlist[$i]) } |
|
} |
|
|
|
return @whichopt; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|