version 1.77, 2003/10/27 18:26:15
|
version 1.81, 2004/02/25 00:41:47
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# 2/21 Guy |
|
|
|
package Apache::radiobuttonresponse; |
package Apache::radiobuttonresponse; |
use strict; |
use strict; |
Line 47 sub start_radiobuttonresponse {
|
Line 46 sub start_radiobuttonresponse {
|
$result=&Apache::response::meta_package_write('radiobuttonresponse'); |
$result=&Apache::response::meta_package_write('radiobuttonresponse'); |
} elsif ($target eq 'edit' ) { |
} elsif ($target eq 'edit' ) { |
$result.=&Apache::edit::start_table($token). |
$result.=&Apache::edit::start_table($token). |
'<tr><td>'.&Apache::lonxml::description($token)."</td><td>Delete:". |
'<tr><td>'.&Apache::lonxml::description($token). |
|
&Apache::loncommon::help_open_topic('Radio_Response_Problems'). |
|
"</td><td>Delete:". |
&Apache::edit::deletelist($target,$token) |
&Apache::edit::deletelist($target,$token) |
."</td><td> ".&Apache::edit::end_row() |
."</td><td> ".&Apache::edit::end_row() |
.&Apache::edit::start_spanning_row(); |
.&Apache::edit::start_spanning_row(); |
Line 74 sub start_radiobuttonresponse {
|
Line 75 sub start_radiobuttonresponse {
|
} |
} |
$result .= '\begin{enumerate}'; |
$result .= '\begin{enumerate}'; |
} elsif ($target eq 'analyze') { |
} elsif ($target eq 'analyze') { |
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
my $part_id="$Apache::inputtags::part.$id"; |
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id); |
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id); |
} |
} |
return $result; |
return $result; |
Line 155 sub end_foilgroup {
|
Line 156 sub end_foilgroup {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
|
my $result; |
my $result; |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') { |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
|
$target eq 'tex' || $target eq 'analyze') { |
my $style = $Apache::lonhomework::type; |
my $style = $Apache::lonhomework::type; |
if ( $style eq 'survey' && $target ne 'analyze') { |
if ( $style eq 'survey' && $target ne 'analyze') { |
if ($target eq 'web' || $target eq 'answer' || $target eq 'tex') { |
if ($target eq 'web' || $target eq 'tex') { |
$result=&displayallfoils(); |
$result=&displayallfoils(); |
} elsif ( $target eq 'grade' ) { |
} elsif ( $target eq 'answer' ) { |
$result=&storesurvey(); |
$result=&displayallanswers(); |
} |
} elsif ( $target eq 'grade' ) { |
|
$result=&storesurvey(); |
|
} |
} else { |
} else { |
my $name; |
my $name; |
my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2'); |
my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2'); |
Line 175 sub end_foilgroup {
|
Line 179 sub end_foilgroup {
|
} elsif ( $target eq 'grade') { |
} elsif ( $target eq 'grade') { |
&grade_response($max,$randomize); |
&grade_response($max,$randomize); |
} elsif ( $target eq 'analyze') { |
} elsif ( $target eq 'analyze') { |
|
my @shown = &whichfoils($max,$randomize); |
|
&Apache::response::analyze_store_foilgroup(\@shown, |
|
['text','value','location']); |
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
foreach my $name (@{ $Apache::response::foilgroup{'names'} }) { |
push (@{ $Apache::lonhomework::analyze{"$part_id.options"} }, |
if (defined($Apache::lonhomework::analyze{"$part_id.foil.value.$name"})) { next; } |
('true','false')); |
push (@{ $Apache::lonhomework::analyze{"$part_id.foils"} },$name); |
|
$Apache::lonhomework::analyze{"$part_id.foil.value.$name"} = |
|
$Apache::response::foilgroup{"$name.value"}; |
|
$Apache::lonhomework::analyze{"$part_id.foil.text.$name"} = |
|
$Apache::response::foilgroup{"$name.text"}; |
|
} |
|
push (@{ $Apache::lonhomework::analyze{"$part_id.shown"} },&whichfoils($max,$randomize)); |
|
} |
} |
} |
} |
} |
} |
Line 435 sub displayfoils {
|
Line 435 sub displayfoils {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub displayallanswers { |
|
my @names = @{ $Apache::response::foilgroup{'names'} }; |
|
|
|
my $result=&Apache::response::answer_header('radiobuttonresponse'); |
|
foreach my $name (@names) { |
|
$result.=&Apache::response::answer_part('radiobuttonresponse', |
|
$Apache::response::foilgroup{$name.'.value'}); |
|
} |
|
$result.=&Apache::response::answer_footer('radiobuttonresponse'); |
|
return $result; |
|
} |
|
|
sub displayanswers { |
sub displayanswers { |
my ($max,$randomize)=@_; |
my ($max,$randomize)=@_; |
my ($answer,@whichopt) = &whichfoils($max,$randomize); |
my ($answer,@whichopt) = &whichfoils($max,$randomize); |
Line 468 sub end_conceptgroup {
|
Line 480 sub end_conceptgroup {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
$Apache::radiobuttonresponse::conceptgroup=0; |
$Apache::radiobuttonresponse::conceptgroup=0; |
my $result; |
my $result; |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') { |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || |
if (defined(@{ $Apache::response::conceptgroup{'names'} })) { |
$target eq 'tex' || $target eq 'analyze') { |
my @names = @{ $Apache::response::conceptgroup{'names'} }; |
&Apache::response::pick_foil_for_concept($target, |
my $pick=int(&Math::Random::random_uniform() * ($#names+1)); |
['value','text','location'], |
my $name=$names[$pick]; |
\%Apache::hint::radiobutton, |
push @{ $Apache::response::foilgroup{'names'} }, $name; |
$parstack,$safeeval); |
$Apache::response::foilgroup{"$name.text"} = $Apache::response::conceptgroup{"$name.text"}; |
|
$Apache::response::foilgroup{"$name.value"} = $Apache::response::conceptgroup{"$name.value"}; |
|
$Apache::response::foilgroup{"$name.location"} = $Apache::response::conceptgroup{"$name.location"}; |
|
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]"; |
|
push(@{ $Apache::hint::radiobutton{"$part_id.concepts"} },$concept); |
|
$Apache::hint::radiobutton{"$part_id.concept.$concept"}= |
|
$Apache::response::conceptgroup{'names'}; |
|
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); |
|
$Apache::lonhomework::analyze{"$part_id.foil.value.$name"} = |
|
$Apache::response::conceptgroup{"$name.value"}; |
|
$Apache::lonhomework::analyze{"$part_id.foil.text.$name"} = |
|
$Apache::response::conceptgroup{"$name.text"}; |
|
$Apache::lonhomework::analyze{"$part_id.foil.location.$name"} = |
|
$Apache::response::conceptgroup{"$name.location"}; |
|
} |
|
} |
|
} |
|
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result=&Apache::edit::end_table(); |
$result=&Apache::edit::end_table(); |
} |
} |