--- loncom/homework/hint.pm 2001/08/06 17:12:29 1.14 +++ loncom/homework/hint.pm 2002/01/11 16:32:29 1.22 @@ -1,12 +1,30 @@ -# The LON-CAPA hint handler. +# The LearningOnline Network with CAPA +# implements the tags that control the hints # -# Handles the displaying of hints. +# $Id: hint.pm,v 1.22 2002/01/11 16:32:29 matthew 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/ # -# YEAR=2000 -# 12/19,12/21 Guy Albertelli -# YEAR=2001 -# 1/4,1/5,1/22,2/7,2/19,3/31,4/5,4/10,5/31,6/2 Guy Albertelli -# 8/6 Scott Harrison package Apache::hinttags; @@ -14,123 +32,163 @@ use strict; use Apache::lonnet; use capa; -# ======================================================================= BEGIN sub BEGIN { - &Apache::lonxml::register('Apache::hinttags',('hintgroup','hintpart', - 'numericalhint')); + &Apache::lonxml::register('Apache::hinttags',('hintgroup','hintpart','numericalhint')); } -@Apache::hint::which = (); -# ============================================================ Start hint group +@Apache::hint::which=(); sub start_hintgroup { - 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 = '
'; - } - } + 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]); + &Apache::lonxml::get_all_text("/hintgroup",$$parser[$#$parser]); } - @Apache::hint::which = (); - return $result; + } + @Apache::hint::which=(); + return $result; } -# ============================================================== End hint group 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 ) { - if ($target eq 'web') {$result = '
';} - } + 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='
'; } - @Apache::hint::which = ''; - return $result; + } elsif ($target eq 'edit') { + $result.=&Apache::edit::end_table(); + } + @Apache::hint::which=(); + return $result; } -# ======================================================== Start numerical hint sub start_numericalhint { - #do everything in end, so intervening work - return ''; + 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); + $result.=&Apache::edit::text_arg('Unit:','unit',$token,5); + $result.=&Apache::edit::text_arg('Format:','format',$token,4); + $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, + 'name','answer','unit', 'format'); + if ($constructtag) { + $result = &Apache::edit::rebuild_tag($token); + $result .= &Apache::edit::handle_insert(); + } + } + return $result; } -# ========================================================== End numerical hint sub end_numericalhint { - my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; - my $result; - if ($target eq 'web') { - $safeeval->share_from('capa',['&caparesponse_capa_check_answer']); - my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); - my $response = $Apache::lonhomework::history{'resource.'. - $Apache::inputtags::part.'.'. - $Apache::inputtags::response['-1'].'.submission'}; - &Apache::lonxml::debug("hintgroup is using $response
\n"); - my $expression = "&caparesponse_check_list('".$response."','". - $$parstack[$#$parstack]. - ';my $tol="'.$Apache::inputtags::params{'tol'}.'"'. - ';my $sig="'.$Apache::inputtags::params{'sig'}.'"'. - "');"; - $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 = ''; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + if ($target eq 'web') { + $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}.'"'; } - return $result; + $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; } -# ======================================================= Starting part of hint # a part shows if it is on, if no specific parts are on, then default shows sub start_hintpart { - my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; - my $show ='0'; - 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 $which; - foreach $which (@Apache::hint::which) { - if ($which eq $on) { $show = 1; last } } - } - if (!$show) { - &Apache::lonxml::get_all_text("/hintpart",$$parser[$#$parser]); - } - } elsif ($target eq 'grade') { - &Apache::lonxml::get_all_text("/hintpart",$$parser[$#$parser]); + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + + my $show ='0'; + 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 $which; + foreach $which (@Apache::hint::which) { if ($which eq $on) { $show = 1; last } } } - return ''; + if (!$show) { + &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(); + } + } + return $result; } -# ========================================================= Ending part of hint sub end_hintpart { - return ''; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + my $result; + if ($target eq 'edit') { $result.=&Apache::edit::end_table; } + return $result; } 1; - __END__