--- loncom/homework/hint.pm 2000/12/21 18:13:33 1.2 +++ loncom/homework/hint.pm 2002/11/13 23:37:56 1.32 @@ -1,59 +1,374 @@ +# The LearningOnline Network with CAPA +# implements the tags that control the hints +# +# $Id: hint.pm,v 1.32 2002/11/13 23:37:56 albertel Exp $ +# +# Copyright Michigan State University Board of Trustees +# +# This file is part of the LearningOnline Network with CAPA (LON-CAPA). +# +# LON-CAPA is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# LON-CAPA is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with LON-CAPA; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# /home/httpd/html/adm/gpl.txt +# +# http://www.lon-capa.org/ +# + package Apache::hinttags; use strict; use Apache::lonnet; +use capa; -sub BEGIN { - &Apache::lonxml::register('Apache::hinttags',('hintgroup','hintpart')); +BEGIN { + &Apache::lonxml::register('Apache::hinttags',('hintgroup','hintpart','numericalhint','stringhint','formulahint','optionhint','radiobuttonhint')); } +@Apache::hint::which=(); sub start_hintgroup { - my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; - my $id=$Apache::inputtags::part; - my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; - if ( $numtries eq '') { $numtries = 0; } - my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); - if ( $hinttries eq '') { $hinttries = 1; } - &Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); - if ( $numtries < $hinttries ) { - &Apache::lonxml::get_all_text("/hintgroup",$$parser[$#$parser]); + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $skiptoend='0'; + my $result; + + if ($target eq 'web') { + my $id=$Apache::inputtags::part; + my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; + if ( $numtries eq '') { $numtries = 0; } + my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); + if ( $hinttries eq '') { $hinttries = 1; } + &Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); + if ( $numtries < $hinttries ) { + $skiptoend='1'; + } else { + if ($target eq 'web') {$result='
';} + } + if ($skiptoend) { + &Apache::lonxml::get_all_text("/hintgroup",$$parser[$#$parser]); + } + } elsif ($target eq 'tex') { + $result .= '\keephidden{'; } - return ''; + @Apache::hint::which=(); + return $result; } sub end_hintgroup { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + + if ($target eq 'web') { + my $id=$Apache::inputtags::part; + my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; + if ( $numtries eq '') { $numtries = 0; } + my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); + if ( $hinttries eq '') { $hinttries = 1; } + &Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); + if ( $numtries >= $hinttries ) { + $result='
'; + } + } elsif ($target eq 'edit') { + $result.=&Apache::edit::end_table(); + } elsif ($target eq 'tex') { + $result .= '}'; + } + @Apache::hint::which=(); + return $result; +} + +sub start_numericalhint { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + #do everything in end, so intervening work + &Apache::response::start_hintresponse($parstack,$safeeval); + my $result; + if ($target eq 'edit') { + $result.=&Apache::edit::tag_start($target,$token); + $result.=&Apache::edit::text_arg('Name:','name',$token); + $result.=&Apache::edit::text_arg('Answer:','answer',$token); + if ($token->[1] eq 'numericalhint') { + $result.=&Apache::edit::text_arg('Unit:','unit',$token,5); + $result.=&Apache::edit::text_arg('Format:','format',$token,4); + } elsif ($token->[1] eq 'stringhint') { + $result.=&Apache::edit::select_arg('Type:','type',['cs','ci','mc'],$token); + } elsif ($token->[1] eq 'formulahint') { + $result.=&Apache::edit::text_arg('Sample Points:','samples',$token,40); + } + $result.=&Apache::edit::end_row(); + $result.=&Apache::edit::start_spanning_row(); + } elsif ($target eq 'modified') { + my $constructtag; + if ($token->[1] eq 'numericalhint') { + $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, + 'name','answer','unit','format'); + } elsif ($token->[1] eq 'stringhint') { + $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, + 'name','answer','type'); + } elsif ($token->[1] eq 'formulahint') { + $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, + 'name','answer','samples'); + } + if ($constructtag) { + $result = &Apache::edit::rebuild_tag($token); + $result .= &Apache::edit::handle_insert(); + } + } + return $result; +} + +sub end_numericalhint { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + if ($target eq 'web') { + if (!$Apache::lonxml::default_homework_loaded) { + &Apache::lonxml::default_homework_load($safeeval); + } + $safeeval->share_from('capa',['&caparesponse_capa_check_answer']); + my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); + &Apache::response::setup_params('numericalhint'); + my $partid=$Apache::inputtags::part; + my $id=$Apache::inputtags::response['-1']; + #id submissions occured under + my $submitid=$Apache::inputtags::response['-2']; + my $response = $Apache::lonhomework::history{ + "resource.$partid.$submitid.submission"}; + &Apache::lonxml::debug("hintgroup is using $response
\n"); + #build safe space expression + my $expression="&caparesponse_check_list('".$response."','". + $$parstack[$#$parstack]; + #need to get all possible parms + foreach my $key (keys(%Apache::inputtags::params)) { + $expression.= ';my $'. #' + $key.'="'.$Apache::inputtags::params{$key}.'"'; + } + $expression.="');"; + $result = &Apache::run::run($expression,$safeeval); + &Apache::lonxml::debug("$expression:result:$result:$Apache::lonxml::curdepth"); + my ($awards) = split /:/ , $result; + my ($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards); + if ($ad eq 'EXACT_ANS' || $ad eq 'APPROX_ANS') { push (@Apache::hint::which,$name); } + $result=''; + } elsif ($target eq 'meta') { + $result=&Apache::response::meta_package_write('numericalhint'); + } elsif ($target eq 'edit') { + $result.=''.&Apache::edit::end_table; + } + &Apache::response::end_hintresponse(); + return $result; +} + +sub start_stringhint { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + if ($target eq 'meta') { + $result=&Apache::response::meta_package_write('stringhint'); + } else { + $result.=&start_numericalhint(@_); + } + return $result; +} + +sub end_stringhint { + return end_numericalhint(@_); +} + +sub start_formulahint { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + if ($target eq 'meta') { + $result=&Apache::response::meta_package_write('formulahint'); + } else { + $result.=&start_numericalhint(@_); + } + return $result; +} + +sub end_formulahint { + return end_numericalhint(@_); } # a part shows if it is on, if no specific parts are on, then default shows sub start_hintpart { - return ''; - my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $show ='0'; - if ($target ne 'meta' && $target ne 'grade') { - my $args =''; - if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } - my $on = &Apache::run::run("{$args;".'return $on}',$safeeval); - if ( $on eq 'default') { + my $result = ''; + if ($target eq 'web') { + my $on= &Apache::lonxml::get_param('on',$parstack,$safeeval); + &Apache::lonxml::debug("hintpart sees $on and ,$#Apache::hint::which"); + if ( $on eq 'default' && $#Apache::hint::which == '-1') { + $show=1; } else { - my (%results) = &Apache::run::run("{$args; return ".'\%'.$on,$safeeval); - my $key; - foreach $key (keys %results) { - &Apache::lonxml::debug("Got $key"); - } + my $which; + foreach $which (@Apache::hint::which) { if ($which eq $on) { $show = 1; last } } } if (!$show) { - &Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]); + &Apache::lonxml::get_all_text("/hintpart",$$parser[$#$parser]); + } + } elsif ($target eq 'grade') { + &Apache::lonxml::get_all_text("/hintpart",$$parser[$#$parser]); + } elsif ($target eq 'edit') { + $result.= &Apache::edit::tag_start($target,$token); + $result.= &Apache::edit::text_arg('On:','on',$token); + $result.= &Apache::edit::end_row(); + $result.= &Apache::edit::start_spanning_row(); + } elsif ($target eq 'modified') { + my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, + 'on'); + if ($constructtag) { + $result = &Apache::edit::rebuild_tag($token); + $result.=&Apache::edit::handle_insert(); } - } else { - &Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]); } - return ''; + return $result; } sub end_hintpart { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + my $result; + if ($target eq 'edit') { $result.=&Apache::edit::end_table; } + return $result; +} + +sub start_optionhint { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + my $result; + &Apache::response::start_hintresponse($parstack,$safeeval); + if ($target eq 'edit') { + $result.=&Apache::edit::tag_start($target,$token); + $result.=&Apache::edit::text_arg('Name:','name',$token); + $result.=&Apache::edit::text_arg('Answer:','answer',$token,40); + $result.=&Apache::edit::text_arg('Concept:','concept',$token,50); + } elsif ($target eq 'modified') { + my $constructtag=&Apache::edit::get_new_args($token,$parstack, + $safeeval,'name', + 'answer','concept'); + if ($constructtag) { + $result = &Apache::edit::rebuild_tag($token); + $result .= &Apache::edit::handle_insert(); + } + } elsif ($target eq 'meta') { + $result=&Apache::response::meta_package_write('numericalhint'); + } + return $result; +} + +sub end_optionhint { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + my $result; + if ($target eq 'web') { + my ($foilmatch,$conceptmatch)=(-1,-1); + my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); + my $partid=$Apache::inputtags::part; + #id submissions occured under + my $submitid=$Apache::inputtags::response['-2']; + my $part_id="$partid.$submitid"; + my %answer; + my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval); + if ($answer) { + eval('%answer ='.$answer); + &Apache::lonhomework::showhash(%answer); + my $response = $Apache::lonhomework::history{ + "resource.$part_id.submission"}; + my %response=&Apache::lonnet::str2hash($response); + &Apache::lonhomework::showhash(%response); + foreach my $foil (keys(%answer)) { + $foilmatch=1; + if ($answer{$foil} ne $response{$foil}) {$foilmatch=0;last;} + } + } + my %concept; + my $constr=&Apache::lonxml::get_param('concept',$parstack,$safeeval); + if ( $constr ) { eval('%concept ='.$constr); } + my $response = $Apache::lonhomework::history{ + "resource.$part_id.submissiongrading"}; + my %response=&Apache::lonnet::str2hash($response); + foreach my $concept (keys(%concept)) { + my $compare; + if ($concept{$concept} eq 'correct') {$compare=1}else{$compare=0} + $conceptmatch=1; + if (ref($Apache::hint::option{"$part_id.concepts"})) { + foreach my $foil (@{ $Apache::hint::option{"$part_id.concept.$concept"} }) { + &Apache::lonxml::debug("compare -$foil- -$response{$foil}-$compare-"); + if ( exists($response{$foil}) && + $response{$foil} ne $compare) {$conceptmatch=0;last;} + } + } else { + $conceptmatch=0; + } + if ($conceptmatch eq '0') { last; } + } + if ( ($conceptmatch eq '-1' || $conceptmatch eq '1') && + ($foilmatch eq '-1' || $foilmatch eq '1') ) { + push(@Apache::hint::which,$name); + } + } elsif ($target eq 'edit') { $result.=&Apache::edit::end_table; } + if ($target eq 'edit') { $result.=&Apache::edit::end_table; } + &Apache::response::end_hintresponse(); + return $result; } +sub start_radiobuttonhint { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + my $result; + &Apache::response::start_hintresponse($parstack,$safeeval); + if ($target eq 'edit') { + $result.=&Apache::edit::tag_start($target,$token); + $result.=&Apache::edit::text_arg('Name:','name',$token); + $result.=&Apache::edit::text_arg('Answer:','answer',$token); + } elsif ($target eq 'modified') { + my $constructtag=&Apache::edit::get_new_args($token,$parstack, + $safeeval,'name', + 'answer'); + if ($constructtag) { + $result = &Apache::edit::rebuild_tag($token); + $result .= &Apache::edit::handle_insert(); + } + } elsif ($target eq 'meta') { + $result=&Apache::response::meta_package_write('numericalhint'); + } + return $result; +} + +sub end_radiobuttonhint { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + my $result; + if ($target eq 'web') { + my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); + my @answer; + my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval); + eval('@answer ='.$answer); + my $partid=$Apache::inputtags::part; + #id submissions occured under + my $submitid=$Apache::inputtags::response['-2']; + my $part_id="$partid.$submitid"; + my $response = $Apache::lonhomework::history{ + "resource.$part_id.submission"}; + ($response)=&Apache::lonnet::str2hash($response); + if ($answer[0] eq 'foil' && $response eq $answer[1]) { + push (@Apache::hint::which,$name); + } elsif ($answer[0] eq 'concept') { + if (ref($Apache::hint::radiobutton{"$part_id.concept.".$answer[1]})) { + my @names=@{ $Apache::hint::radiobutton{"$part_id.concept.".$answer[1]} }; + if (grep(/^\Q$response\E$/,@names)) { + push(@Apache::hint::which,$name); + } + } + } + } elsif ($target eq 'edit') { $result.=&Apache::edit::end_table; } + &Apache::response::end_hintresponse(); + return $result; +} 1; __END__