--- loncom/homework/radiobuttonresponse.pm 2012/02/04 20:40:07 1.153.6.9 +++ loncom/homework/radiobuttonresponse.pm 2013/04/25 17:58:32 1.156 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # mutliple choice style responses # -# $Id: radiobuttonresponse.pm,v 1.153.6.9 2012/02/04 20:40:07 foxr Exp $ +# $Id: radiobuttonresponse.pm,v 1.156 2013/04/25 17:58:32 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,6 +25,8 @@ # http://www.lon-capa.org/ # + + package Apache::radiobuttonresponse; use strict; use HTML::Entities(); @@ -38,72 +40,70 @@ my @alphabet = ( 'A' .. 'Z' ); # Fo + BEGIN { - &Apache::lonxml::register( 'Apache::radiobuttonresponse', - ('radiobuttonresponse') ); + &Apache::lonxml::register('Apache::radiobuttonresponse',('radiobuttonresponse')); } +#--------------------------------------------------------------------------- +# +# Generic utility subs. + sub bubble_line_count { - my ( $numfoils, $bubbles_per_line ) = @_; + my ($numfoils, $bubbles_per_line) = @_; my $bubble_lines; - $bubble_lines = int( $numfoils / $bubbles_per_line ); - if ( ( $numfoils % $bubbles_per_line ) != 0 ) { - $bubble_lines++; + $bubble_lines = int($numfoils / $bubbles_per_line); + if (($numfoils % $bubbles_per_line) != 0) { + $bubble_lines++; } return $bubble_lines; - + } + + +#------------------------------------------------------------------------------ +# +# XML handlers. sub start_radiobuttonresponse { - my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) = - @_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; #when in a radiobutton response use these - &Apache::lonxml::register( 'Apache::radiobuttonresponse', - ( 'foilgroup', 'foil', 'conceptgroup' ) ); - push( @Apache::lonxml::namespace, 'radiobuttonresponse' ); - my $id = &Apache::response::start_response( $parstack, $safeeval ); + &Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup')); + push (@Apache::lonxml::namespace,'radiobuttonresponse'); + my $id = &Apache::response::start_response($parstack,$safeeval); - %Apache::hint::radiobutton = (); + %Apache::hint::radiobutton=(); undef(%Apache::response::foilnames); - if ( $target eq 'meta' ) { - $result = &Apache::response::meta_package_write('radiobuttonresponse'); - } - elsif ( $target eq 'edit' ) { - $result .= - &Apache::edit::start_table($token) - . '' - . &Apache::lonxml::description($token) - . &Apache::loncommon::help_open_topic('Radio_Response_Problems') - . '' - . '' - . &mt('Delete?') . ' ' - . &Apache::edit::deletelist( $target, $token ) - . '' - . ' ' - . &Apache::edit::end_row() - . &Apache::edit::start_spanning_row(); - $result .= &Apache::edit::text_arg( 'Max Number Of Shown Foils:', - 'max', $token, '4' ) - . ' ' x 3 - . &Apache::edit::select_arg( 'Randomize Foil Order:', - 'randomize', [ 'yes', 'no' ], $token ) - . ' ' x 3 - . &Apache::edit::select_arg( - 'Display Direction:', 'direction', - [ 'vertical', 'horizontal' ], $token - ) - . &Apache::edit::end_row() - . &Apache::edit::start_spanning_row() . "\n"; - } - elsif ( $target eq 'modified' ) { - my $constructtag = - &Apache::edit::get_new_args( $token, $parstack, $safeeval, 'max', - 'randomize', 'direction' ); - if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } - } - elsif ( $target eq 'tex' ) { + if ($target eq 'meta') { + $result=&Apache::response::meta_package_write('radiobuttonresponse'); + } elsif ($target eq 'edit' ) { + $result.=&Apache::edit::start_table($token) + .''.&Apache::lonxml::description($token) + .&Apache::loncommon::help_open_topic('Radio_Response_Problems') + .'' + .''.&mt('Delete?').' ' + .&Apache::edit::deletelist($target,$token) + .'' + .' '.&Apache::edit::end_row() + .&Apache::edit::start_spanning_row(); + $result.= + &Apache::edit::text_arg('Max Number Of Shown Foils:','max', + $token,'4'). + &Apache::edit::select_arg('Randomize Foil Order:','randomize', + ['yes','no'],$token). + &Apache::edit::select_arg('Display Direction:','direction', + ['vertical','horizontal'],$token). + &Apache::edit::end_row(). + &Apache::edit::start_spanning_row()."\n"; + } elsif ($target eq 'modified') { + my $constructtag=&Apache::edit::get_new_args($token,$parstack, + $safeeval,'max', + 'randomize','direction'); + if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } + + } elsif ( $target eq 'tex' ) { my $type = &Apache::lonxml::get_param( 'TeXtype', $parstack, $safeeval, undef, 0 ); @@ -127,255 +127,218 @@ sub start_radiobuttonresponse { elsif ( $target eq 'analyze' ) { my $part_id = "$Apache::inputtags::part.$id"; $Apache::lonhomework::analyze{"$part_id.type"} = 'radiobuttonresponse'; - push( @{ $Apache::lonhomework::analyze{"parts"} }, $part_id ); + push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id); } return $result; } sub end_radiobuttonresponse { - my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) = - @_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; - if ( $target eq 'edit' ) { $result = &Apache::edit::end_table(); } - + if ( $target eq 'edit' ) { + $result = &Apache::edit::end_table(); + } &Apache::response::end_response; pop @Apache::lonxml::namespace; - &Apache::lonxml::deregister( 'Apache::radiobuttonresponse', - ( 'foilgroup', 'foil', 'conceptgroup' ) ); + &Apache::lonxml::deregister('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup')); undef(%Apache::response::foilnames); return $result; } -%Apache::response::foilgroup = (); - +%Apache::response::foilgroup=(); sub start_foilgroup { - my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) = - @_; - %Apache::response::foilgroup = (); - $Apache::radiobuttonresponse::conceptgroup = 0; - &Apache::response::pushrandomnumber( undef, $target ); + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + %Apache::response::foilgroup=(); + $Apache::radiobuttonresponse::conceptgroup=0; + &Apache::response::pushrandomnumber(undef,$target); return; } sub storesurvey { my ($style) = @_; if ( !&Apache::response::submitted() ) { return ''; } - my $response = $env{ 'form.HWVAL_' . $Apache::inputtags::response['-1'] }; + my $response = $env{'form.HWVAL_'.$Apache::inputtags::response['-1']}; &Apache::lonxml::debug("Here I am!:$response:"); - if ( $response !~ /[0-9]+/ ) { return ''; } - my $part = $Apache::inputtags::part; - my $id = $Apache::inputtags::response['-1']; - my @whichfoils = @{ $Apache::response::foilgroup{'names'} }; + if ( $response !~ /[0-9]+/) { return ''; } + my $part = $Apache::inputtags::part; + my $id = $Apache::inputtags::response['-1']; + my @whichfoils=@{ $Apache::response::foilgroup{'names'} }; my %responsehash; - $responsehash{ $whichfoils[$response] } = $response; - my $responsestr = &Apache::lonnet::hash2str(%responsehash); - $Apache::lonhomework::results{"resource.$part.$id.submission"} = - $responsestr; - my %previous = - &Apache::response::check_for_previous( $responsestr, $part, $id ); + $responsehash{$whichfoils[$response]}=$response; + my $responsestr=&Apache::lonnet::hash2str(%responsehash); + $Apache::lonhomework::results{"resource.$part.$id.submission"}= + $responsestr; + my %previous=&Apache::response::check_for_previous($responsestr,$part,$id); my $ad; - - if ( $style eq 'anonsurvey' ) { - $ad = $Apache::lonhomework::results{"resource.$part.$id.awarddetail"} = - 'ANONYMOUS'; - } - elsif ( $style eq 'anonsurveycred' ) { - $ad = $Apache::lonhomework::results{"resource.$part.$id.awarddetail"} = - 'ANONYMOUS_CREDIT'; - } - elsif ( $style eq 'surveycred' ) { - $ad = $Apache::lonhomework::results{"resource.$part.$id.awarddetail"} = - 'SUBMITTED_CREDIT'; - } - else { - $ad = $Apache::lonhomework::results{"resource.$part.$id.awarddetail"} = - 'SUBMITTED'; + if ($style eq 'anonsurvey') { + $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='ANONYMOUS'; + } elsif ($style eq 'anonsurveycred') { + $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='ANONYMOUS_CREDIT'; + } elsif ($style eq 'surveycred') { + $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED_CREDIT'; + } else { + $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED'; } - &Apache::response::handle_previous( \%previous, $ad ); + &Apache::response::handle_previous(\%previous,$ad); &Apache::lonxml::debug("submitted a $response
\n"); return ''; } + sub grade_response { - my ( $answer, $whichfoils, $bubbles_per_line ) = @_; + my ($answer, $whichfoils, $bubbles_per_line)=@_; if ( !&Apache::response::submitted() ) { return; } my $response; + + if ($env{'form.submitted'} eq 'scantron') { + $response = &Apache::response::getresponse(1,undef, + &bubble_line_count(scalar(@{ $whichfoils}), + $bubbles_per_line), + $bubbles_per_line); - if ( $env{'form.submitted'} eq 'scantron' ) { - $response = - &Apache::response::getresponse( 1, undef, - &bubble_line_count( scalar( @{$whichfoils} ), $bubbles_per_line ), - $bubbles_per_line ); - - } - else { - $response = $env{ 'form.HWVAL_' . $Apache::inputtags::response['-1'] }; + } else { + $response = $env{'form.HWVAL_'.$Apache::inputtags::response['-1']}; } - if ( $response !~ /[0-9]+/ ) { return; } - my $part = $Apache::inputtags::part; - my $id = $Apache::inputtags::response['-1']; + + if ( $response !~ /[0-9]+/) { return; } + my $part=$Apache::inputtags::part; + my $id = $Apache::inputtags::response['-1']; my %responsehash; - $responsehash{ $whichfoils->[$response] } = $response; - my $responsestr = &Apache::lonnet::hash2str(%responsehash); - my %previous = - &Apache::response::check_for_previous( $responsestr, $part, $id ); - $Apache::lonhomework::results{"resource.$part.$id.submission"} = - $responsestr; + $responsehash{$whichfoils->[$response]}=$response; + my $responsestr=&Apache::lonnet::hash2str(%responsehash); + my %previous=&Apache::response::check_for_previous($responsestr, + $part,$id); + $Apache::lonhomework::results{"resource.$part.$id.submission"}= + $responsestr; &Apache::lonxml::debug("submitted a $response
\n"); my $ad; - - if ( $response == $answer ) { - $ad = 'EXACT_ANS'; - } - else { - $ad = 'INCORRECT'; + if ($response == $answer) { + $ad='EXACT_ANS'; + } else { + $ad='INCORRECT'; } - $Apache::lonhomework::results{"resource.$part.$id.awarddetail"} = $ad; - &Apache::response::handle_previous( \%previous, $ad ); + $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad; + &Apache::response::handle_previous(\%previous,$ad); } sub end_foilgroup { - my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) = - @_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; my $bubble_lines; my $answer_count; - my $id = $Apache::inputtags::response['-1']; - my $part = $Apache::inputtags::part; - my $bubbles_per_line = &getbubblesnum( $part, $id ); + my $id = $Apache::inputtags::response['-1']; + my $part = $Apache::inputtags::part; + my $bubbles_per_line = &getbubblesnum($part,$id); - if ( $target eq 'grade' - || $target eq 'web' - || $target eq 'answer' - || $target eq 'tex' - || $target eq 'analyze' ) - { - my $style = $Apache::lonhomework::type; - my $direction = - &Apache::lonxml::get_param( 'direction', $parstack, $safeeval, '-2' ); - if ( - ( - ( $style eq 'survey' ) - || ( $style eq 'surveycred' ) - || ( $style eq 'anonsurvey' ) - || ( $style eq 'anonsurveycred' ) - ) - && ( $target ne 'analyze' ) - ) - { - if ( $target eq 'web' || $target eq 'tex' ) { - $result = &displayallfoils( $direction, $target ); - } - elsif ( $target eq 'answer' ) { - $result = &displayallanswers(); - } - elsif ( $target eq 'grade' ) { - $result = &storesurvey($style); - } - $answer_count = - scalar( @{ $Apache::response::foilgroup{'names'} } ); + if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || + $target eq 'tex' || $target eq 'analyze') { + my $style = $Apache::lonhomework::type; + my $direction = &Apache::lonxml::get_param('direction',$parstack, + $safeeval,'-2'); + if ( (($style eq 'survey') || ($style eq 'surveycred') || + ($style eq 'anonsurvey') || ($style eq 'anonsurveycred')) + && ($target ne 'analyze')) { + if ($target eq 'web' || $target eq 'tex') { + $result=&displayallfoils($direction, $target); + } elsif ( $target eq 'answer' ) { + $result=&displayallanswers(); + } elsif ( $target eq 'grade' ) { + $result=&storesurvey($style); + } + $answer_count = scalar(@{$Apache::response::foilgroup{'names'}}); - } - else { + } else { - my $name; - my $max = - &Apache::lonxml::get_param( 'max', $parstack, $safeeval, '-2' ); - my $randomize = - &Apache::lonxml::get_param( 'randomize', $parstack, $safeeval, - '-2' ); - my ( $answer, @shown ) = &whichfoils( $max, $randomize ); - $answer_count = scalar(@shown); - - if ( $target eq 'web' || $target eq 'tex' ) { - $result = - &displayfoils( $target, $answer, \@shown, $direction, - $bubbles_per_line ); - } - elsif ( $target eq 'answer' ) { - $result = - &displayanswers( $answer, \@shown, $bubbles_per_line ); - } - elsif ( $target eq 'grade' ) { - &grade_response( $answer, \@shown, $bubbles_per_line ); - } - elsif ( $target eq 'analyze' ) { - my $bubble_lines = - &bubble_line_count( $answer_count, $bubbles_per_line ); - &Apache::response::analyze_store_foilgroup( \@shown, - [ 'text', 'value', 'location' ] ); - my $part_id = "$part.$id"; - push( - @{ $Apache::lonhomework::analyze{"$part_id.options"} }, - ( 'true', 'false' ) - ); + my $name; + my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval, + '-2'); + my $randomize = &Apache::lonxml::get_param('randomize',$parstack, + $safeeval,'-2'); + my ($answer, @shown) = &whichfoils($max, $randomize); + $answer_count = scalar(@shown); + + if ($target eq 'web' || $target eq 'tex') { + $result=&displayfoils($target, + $answer, \@shown, + $direction, + $bubbles_per_line); + } elsif ($target eq 'answer' ) { + $result=&displayanswers($answer, \@shown, $bubbles_per_line); + } elsif ( $target eq 'grade') { + &grade_response($answer, \@shown, $bubbles_per_line); + } elsif ( $target eq 'analyze') { + my $bubble_lines = &bubble_line_count($answer_count, + $bubbles_per_line); + &Apache::response::analyze_store_foilgroup(\@shown, + ['text','value','location']); + my $part_id="$part.$id"; + push (@{ $Apache::lonhomework::analyze{"$part_id.options"} }, + ('true','false')); - } - } - $Apache::lonxml::post_evaluate = 0; + } + } + $Apache::lonxml::post_evaluate=0; } - if ( $target eq 'web' ) { - &Apache::response::setup_prior_tries_hash( \&format_prior_answer, - [ \%Apache::response::foilgroup ] ); + if ($target eq 'web') { + &Apache::response::setup_prior_tries_hash(\&format_prior_answer, + [\%Apache::response::foilgroup]); } &Apache::response::poprandomnumber(); - $bubble_lines = &bubble_line_count( $answer_count, $bubbles_per_line ); - &Apache::lonxml::increment_counter( $bubble_lines, "$part.$id" ); - if ( $target eq 'analyze' ) { - &Apache::lonhomework::set_bubble_lines(); + $bubble_lines = &bubble_line_count($answer_count, $bubbles_per_line); + &Apache::lonxml::increment_counter($bubble_lines, + "$part.$id"); + if ($target eq 'analyze') { + &Apache::lonhomework::set_bubble_lines(); } return $result; } - sub getbubblesnum { - my ( $part, $id ) = @_; + my ($part,$id) = @_; my $bubbles_per_line; my $default_numbubbles = $default_bubbles_per_line; - if ( ( $env{'form.bubbles_per_row'} =~ /^\d+$/ ) - && ( $env{'form.bubbles_per_row'} > 0 ) ) - { + if (($env{'form.bubbles_per_row'} =~ /^\d+$/) && + ($env{'form.bubbles_per_row'} > 0)) { $default_numbubbles = $env{'form.bubbles_per_row'}; } - $bubbles_per_line = &Apache::response::get_response_param( $part . "_$id", - 'numbubbles', $default_numbubbles ); + $bubbles_per_line = + &Apache::response::get_response_param($part."_$id",'numbubbles', + $default_numbubbles); return $bubbles_per_line; } sub getfoilcounts { my @names; - my $truecnt = 0; - my $falsecnt = 0; + my $truecnt=0; + my $falsecnt=0; my $name; if ( $Apache::response::foilgroup{'names'} ) { - @names = @{ $Apache::response::foilgroup{'names'} }; + @names= @{ $Apache::response::foilgroup{'names'} }; } foreach $name (@names) { - if ( $Apache::response::foilgroup{ $name . '.value' } eq 'true' ) { - $truecnt++; - } - elsif ( $Apache::response::foilgroup{ $name . '.value' } eq 'false' ) { - $falsecnt++; - } + if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { + $truecnt++; + } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') { + $falsecnt++; + } } - return ( $truecnt, $falsecnt ); + return ($truecnt,$falsecnt); } sub format_prior_answer { - my ( $mode, $answer, $other_data ) = @_; + my ($mode,$answer,$other_data) = @_; my $foil_data = $other_data->[0]; - my %response = &Apache::lonnet::str2hash($answer); - my ($name) = keys(%response); - return - '' - . $foil_data->{ $name . '.text' } - . ''; + my %response = &Apache::lonnet::str2hash($answer); + my ($name) = keys(%response); + return ''. + $foil_data->{$name.'.text'}.''; } + ## # Return the last survey response. The logic is slightly different than that of # get_last_responses. TODO: See if there are chunks of code betweenthis and @@ -412,6 +375,7 @@ sub get_last_survey_response { $newvariation = 1; } } + $showanswer = &Apache::response::show_answer(); unless ( ( ( @@ -488,25 +452,25 @@ sub display_survey_html { # foil lives in a

# - my $closing_html; - my $pre_foil; - my $post_foil; - - if ($direction eq 'horizontal') { - $result .= ''; - $closing_html = '
'; - $pre_foil = ''; - $post_foil = ''; - } else { - $pre_foil = '
'; - } - # Different rendering depending on whether answers are shown: + my ($opening_html, $closing_html, $pre_foil, $post_foil) = + &html_direction_fragments($direction); - if ($showanswer) { - foreach my $name (@{$names}) { + $result = $opening_html; - $result .= $pre_foil; + # Different rendering depending on whether answers are shown: + # I played with different factorings but this seems the most concise/clear... + # although I don't like the $showanswer conditino inside the loop. Other things I tried + # - two loops..much longer code..no gain in clarity. + # - Using a visitor patttern passing it the rendering code chunklets and + # an anonymous hash reference for state data etc. Very cool but + # quite a bit more code and quite a bit less clear. + + my $temp = 0; + foreach my $name (@{$names}) { + $result .= $pre_foil; + + if ($showanswer) { my $foiltext = $Apache::response::foilgroup{$name . '.text'}; # Bold the prior response: @@ -516,24 +480,17 @@ sub display_survey_html { } else { $result .= $foiltext; } - - $result .= $post_foil; - } - } else { - my $temp = 0; - foreach my $name (@{$names}) { - $result .= $pre_foil; - + } else { $result .= &html_radiobutton( $part, $Apache::inputtags::response['-1'], $name, $lastresponse, $temp ); - - $result .= $post_foil; - $temp++; - } + + $result .= $post_foil; + $temp++; } + $result .= $closing_html; return $result; @@ -555,12 +512,7 @@ sub latex_survey { my ($names, $showanswer, $lastresponse, $direction, $venv) = @_; my $result; - - - - if ($showanswer) { - $result .= "\\begin{$venv}"; foreach my $name (@{$names}) { @@ -606,14 +558,9 @@ sub latex_survey { $result .= '\vskip 0 mm '; } $result .= "\\end{$venv}"; - } - - + } } - return $result; - - } ## # Figure out the LaTeX environment in which to wrap the LaTeX vertical output. @@ -631,7 +578,27 @@ sub latex_vertical_environment { } } - +## +# Figure out the key html fragments that depend on the rendering direction: +# +# @param $direction - 'horizontal' for horizontal direction. +# +# @return list +# @retval (part_start, part_end, foil_start, foil_end) +# Where: +# - part_start is the HTML to emit at the start of the part. +# - part_end is the HTML to emit at the end of the part. +# - foil_start is the HTML to emit prior to each foil. +# - foil_end is the HTML to emit after each foil +# +sub html_direction_fragments { + my $direction = shift; + if ($direction eq 'horizontal') { + return ('', '
', '', ''); + } else { + return ('', '
', '
', ''); + } +} ## # @@ -676,229 +643,155 @@ sub displayallfoils{ ); } - - - return $result; } - - sub whichfoils { - my ( $max, $randomize ) = @_; + my ($max,$randomize)=@_; my @truelist; my @falselist; - my @whichfalse = (); - my ( $truecnt, $falsecnt ) = &getfoilcounts(); - my $count = 0; - + my @whichfalse =(); + my ($truecnt,$falsecnt) = &getfoilcounts(); + my $count=0; # we will add in 1 of the true statements - if ( $max > 0 && ( $falsecnt + 1 ) > $max ) { $count = $max } - else { $count = $falsecnt + 1; $max = $count; } - my $answer = int( &Math::Random::random_uniform() * ($count) ); + if ( $max>0 && ($falsecnt+1)>$max) { $count=$max } else { $count=$falsecnt+1; $max=$count; } + my $answer=int(&Math::Random::random_uniform() * ($count)); &Apache::lonxml::debug("Count is $count, $answer is $answer"); my @names; if ( $Apache::response::foilgroup{'names'} ) { - @names = @{ $Apache::response::foilgroup{'names'} }; - } - if ( &Apache::response::showallfoils() ) { - @whichfalse = @names; + @names= @{ $Apache::response::foilgroup{'names'} }; } - elsif ( $randomize eq 'no' ) { - &Apache::lonxml::debug("No randomization"); - my $havetrue = 0; - foreach my $name (@names) { - if ( $Apache::response::foilgroup{ $name . '.value' } eq 'true' ) { - if ( !$havetrue ) { - push( @whichfalse, $name ); - $havetrue++; - $answer = $#whichfalse; - } - } - elsif ( - $Apache::response::foilgroup{ $name . '.value' } eq 'false' ) - { - push( @whichfalse, $name ); - } - elsif ( - $Apache::response::foilgroup{ $name . '.value' } eq 'unused' ) - { - } - else { - &Apache::lonxml::error( - &HTML::Entities::encode( -"No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in ", - '<>&"' - ) - ); - } - } - if ( ( !$havetrue ) - && ( $Apache::lonhomework::type ne 'survey' ) - && ( $Apache::lonhomework::type ne 'surveycred' ) - && ( $Apache::lonhomework::type ne 'anonsurvey' ) - && ( $Apache::lonhomework::type ne 'anonsurveycred' ) ) - { - &Apache::lonxml::error( - &mt('There are no true statements available.') . '
' ); - } - } - else { - my $current = 0; - &Apache::lonhomework::showhash(%Apache::response::foilgroup); - my ( %top, %bottom ); - - #first find out where everyone wants to be - foreach my $name (@names) { - $current++; - if ( $Apache::response::foilgroup{ $name . '.value' } eq 'true' ) { - push( @truelist, $name ); - if ( $Apache::response::foilgroup{ $name . '.location' } eq - 'top' ) - { - $top{$name} = $current; - } - elsif ( $Apache::response::foilgroup{ $name . '.location' } eq - 'bottom' ) - { - $bottom{$name} = $current; - } - } - elsif ( - $Apache::response::foilgroup{ $name . '.value' } eq 'false' ) - { - push( @falselist, $name ); - if ( $Apache::response::foilgroup{ $name . '.location' } eq - 'top' ) - { - $top{$name} = $current; - } - elsif ( $Apache::response::foilgroup{ $name . '.location' } eq - 'bottom' ) - { - $bottom{$name} = $current; - } - } - elsif ( - $Apache::response::foilgroup{ $name . '.value' } eq 'unused' ) - { - } - else { - &Apache::lonxml::error( - &HTML::Entities::encode( -"No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in ", - '<>&"' - ) - ); - } - } - - #pick a true statement - my $notrue = 0; - if ( scalar(@truelist) == 0 ) { $notrue = 1; } - my $whichtrue = - int( &Math::Random::random_uniform() * ( $#truelist + 1 ) ); - &Apache::lonxml::debug( - "Max is $max, From $#truelist elms, picking $whichtrue"); - my ( @toplist, @bottomlist ); - my $topcount = 0; - my $bottomcount = 0; - - # assign everyone to either toplist/bottomlist or whichfalse - # which false is randomized, toplist bottomlist are in order - while (( ( $#whichfalse + $topcount + $bottomcount ) < $max - 2 ) - && ( $#falselist > -1 ) ) - { - &Apache::lonxml::debug("Have $#whichfalse max is $max"); - my $afalse = - int( &Math::Random::random_uniform() * ( $#falselist + 1 ) ); - &Apache::lonxml::debug("From $#falselist elms, picking $afalse"); - $afalse = splice( @falselist, $afalse, 1 ); - &Apache::lonxml::debug("Picked $afalse"); - &Apache::lonhomework::showhash( ( 'names' => \@names ) ); - &Apache::lonhomework::showhash(%top); - if ( $top{$afalse} ) { - $toplist[ $top{$afalse} ] = $afalse; - $topcount++; - } - elsif ( $bottom{$afalse} ) { - $bottomlist[ $bottom{$afalse} ] = $afalse; - $bottomcount++; - } - else { - push( @whichfalse, $afalse ); - } - } - &Apache::lonxml::debug("Answer wants $answer"); - my $truename = $truelist[$whichtrue]; - my $dosplice = 1; - if ( ($notrue) - && ( $Apache::lonhomework::type ne 'survey' ) - && ( $Apache::lonhomework::type ne 'surveycred' ) - && ( $Apache::lonhomework::type ne 'anonsurvey' ) - && ( $Apache::lonhomework::type ne 'anonsurveycred' ) ) - { - $dosplice = 0; - &Apache::lonxml::error( - &mt('There are no true statements available.') . '
' ); - } - - #insert the true statement, keeping track of where it wants to be - if ( $Apache::response::foilgroup{ $truename . '.location' } eq 'top' - && $dosplice ) - { - $toplist[ $top{$truename} ] = $truename; - $answer = -1; - foreach my $top ( reverse(@toplist) ) { - if ($top) { $answer++; } - if ( $top eq $truename ) { last; } - } - $dosplice = 0; - } - elsif ( - $Apache::response::foilgroup{ $truename . '.location' } eq 'bottom' - && $dosplice ) - { - $bottomlist[ $bottom{$truename} ] = $truename; - $answer = -1; - foreach my $bot (@bottomlist) { - if ($bot) { $answer++; } - if ( $bot eq $truename ) { last; } - } - $answer += $topcount + $#whichfalse + 1; - $dosplice = 0; - } - else { - if ( $topcount > 0 || $bottomcount > 0 ) { + if (&Apache::response::showallfoils()) { + @whichfalse=@names; + } elsif ($randomize eq 'no') { + &Apache::lonxml::debug("No randomization"); + my $havetrue=0; + foreach my $name (@names) { + if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { + if (!$havetrue ) { + push(@whichfalse,$name); $havetrue++; $answer=$#whichfalse; + } + } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') { + push (@whichfalse,$name); + } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'unused') { + } else { + &Apache::lonxml::error(&HTML::Entities::encode("No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in ",'<>&"')); + } + } + if ((!$havetrue) && + ($Apache::lonhomework::type ne 'survey') && + ($Apache::lonhomework::type ne 'surveycred') && + ($Apache::lonhomework::type ne 'anonsurvey') && + ($Apache::lonhomework::type ne 'anonsurveycred')) { + &Apache::lonxml::error(&mt('There are no true statements available.').'
'); + } + } else { + my $current=0; + &Apache::lonhomework::showhash(%Apache::response::foilgroup); + my (%top,%bottom); + #first find out where everyone wants to be + foreach my $name (@names) { + $current++; + if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { + push (@truelist,$name); + if ($Apache::response::foilgroup{$name.'.location'} eq 'top') { + $top{$name}=$current; + } elsif ($Apache::response::foilgroup{$name.'.location'} eq 'bottom') { + $bottom{$name}=$current; + } + } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') { + push (@falselist,$name); + if ($Apache::response::foilgroup{$name.'.location'} eq 'top') { + $top{$name}=$current; + } elsif ($Apache::response::foilgroup{$name.'.location'} eq 'bottom') { + $bottom{$name}=$current; + } + } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'unused') { + } else { + &Apache::lonxml::error(&HTML::Entities::encode("No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in ",'<>&"')); + } + } + #pick a true statement + my $notrue=0; + if (scalar(@truelist) == 0) { $notrue=1; } + my $whichtrue = int(&Math::Random::random_uniform() * ($#truelist+1)); + &Apache::lonxml::debug("Max is $max, From $#truelist elms, picking $whichtrue"); + my (@toplist, @bottomlist); + my $topcount=0; + my $bottomcount=0; + # assign everyone to either toplist/bottomlist or whichfalse + # which false is randomized, toplist bottomlist are in order + while ((($#whichfalse+$topcount+$bottomcount) < $max-2) && ($#falselist > -1)) { + &Apache::lonxml::debug("Have $#whichfalse max is $max"); + my $afalse=int(&Math::Random::random_uniform() * ($#falselist+1)); + &Apache::lonxml::debug("From $#falselist elms, picking $afalse"); + $afalse=splice(@falselist,$afalse,1); + &Apache::lonxml::debug("Picked $afalse"); + &Apache::lonhomework::showhash(('names'=>\@names)); + &Apache::lonhomework::showhash(%top); + if ($top{$afalse}) { + $toplist[$top{$afalse}]=$afalse; + $topcount++; + } elsif ($bottom{$afalse}) { + $bottomlist[$bottom{$afalse}]=$afalse; + $bottomcount++; + } else { + push (@whichfalse,$afalse); + } + } + &Apache::lonxml::debug("Answer wants $answer"); + my $truename=$truelist[$whichtrue]; + my $dosplice=1; + if (($notrue) && + ($Apache::lonhomework::type ne 'survey') && + ($Apache::lonhomework::type ne 'surveycred') && + ($Apache::lonhomework::type ne 'anonsurvey') && + ($Apache::lonhomework::type ne 'anonsurveycred')) { + $dosplice=0; + &Apache::lonxml::error(&mt('There are no true statements available.').'
'); + } + #insert the true statement, keeping track of where it wants to be + if ($Apache::response::foilgroup{$truename.'.location'} eq 'top' && $dosplice) { + $toplist[$top{$truename}]=$truename; + $answer=-1; + foreach my $top (reverse(@toplist)) { + if ($top) { $answer++;} + if ($top eq $truename) { last; } + } + $dosplice=0; + } elsif ($Apache::response::foilgroup{$truename.'.location'} eq 'bottom' && $dosplice) { + $bottomlist[$bottom{$truename}]=$truename; + $answer=-1; + foreach my $bot (@bottomlist) { + if ($bot) { $answer++;} + if ($bot eq $truename) { last; } + } + $answer+=$topcount+$#whichfalse+1; + $dosplice=0; + } else { + if ($topcount>0 || $bottomcount>0) { my $inc = 1; - if ( ( $bottomcount > 0 ) - && ( $Apache::lonhomework::type ne 'exam' ) ) - { + if (($bottomcount > 0) && ($Apache::lonhomework::type ne 'exam')) { $inc = 2; } - $answer = int( - &Math::Random::random_uniform() * ( $#whichfalse + $inc ) ) - + $topcount; - } - } - &Apache::lonxml::debug("Answer now wants $answer"); - - #add the top items to the top, bottom items to the bottom - for ( my $i = 0 ; $i <= $#toplist ; $i++ ) { - if ( $toplist[$i] ) { unshift( @whichfalse, $toplist[$i] ) } - } - for ( my $i = 0 ; $i <= $#bottomlist ; $i++ ) { - if ( $bottomlist[$i] ) { push( @whichfalse, $bottomlist[$i] ) } - } - - #if the true statement is randomized insert it into the list - if ($dosplice) { - splice( @whichfalse, $answer, 0, $truelist[$whichtrue] ); - } + $answer=int(&Math::Random::random_uniform() * ($#whichfalse+$inc)) + + $topcount; + } + } + &Apache::lonxml::debug("Answer now wants $answer"); + #add the top items to the top, bottom items to the bottom + for (my $i=0;$i<=$#toplist;$i++) { + if ($toplist[$i]) { unshift(@whichfalse,$toplist[$i]) } + } + for (my $i=0;$i<=$#bottomlist;$i++) { + if ($bottomlist[$i]) { push(@whichfalse,$bottomlist[$i]) } + } + #if the true statement is randomized insert it into the list + if ($dosplice) { splice(@whichfalse,$answer,0,$truelist[$whichtrue]); } } &Apache::lonxml::debug("Answer is $answer"); - return ( $answer, @whichfalse ); + return ($answer,@whichfalse); } ## @@ -1005,23 +898,17 @@ sub display_foils_html { my ($whichfoils, $target, $direction, $part, $show_answer) = @_; my $result; + # if the answers get shown, we need to label each item as correct or # incorrect. - if ($show_answer) { - my $item_pretext = '
'; # html prior to each item - my $item_posttext = ''; # html after each item. - my $finalclose = ''; # html to close off the whole shebang + my ($opening_html, $finalclose, $item_pretext, $item_posttext) = + &html_direction_fragments($direction); + $result .= $opening_html; - # Horizontal layout is a table with each foil in a cell - if ($direction eq 'horizontal') { - $result = ''; - $item_pretext = ''; - $finalclose = '
' . $item_pretext; - $item_posttext = '
'; - } + if ($show_answer) { foreach my $name (@{$whichfoils}) { @@ -1055,25 +942,10 @@ sub display_foils_html { $result .= "\n"; # make the html a bit more readable. } - $result .= $finalclose; } else { - $result .= '
'; # end line prior to foilgroup: - - # Not showing the answers, we need to generate the HTML appropriate - # to allowing the student to respond. - - my $item_pretext; - my $item_posttext; my $lastresponse = &get_last_response($part); - - if ( $direction eq 'horizontal' ) { - $item_pretext = ''; - $item_posttext = ''; - } - else { - $item_pretext = '
'; - } + my $item_no = 0; foreach my $name (@{$whichfoils}) { $result .= $item_pretext; @@ -1084,13 +956,9 @@ sub display_foils_html { $result .= $item_posttext; $item_no++; } - - if ($direction eq 'horizontal' ) { - $result .= ""; - } else { - $result .= "
"; - } + } + $result .= $finalclose; return $result; } @@ -1114,7 +982,7 @@ sub display_latex_exam { my $line = 0; my $i = 0; - + if ($direction eq 'horizontal') { # Marshall the display text for each foil and turn things over to @@ -1124,10 +992,10 @@ sub display_latex_exam { $result .= &Apache::caparesponse::make_horizontal_latex_bubbles( $whichfoils, \@foil_texts, '$\bigcirc$'); - } else { - $result .= "\\begin{$venv}"; + $result .= '\vskip 2mm \noindent'; + # This section puts out the prefix that tells the user # (if necessary) to only choose one bubble in the next n lines # for problems with more than one line worth of bubbles in the grid sheet: @@ -1147,14 +1015,14 @@ sub display_latex_exam { } $linetext =~ s/,\s$//; $result .= - '\item[\small {\textbf{' - . $linetext . '}}]' + '\small {\textbf{' + . $linetext . '}} ' . ' {\footnotesize ' . &mt( '(Bubble once in [_1] lines)', $numlines ) . '} \hspace*{\fill} \\\\'; } else { - $result .= '\item[\textbf{' . $Apache::lonxml::counter . '}.]'; + $result .= '\textbf{' . $Apache::lonxml::counter . '}.'; } # Now output the bubbles themselves: @@ -1169,18 +1037,22 @@ sub display_latex_exam { if ( $numlines > 1 ) { $identifier = $Apache::lonxml::counter + $line; } - $result .= - '{\small \textbf{' - . $identifier + my $preindent; + if ($bubble_number > 0) { + $preindent = '\hspace*{3 mm}'; + } + my $foiltext = $Apache::response::foilgroup{$name . '.text'}; + $foiltext =~ s/\\noindent//; # forgive me for I have sinned.. + $result .= '{\small \textbf{' + . $identifier .$preindent . $alphabet[$i] . '}}$\bigcirc$' - . $Apache::response::foilgroup{ $name . '.text' } + . $foiltext . '\\\\'; #' stupid emacs -- it thinks it needs that apostrophe to close the quote $i++; $bubble_number++; } - $result .= "\\end{$venv}"; } @@ -1287,9 +1159,10 @@ sub display_pdf_form { # @retval The rendered problem. sub displayfoils { - my ( $target, $answer, $whichfoils, $direction, $bubbles_per_line ) = @_; + my ($target,$answer,$whichfoils,$direction, $bubbles_per_line)=@_; my $result; + my $part = $Apache::inputtags::part; my $solved = $Apache::lonhomework::history{"resource.$part.solved"}; @@ -1344,8 +1217,6 @@ sub displayfoils { $result .= '\vskip 0 mm '; } - - } return $result; } @@ -1353,181 +1224,141 @@ sub displayfoils { sub displayallanswers { my @names; if ( $Apache::response::foilgroup{'names'} ) { - @names = @{ $Apache::response::foilgroup{'names'} }; + @names= @{ $Apache::response::foilgroup{'names'} }; } - my $result = &Apache::response::answer_header('radiobuttonresponse'); + 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_part('radiobuttonresponse', + $Apache::response::foilgroup{$name.'.value'}); } - $result .= &Apache::response::answer_footer('radiobuttonresponse'); + $result.=&Apache::response::answer_footer('radiobuttonresponse'); return $result; } sub displayanswers { - my ( $answer, $whichopt, $bubbles_per_line ) = @_; + my ($answer, $whichopt, $bubbles_per_line)=@_; my $result; - if ( $Apache::lonhomework::type eq 'exam' ) { - my $line = int( $answer / $bubbles_per_line ); - my $correct = ( 'A' .. 'Z' )[ $answer % $bubbles_per_line ]; - $result .= - &Apache::response::answer_header( 'radiobuttonresponse', $line ); - $result .= - &Apache::response::answer_part( 'radiobuttonresponse', $correct ); - } - else { - $result .= &Apache::response::answer_header('radiobuttonresponse'); - } - foreach my $name ( @{$whichopt} ) { - $result .= - &Apache::response::answer_part( 'radiobuttonresponse', - $Apache::response::foilgroup{ $name . '.value' } ); + if ($Apache::lonhomework::type eq 'exam') { + my $line = int($answer/$bubbles_per_line); + my $correct = ('A'..'Z')[$answer%$bubbles_per_line]; + $result .= &Apache::response::answer_header('radiobuttonresponse', + $line); + $result .= &Apache::response::answer_part('radiobuttonresponse', + $correct); + } else { + $result .= &Apache::response::answer_header('radiobuttonresponse'); + } + foreach my $name (@{ $whichopt }) { + $result.=&Apache::response::answer_part('radiobuttonresponse', + $Apache::response::foilgroup{$name.'.value'}); } - $result .= &Apache::response::answer_footer('radiobuttonresponse'); + $result.=&Apache::response::answer_footer('radiobuttonresponse'); return $result; } sub start_conceptgroup { - my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) = - @_; - $Apache::radiobuttonresponse::conceptgroup = 1; - %Apache::response::conceptgroup = (); + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + $Apache::radiobuttonresponse::conceptgroup=1; + %Apache::response::conceptgroup=(); my $result; - if ( $target eq 'edit' ) { - $result .= &Apache::edit::tag_start( $target, $token ); - $result .= - &Apache::edit::text_arg( 'Concept:', 'concept', $token, '50' ) - . &Apache::edit::end_row() - . &Apache::edit::start_spanning_row(); - } - elsif ( $target eq 'modified' ) { - my $constructtag = - &Apache::edit::get_new_args( $token, $parstack, $safeeval, - 'concept' ); - if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } + if ($target eq 'edit') { + $result.=&Apache::edit::tag_start($target,$token); + $result.=&Apache::edit::text_arg('Concept:','concept',$token,'50'). + &Apache::edit::end_row().&Apache::edit::start_spanning_row(); + } elsif ($target eq 'modified') { + my $constructtag=&Apache::edit::get_new_args($token,$parstack, + $safeeval,'concept'); + if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } } return $result; } sub end_conceptgroup { - my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) = - @_; - $Apache::radiobuttonresponse::conceptgroup = 0; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + $Apache::radiobuttonresponse::conceptgroup=0; my $result; - if ( $target eq 'web' - || $target eq 'grade' - || $target eq 'answer' - || $target eq 'tex' - || $target eq 'analyze' ) - { - &Apache::response::pick_foil_for_concept( $target, - [ 'value', 'text', 'location' ], - \%Apache::hint::radiobutton, $parstack, $safeeval ); - } - elsif ( $target eq 'edit' ) { - $result = &Apache::edit::end_table(); + if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || + $target eq 'tex' || $target eq 'analyze') { + &Apache::response::pick_foil_for_concept($target, + ['value','text','location'], + \%Apache::hint::radiobutton, + $parstack,$safeeval); + } elsif ($target eq 'edit') { + $result=&Apache::edit::end_table(); } return $result; } sub insert_conceptgroup { - my $result = - "\n\t\t" - . &insert_foil() - . "\n\t\t\n"; + my $result="\n\t\t".&insert_foil()."\n\t\t\n"; return $result; } sub start_foil { - my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) = - @_; - my $result = ''; - if ( $target eq 'web' || $target eq 'tex' || $target eq 'analyze' ) { - &Apache::lonxml::startredirection; - if ( $target eq 'analyze' ) { - &Apache::response::check_if_computed( $token, $parstack, $safeeval, - 'value' ); - } - } - elsif ( $target eq 'edit' ) { - $result = &Apache::edit::tag_start( $target, $token ); - $result .= &Apache::edit::text_arg( 'Name:', 'name', $token ); - $result .= &Apache::edit::select_or_text_arg( - 'Correct Option:', 'value', - [ 'unused', 'true', 'false' ], $token - ); - my $randomize = - &Apache::lonxml::get_param( 'randomize', $parstack, $safeeval, '-3' ); - if ( $randomize ne 'no' ) { - $result .= - &Apache::edit::select_arg( 'Location:', 'location', - [ 'random', 'top', 'bottom' ], $token ); - } - $result .= - &Apache::edit::end_row() . &Apache::edit::start_spanning_row(); - } - elsif ( $target eq 'modified' ) { - my $constructtag = - &Apache::edit::get_new_args( $token, $parstack, $safeeval, 'value', - 'name', 'location' ); - if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } - } + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result=''; + if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { + &Apache::lonxml::startredirection; + if ($target eq 'analyze') { + &Apache::response::check_if_computed($token,$parstack,$safeeval,'value'); + } + } elsif ($target eq 'edit') { + $result=&Apache::edit::tag_start($target,$token); + $result.=&Apache::edit::text_arg('Name:','name',$token); + $result.=&Apache::edit::select_or_text_arg('Correct Option:','value', + ['unused','true','false'], + $token); + my $randomize=&Apache::lonxml::get_param('randomize',$parstack, + $safeeval,'-3'); + if ($randomize ne 'no') { + $result.=&Apache::edit::select_arg('Location:','location', + ['random','top','bottom'],$token); + } + $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); + } elsif ($target eq 'modified') { + my $constructtag=&Apache::edit::get_new_args($token,$parstack, + $safeeval,'value','name', + 'location'); + if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } + } return $result; } sub end_foil { - my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) = - @_; - my $text = ''; - if ( $target eq 'web' || $target eq 'tex' || $target eq 'analyze' ) { - $text = &Apache::lonxml::endredirection; - } - if ( $target eq 'web' - || $target eq 'grade' - || $target eq 'answer' - || $target eq 'tex' - || $target eq 'analyze' ) - { - my $value = &Apache::lonxml::get_param( 'value', $parstack, $safeeval ); - if ( $value ne 'unused' ) { - my $name = - &Apache::lonxml::get_param( 'name', $parstack, $safeeval ); - if ( $name eq "" ) { - &Apache::lonxml::warning( - &mt( -'Foils without names exist. This can cause problems to malfunction.' - ) - ); - $name = $Apache::lonxml::curdepth; - } - if ( defined( $Apache::response::foilnames{$name} ) ) { - &Apache::lonxml::error( - &mt( -'Foil name [_1] appears more than once. Foil names need to be unique.', - '' . $name . '' - ) - ); - } - $Apache::response::foilnames{$name}++; - my $location = - &Apache::lonxml::get_param( 'location', $parstack, $safeeval ); - if ( $Apache::radiobuttonresponse::conceptgroup - && !&Apache::response::showallfoils() ) - { - push @{ $Apache::response::conceptgroup{'names'} }, $name; - $Apache::response::conceptgroup{"$name.value"} = $value; - $Apache::response::conceptgroup{"$name.text"} = $text; - $Apache::response::conceptgroup{"$name.location"} = $location; - } - else { - push @{ $Apache::response::foilgroup{'names'} }, $name; - $Apache::response::foilgroup{"$name.value"} = $value; - $Apache::response::foilgroup{"$name.text"} = $text; - $Apache::response::foilgroup{"$name.location"} = $location; - } - } + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $text=''; + if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { + $text=&Apache::lonxml::endredirection; + } + if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' + || $target eq 'tex' || $target eq 'analyze') { + my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); + if ($value ne 'unused') { + my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); + if ($name eq "") { + &Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.')); + $name=$Apache::lonxml::curdepth; + } + if (defined($Apache::response::foilnames{$name})) { + &Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.',''.$name.'')); + } + $Apache::response::foilnames{$name}++; + my $location =&Apache::lonxml::get_param('location',$parstack, + $safeeval); + if ( $Apache::radiobuttonresponse::conceptgroup + && !&Apache::response::showallfoils() ) { + push @{ $Apache::response::conceptgroup{'names'} }, $name; + $Apache::response::conceptgroup{"$name.value"} = $value; + $Apache::response::conceptgroup{"$name.text"} = $text; + $Apache::response::conceptgroup{"$name.location"} = $location; + } else { + push @{ $Apache::response::foilgroup{'names'} }, $name; + $Apache::response::foilgroup{"$name.value"} = $value; + $Apache::response::foilgroup{"$name.text"} = $text; + $Apache::response::foilgroup{"$name.location"} = $location; + } + } } return ''; }