Annotation of loncom/homework/hint.pm, revision 1.73
1.21 albertel 1: # The LearningOnline Network with CAPA
2: # implements the tags that control the hints
3: #
1.73 ! jms 4: # $Id: hint.pm,v 1.72 2008/10/24 16:22:54 bisitz Exp $
1.21 albertel 5: #
6: # Copyright Michigan State University Board of Trustees
7: #
8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9: #
1.33 albertel 10: # LON-CAPA me&aree software; you can redistribute it and/or modify
1.21 albertel 11: # it under the terms of the GNU General Public License as published by
12: # the Free Software Foundation; either version 2 of the License, or
13: # (at your option) any later version.
14: #
15: # LON-CAPA is distributed in the hope that it will be useful,
16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18: # GNU General Public License for more details.
19: #
20: # You should have received a copy of the GNU General Public License
21: # along with LON-CAPA; if not, write to the Free Software
22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23: #
24: # /home/httpd/html/adm/gpl.txt
25: #
26: # http://www.lon-capa.org/
27: #
28:
1.73 ! jms 29: =head1 NAME
! 30:
! 31: Apache::hinttags
! 32:
! 33: =head1 SYNOPSIS
! 34:
! 35: This handler coordinates the delivery of hints to students working on LON-CAPA problems and assignments.
! 36:
! 37: This is part of the LearningOnline Network with CAPA project
! 38: described at http://www.lon-capa.org.
! 39:
! 40: =head1 SUBROUTINES
! 41:
! 42: =over
! 43:
! 44: =item start_hintgroup()
! 45:
! 46: =item end_hintgroup()
! 47:
! 48: =item start_numericalhint()
! 49:
! 50: =item end_numericalhint()
! 51:
! 52: =item start_formulahint()
! 53:
! 54: =item end_formulahint()
! 55:
! 56: =item start_mathhint()
! 57:
! 58: =item end_mathhint()
! 59:
! 60: =item start_customhint()
! 61:
! 62: =item end_customhint()
! 63:
! 64: =item start_stringhint()
! 65:
! 66: =item end_stringhint()
! 67:
! 68: =item start_hintpart()
! 69:
! 70: =item end_hintpart()
! 71:
! 72: =item start_optionhint()
! 73:
! 74: =item end_optionhint()
! 75:
! 76: =item start_radiobuttonhint()
! 77:
! 78: =item end_radiobuttonhint()
! 79:
! 80: =back
! 81:
! 82: =cut
! 83:
1.1 albertel 84: package Apache::hinttags;
85:
86: use strict;
1.65 albertel 87: use Apache::lonnet();
1.6 albertel 88: use capa;
1.65 albertel 89: use Apache::caparesponse();
1.63 www 90: use Apache::lonmaxima();
91: use Apache::response();
1.53 albertel 92: use Apache::lonlocal;
1.65 albertel 93: use Storable qw(dclone);
1.1 albertel 94:
1.25 harris41 95: BEGIN {
1.64 www 96: &Apache::lonxml::register('Apache::hinttags',('hintgroup','hintpart','numericalhint','stringhint','formulahint','optionhint','radiobuttonhint','mathhint','customhint'));
1.1 albertel 97: }
98:
1.2 albertel 99:
1.15 albertel 100: @Apache::hint::which=();
1.1 albertel 101: sub start_hintgroup {
1.39 albertel 102: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
103: my $skiptoend='0';
104: my $result;
105:
106: if ($target eq 'web') {
107: my $id=$Apache::inputtags::part;
108: my $numtries=$Apache::lonhomework::history{"resource.$id.tries"};
109: if ( $numtries eq '') { $numtries = 0; }
1.52 albertel 110: my $hinttries=&Apache::response::get_response_param($id,"hinttries",1);
1.39 albertel 111: &Apache::lonxml::debug("found :$id:$numtries:$hinttries:");
1.53 albertel 112: my $gradestatus=
113: $Apache::lonhomework::history{"resource.$id.solved"};
114: my $showoncorrect=lc(&Apache::lonxml::get_param('showoncorrect',$parstack,$safeeval));
115: &Apache::lonxml::debug("onc orrect $showoncorrect, $gradestatus");
1.58 albertel 116: if ( ($showoncorrect ne 'yes' && &Apache::response::show_answer()) ||
1.53 albertel 117: ( $numtries < $hinttries) ) {
118: &Apache::lonxml::debug("Grabbin all");
1.61 albertel 119: &Apache::lonxml::get_all_text("/hintgroup",$parser,$style);
1.39 albertel 120: }
1.40 albertel 121: &Apache::lonxml::startredirection;
1.39 albertel 122: } elsif ($target eq 'tex') {
123: $result .= '\keephidden{';
1.53 albertel 124: } elsif ($target eq 'edit') {
125: $result.=&Apache::edit::tag_start($target,$token);
1.72 bisitz 126: $result.=&Apache::edit::select_arg('Show hint even if problem Correct:','showoncorrect',['no','yes'],$token);
1.53 albertel 127: $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
128: } elsif ($target eq 'modified') {
129: my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'showoncorrect');
130: if ($constructtag) {
131: $result =&Apache::edit::rebuild_tag($token);
132: }
1.20 albertel 133: }
1.39 albertel 134: @Apache::hint::which=();
135: return $result;
1.1 albertel 136: }
137:
138: sub end_hintgroup {
1.39 albertel 139: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
140: my $result;
1.20 albertel 141:
1.39 albertel 142: if ($target eq 'web') {
143: my $id=$Apache::inputtags::part;
144: my $numtries=$Apache::lonhomework::history{"resource.$id.tries"};
145: if ( $numtries eq '') { $numtries = 0; }
1.52 albertel 146: my $hinttries=&Apache::response::get_response_param($id,"hinttries",1);
1.39 albertel 147: &Apache::lonxml::debug("found :$id:$numtries:$hinttries:");
1.40 albertel 148: my $hinttext=&Apache::lonxml::endredirection;
149: if ($Apache::lonhomework::type ne 'exam' &&
1.41 albertel 150: $numtries >= $hinttries && $hinttext =~/\S/) {
1.40 albertel 151: $result='<table bgcolor="#dddddd"><tr><td>'.
152: $hinttext.'</td></tr></table>';
1.38 albertel 153: }
1.39 albertel 154: } elsif ($target eq 'edit') {
1.62 albertel 155: $result.=&Apache::edit::end_row().&Apache::edit::end_table();
1.39 albertel 156: } elsif ($target eq 'tex') {
157: $result .= '}';
1.19 albertel 158: }
1.39 albertel 159: @Apache::hint::which=();
160: return $result;
1.3 albertel 161: }
162:
163: sub start_numericalhint {
1.39 albertel 164: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
165: #do everything in end, so intervening <responseparams> work
166: &Apache::response::start_hintresponse($parstack,$safeeval);
1.66 albertel 167: &Apache::caparesponse::push_answer();
1.39 albertel 168: my $result;
169: if ($target eq 'edit') {
170: $result.=&Apache::edit::tag_start($target,$token);
171: $result.=&Apache::edit::text_arg('Name:','name',$token);
172: $result.=&Apache::edit::text_arg('Answer:','answer',$token);
173: if ($token->[1] eq 'numericalhint') {
174: $result.=&Apache::edit::text_arg('Unit:','unit',$token,5).
175: &Apache::loncommon::help_open_topic('Physical_Units');
176: $result.=&Apache::edit::text_arg('Format:','format',$token,4).
177: &Apache::loncommon::help_open_topic('Numerical_Response_Format');
178: } elsif ($token->[1] eq 'formulahint') {
1.65 albertel 179: $result.=&Apache::edit::text_arg('Sample Points:','samples',
180: $token,40).
181: &Apache::loncommon::help_open_topic('Formula_Response_Sampling');
1.39 albertel 182: }
183: $result.=&Apache::edit::end_row();
184: $result.=&Apache::edit::start_spanning_row();
185: } elsif ($target eq 'modified') {
186: my $constructtag;
187: if ($token->[1] eq 'numericalhint') {
188: $constructtag=&Apache::edit::get_new_args($token,$parstack,
189: $safeeval,'name',
190: 'answer','unit','format');
191: } elsif ($token->[1] eq 'formulahint') {
192: $constructtag=&Apache::edit::get_new_args($token,$parstack,
193: $safeeval,'name','answer',
194: 'samples');
195: }
196: if ($constructtag) {
197: $result = &Apache::edit::rebuild_tag($token);
198: }
199: } elsif ($target eq 'web') {
200: &Apache::response::reset_params();
1.28 albertel 201: }
1.39 albertel 202: return $result;
1.3 albertel 203: }
204:
205: sub end_numericalhint {
1.39 albertel 206: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
207: my $result;
208: if ($target eq 'web') {
209: if (!$Apache::lonxml::default_homework_loaded) {
210: &Apache::lonxml::default_homework_load($safeeval);
211: }
212: $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
1.65 albertel 213: my $hint_name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
1.48 albertel 214: &Apache::response::setup_params('numericalhint',$safeeval);
1.65 albertel 215:
1.39 albertel 216: my $partid=$Apache::inputtags::part;
1.60 albertel 217: my $id=$Apache::inputtags::hint[-1];
1.69 bisitz 218: #id submissions occurred under
1.60 albertel 219: my $submitid=$Apache::inputtags::response[-1];
1.65 albertel 220:
1.39 albertel 221: my $response = $Apache::lonhomework::history{
1.18 albertel 222: "resource.$partid.$submitid.submission"};
1.39 albertel 223: &Apache::lonxml::debug("hintgroup is using $response<br />\n");
1.65 albertel 224:
225: my @args = ('type','tol','sig','ans_fmt','unit','calc','samples');
226: my $args_ref =
227: &Apache::caparesponse::setup_capa_args($safeeval,$parstack,
228: \@args,$response);
229:
1.54 albertel 230: my $hideunit=&Apache::response::get_response_param($partid.'_'.$submitid,'turnoffunit');
1.51 albertel 231: if (lc($hideunit) eq "yes") { delete($$args_ref{'unit'}); }
1.65 albertel 232:
1.43 albertel 233: if ($$tagstack[-1] eq 'formulahint') {
1.67 www 234: if ($$args_ref{'samples'}) {
235: $$args_ref{'type'}='fml';
236: } else {
237: $$args_ref{'type'}='math';
238: }
1.43 albertel 239: } elsif ($$tagstack[-1] eq 'numericalhint') {
1.51 albertel 240: $$args_ref{'type'}='float';
1.39 albertel 241: }
1.65 albertel 242: &Apache::caparesponse::add_in_tag_answer($parstack,$safeeval);
243: my %answer = &Apache::caparesponse::get_answer();
244: my (@final_awards,@final_msgs,@ans_names);
245: foreach my $ans_name (keys(%answer)) {
246: &Apache::lonxml::debug(" doing $ans_name with ".join(':',@{ $answer{$ans_name}{'answers'} }));
247:
248: ${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=
249: dclone($answer{$ans_name});
250: &Apache::caparesponse::setup_capa_response($args_ref,$response);
251: my ($result,@msgs) =
1.71 raeburn 252: &Apache::run::run("&caparesponse_check_list()",$safeeval);
1.65 albertel 253: &Apache::lonxml::debug("checking $ans_name $result with $response");
254: &Apache::lonxml::debug('msgs are '.join(':',@msgs));
255: my ($awards)=split(/:/,$result);
256: my @awards= split(/,/,$awards);
257: my ($ad, $msg) =
258: &Apache::inputtags::finalizeawards(\@awards,\@msgs);
259: push(@final_awards,$ad);
260: push(@final_msgs,$msg);
261: push(@ans_names,$ans_name);
262: }
263: my ($ad, $msg, $ans_name) =
264: &Apache::inputtags::finalizeawards(\@final_awards,
265: \@final_msgs,
266: \@ans_names,1);
267: if ($ad eq 'EXACT_ANS' || $ad eq 'APPROX_ANS') {
268: push(@Apache::hint::which,$hint_name);
269: }
1.39 albertel 270: $result='';
271: } elsif ($target eq 'meta') {
272: $result=&Apache::response::meta_package_write($token->[1]);
273: } elsif ($target eq 'edit') {
1.62 albertel 274: $result.=&Apache::edit::end_row().&Apache::edit::end_table();
1.18 albertel 275: }
1.66 albertel 276: &Apache::caparesponse::pop_answer();
1.39 albertel 277: &Apache::response::end_hintresponse();
278: return $result;
1.28 albertel 279: }
280:
1.51 albertel 281: sub start_formulahint {
1.35 albertel 282: return &start_numericalhint(@_);
1.28 albertel 283: }
284:
1.51 albertel 285: sub end_formulahint {
1.35 albertel 286: return &end_numericalhint(@_);
1.28 albertel 287: }
288:
1.63 www 289: sub start_mathhint {
290: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
291: #do everything in end, so intervening <responseparams> and <answer> work
292: &Apache::response::start_hintresponse($parstack,$safeeval);
293: &Apache::lonxml::register('Apache::response',('answer'));
294: my $result;
295: if ($target eq 'edit') {
296: $result.=&Apache::edit::tag_start($target,$token);
297: $result.=&Apache::edit::text_arg('Name:','name',$token);
298: $result.=&Apache::edit::select_arg('Algebra System:',
299: 'cas',
300: ['maxima'],
301: $token);
302: $result.=&Apache::edit::text_arg('Argument Array:',
303: 'args',$token);
304: $result.=&Apache::edit::end_row();
305: $result.=&Apache::edit::start_spanning_row();
306: } elsif ($target eq 'modified') {
307: my $constructtag;
308: $constructtag=&Apache::edit::get_new_args($token,$parstack,
309: $safeeval,'name','cas',
310: 'args');
311: $result = &Apache::edit::rebuild_tag($token);
312: } elsif ($target eq 'web') {
313: &Apache::response::reset_params();
314: }
315: return $result;
316: }
317:
318: sub end_mathhint {
319: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
320: my $result;
321: if ($target eq 'web') {
322: if (!$Apache::lonxml::default_homework_loaded) {
323: &Apache::lonxml::default_homework_load($safeeval);
324: }
325: my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
326: &Apache::response::setup_params('mathhint',$safeeval);
327: my $partid=$Apache::inputtags::part;
328: my $submitid=$Apache::inputtags::response[-1];
329: my $response = $Apache::lonhomework::history{
330: "resource.$partid.$submitid.submission"};
331:
332: my $cas = &Apache::lonxml::get_param('cas',$parstack,$safeeval);
333: my $award;
334: if ($cas eq 'maxima') {
335: my $args = [&Apache::lonxml::get_param_var('args',$parstack,$safeeval)];
336: $award=&Apache::lonmaxima::maxima_run($Apache::response::custom_answer[-1],$response,$args);
337: }
338: if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS') {
339: push (@Apache::hint::which,$name);
340: }
341: $result='';
342: } elsif ($target eq 'meta') {
343: $result=&Apache::response::meta_package_write($token->[1]);
344: } elsif ($target eq 'edit') {
345: $result.=&Apache::edit::end_row().&Apache::edit::end_table();
346: }
347: pop(@Apache::response::custom_answer);
348: pop(@Apache::response::custom_answer_type);
349: &Apache::response::end_hintresponse();
350: return $result;
351: }
352:
1.64 www 353: sub start_customhint {
354: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
355: #do everything in end, so intervening <responseparams> and <answer> work
356: &Apache::response::start_hintresponse($parstack,$safeeval);
357: &Apache::lonxml::register('Apache::response',('answer'));
358: my $result;
359: if ($target eq 'edit') {
360: $result.=&Apache::edit::tag_start($target,$token);
361: $result.=&Apache::edit::text_arg('Name:','name',$token);
362: $result.=&Apache::edit::end_row();
363: $result.=&Apache::edit::start_spanning_row();
364: } elsif ($target eq 'modified') {
365: my $constructtag;
366: $constructtag=&Apache::edit::get_new_args($token,$parstack,
367: $safeeval,'name');
368: $result = &Apache::edit::rebuild_tag($token);
369: } elsif ($target eq 'web') {
370: &Apache::response::reset_params();
371: }
372: return $result;
373: }
374:
375: sub end_customhint {
376: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
377: my $result;
378: if ($target eq 'web') {
379: if (!$Apache::lonxml::default_homework_loaded) {
380: &Apache::lonxml::default_homework_load($safeeval);
381: }
382: my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
383: &Apache::response::setup_params('customhint',$safeeval);
384: my $partid=$Apache::inputtags::part;
385: my $submitid=$Apache::inputtags::response[-1];
386: my $response = $Apache::lonhomework::history{
387: "resource.$partid.$submitid.submission"};
388: my $award;
389: if ( $response =~ /[^\s]/ &&
390: $Apache::response::custom_answer_type[-1] eq 'loncapa/perl') {
391: if (!$Apache::lonxml::default_homework_loaded) {
392: &Apache::lonxml::default_homework_load($safeeval);
393: }
394: ${$safeeval->varglob('LONCAPA::customresponse_submission')}=
395: $response;
396:
397: $award = &Apache::run::run('{ my $submission=$LONCAPA::customresponse_submission;'.$Apache::response::custom_answer[-1].'}',$safeeval);
398: }
399: if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS') {
400: push (@Apache::hint::which,$name);
401: }
402: $result='';
403: } elsif ($target eq 'meta') {
404: $result=&Apache::response::meta_package_write($token->[1]);
405: } elsif ($target eq 'edit') {
406: $result.=&Apache::edit::end_row().&Apache::edit::end_table();
407: }
408: pop(@Apache::response::custom_answer);
409: pop(@Apache::response::custom_answer_type);
410: &Apache::response::end_hintresponse();
411: return $result;
412: }
413:
1.51 albertel 414: sub start_stringhint {
415: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
416: #do everything in end, so intervening <responseparams> work
417: &Apache::response::start_hintresponse($parstack,$safeeval);
418: my $result;
419: if ($target eq 'edit') {
420: $result.=&Apache::edit::tag_start($target,$token);
421: $result.=&Apache::edit::text_arg('Name:','name',$token);
422: $result.=&Apache::edit::text_arg('Answer:','answer',$token);
423: $result.=&Apache::edit::select_arg('Type:','type',
424: [['cs','Case Sensitive'],['ci','Case Insensitive'],
425: ['mc','Case Insensitive, Any Order'],
426: ['re','Regular Expression']],$token);
427: $result.=&Apache::edit::end_row();
428: $result.=&Apache::edit::start_spanning_row();
429: } elsif ($target eq 'modified') {
430: my $constructtag;
431: $constructtag=&Apache::edit::get_new_args($token,$parstack,
432: $safeeval,'name','answer',
433: 'type');
434: $result = &Apache::edit::rebuild_tag($token);
435: } elsif ($target eq 'web') {
436: &Apache::response::reset_params();
437: }
438: return $result;
1.28 albertel 439: }
440:
1.51 albertel 441: sub end_stringhint {
442: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
443: my $result;
444: if ($target eq 'web') {
445: if (!$Apache::lonxml::default_homework_loaded) {
446: &Apache::lonxml::default_homework_load($safeeval);
447: }
448: $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
1.65 albertel 449: my $hint_name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
1.51 albertel 450: &Apache::response::setup_params('stringhint',$safeeval);
451: my $partid=$Apache::inputtags::part;
1.60 albertel 452: my $id=$Apache::inputtags::hint[-1];
1.69 bisitz 453: #id submissions occurred under
1.60 albertel 454: my $submitid=$Apache::inputtags::response[-1];
1.51 albertel 455: my $response = $Apache::lonhomework::history{
456: "resource.$partid.$submitid.submission"};
457: &Apache::lonxml::debug("hintgroup is using $response<br />\n");
1.65 albertel 458: my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval);
1.51 albertel 459: my ($ad,$msg);
460: if ($type eq 're' ) {
1.65 albertel 461: my $answer=&Apache::lonxml::get_param('answer',$parstack,
462: $safeeval);
1.51 albertel 463: ${$safeeval->varglob('LONCAPA::response')}=$response;
1.57 albertel 464: my $compare='=';
465: if ($answer=~/^\s*NOT\s*/) {
466: $answer=~s/^\s*NOT\s*//;
467: $compare='!';
468: }
469: my $test='$LONCAPA::response'.$compare.'~m'.$answer;
470: &Apache::lonxml::debug("test $test");
471: $result = &Apache::run::run("return $test",$safeeval);
1.51 albertel 472: &Apache::lonxml::debug("current $response");
473: &Apache::lonxml::debug("current $answer");
474: $ad = ($result) ? 'APPROX_ANS' : 'INCORRECT';
475: } else {
1.65 albertel 476: my @args = ('type');
477: my $args_ref =
478: &Apache::caparesponse::setup_capa_args($safeeval,$parstack,
479: \@args,$response);
1.71 raeburn 480: if ($$args_ref{'type'} eq '') {
481: $$args_ref{'type'} = 'ci';
482: }
1.65 albertel 483: &Apache::caparesponse::add_in_tag_answer($parstack,$safeeval);
484: my (@final_awards,@final_msgs,@ans_names);
485: my %answer = &Apache::caparesponse::get_answer();
486: foreach my $ans_name (keys(%answer)) {
487: &Apache::lonxml::debug(" doing $ans_name with ".join(':',@{ $answer{$ans_name}{'answers'} }));
488: ${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$ans_name});
1.71 raeburn 489: my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list()",$safeeval);
1.65 albertel 490: &Apache::lonxml::debug('msgs are'.join(':',@msgs));
491: my ($awards) = split(/:/,$result);
492: my (@awards) = split(/,/,$awards);
493: ($ad,$msg) =
494: &Apache::inputtags::finalizeawards(\@awards,\@msgs);
495: push(@final_awards,$ad);
496: push(@final_msgs,$msg);
497: push(@ans_names,$ans_name);
498: &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");
1.51 albertel 499: }
1.65 albertel 500: my ($ad, $msg, $ans_name) =
501: &Apache::inputtags::finalizeawards(\@final_awards,
502: \@final_msgs,
503: \@ans_names,1);
1.51 albertel 504: }
505: if ($ad eq 'EXACT_ANS' || $ad eq 'APPROX_ANS') {
1.65 albertel 506: push(@Apache::hint::which,$hint_name);
1.51 albertel 507: }
508: $result='';
509: } elsif ($target eq 'meta') {
510: $result=&Apache::response::meta_package_write($token->[1]);
511: } elsif ($target eq 'edit') {
1.62 albertel 512: $result.=&Apache::edit::end_row().&Apache::edit::end_table();
1.51 albertel 513: }
514: &Apache::response::end_hintresponse();
515: return $result;
1.1 albertel 516: }
517:
1.2 albertel 518: # a part shows if it is on, if no specific parts are on, then default shows
1.1 albertel 519: sub start_hintpart {
1.39 albertel 520: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.15 albertel 521:
1.39 albertel 522: my $show ='0';
523: my $result = '';
524: if ($target eq 'web') {
525: my $on= &Apache::lonxml::get_param('on',$parstack,$safeeval);
526: &Apache::lonxml::debug("hintpart sees $on and ,$#Apache::hint::which");
527: if ( $on eq 'default' && $#Apache::hint::which == '-1') {
528: $show=1;
529: } else {
530: my $which;
531: foreach $which (@Apache::hint::which) { if ($which eq $on) { $show = 1; last } }
532: }
533: if (!$show) {
1.61 albertel 534: &Apache::lonxml::get_all_text("/hintpart",$parser,$style);
1.39 albertel 535: }
536: } elsif ($target eq 'grade') {
1.61 albertel 537: &Apache::lonxml::get_all_text("/hintpart",$parser,$style);
1.39 albertel 538: } elsif ($target eq 'edit') {
539: $result.= &Apache::edit::tag_start($target,$token);
540: $result.= &Apache::edit::text_arg('On:','on',$token);
541: $result.= &Apache::edit::end_row();
542: $result.= &Apache::edit::start_spanning_row();
543: } elsif ($target eq 'modified') {
544: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
545: $safeeval,'on');
546: if ($constructtag) {
547: $result = &Apache::edit::rebuild_tag($token);
548: }
1.20 albertel 549: }
1.39 albertel 550: return $result;
1.1 albertel 551: }
552:
553: sub end_hintpart {
1.29 albertel 554: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
555: my $result;
1.62 albertel 556: if ($target eq 'edit') {
557: $result.=&Apache::edit::end_row().&Apache::edit::end_table();
558: }
1.29 albertel 559: return $result;
560: }
561:
562: sub start_optionhint {
563: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
564: my $result;
1.30 albertel 565: &Apache::response::start_hintresponse($parstack,$safeeval);
566: if ($target eq 'edit') {
567: $result.=&Apache::edit::tag_start($target,$token);
568: $result.=&Apache::edit::text_arg('Name:','name',$token);
569: $result.=&Apache::edit::text_arg('Answer:','answer',$token,40);
570: $result.=&Apache::edit::text_arg('Concept:','concept',$token,50);
571: } elsif ($target eq 'modified') {
572: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
573: $safeeval,'name',
574: 'answer','concept');
575: if ($constructtag) {
576: $result = &Apache::edit::rebuild_tag($token);
577: }
578: } elsif ($target eq 'meta') {
579: $result=&Apache::response::meta_package_write('numericalhint');
580: }
1.29 albertel 581: return $result;
582: }
583:
584: sub end_optionhint {
585: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
586: my $result;
1.30 albertel 587: if ($target eq 'web') {
588: my ($foilmatch,$conceptmatch)=(-1,-1);
589: my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
590: my $partid=$Apache::inputtags::part;
1.69 bisitz 591: #id submissions occurred under
1.60 albertel 592: my $submitid=$Apache::inputtags::response[-1];
1.30 albertel 593: my $part_id="$partid.$submitid";
594: my %answer;
595: my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval);
596: if ($answer) {
597: eval('%answer ='.$answer);
1.62 albertel 598: &Apache::lonxml::debug("answwer hash");
1.30 albertel 599: &Apache::lonhomework::showhash(%answer);
600: my $response = $Apache::lonhomework::history{
601: "resource.$part_id.submission"};
602: my %response=&Apache::lonnet::str2hash($response);
603: &Apache::lonhomework::showhash(%response);
604: foreach my $foil (keys(%answer)) {
605: $foilmatch=1;
606: if ($answer{$foil} ne $response{$foil}) {$foilmatch=0;last;}
607: }
608: }
609: my %concept;
610: my $constr=&Apache::lonxml::get_param('concept',$parstack,$safeeval);
611: if ( $constr ) { eval('%concept ='.$constr); }
612: my $response = $Apache::lonhomework::history{
613: "resource.$part_id.submissiongrading"};
614: my %response=&Apache::lonnet::str2hash($response);
615: foreach my $concept (keys(%concept)) {
616: my $compare;
617: if ($concept{$concept} eq 'correct') {$compare=1}else{$compare=0}
618: $conceptmatch=1;
619: if (ref($Apache::hint::option{"$part_id.concepts"})) {
620: foreach my $foil (@{ $Apache::hint::option{"$part_id.concept.$concept"} }) {
621: &Apache::lonxml::debug("compare -$foil- -$response{$foil}-$compare-");
622: if ( exists($response{$foil}) &&
623: $response{$foil} ne $compare) {$conceptmatch=0;last;}
624: }
625: } else {
626: $conceptmatch=0;
627: }
628: if ($conceptmatch eq '0') { last; }
629: }
630: if ( ($conceptmatch eq '-1' || $conceptmatch eq '1') &&
631: ($foilmatch eq '-1' || $foilmatch eq '1') ) {
632: push(@Apache::hint::which,$name);
633: }
1.62 albertel 634: } elsif ($target eq 'edit') {
635: $result.=&Apache::edit::end_row().&Apache::edit::end_table();
636: }
1.30 albertel 637: &Apache::response::end_hintresponse();
1.29 albertel 638: return $result;
639: }
640:
641: sub start_radiobuttonhint {
642: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
643: my $result;
644: &Apache::response::start_hintresponse($parstack,$safeeval);
645: if ($target eq 'edit') {
646: $result.=&Apache::edit::tag_start($target,$token);
647: $result.=&Apache::edit::text_arg('Name:','name',$token);
648: $result.=&Apache::edit::text_arg('Answer:','answer',$token);
649: } elsif ($target eq 'modified') {
650: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
651: $safeeval,'name',
652: 'answer');
653: if ($constructtag) {
654: $result = &Apache::edit::rebuild_tag($token);
655: }
656: } elsif ($target eq 'meta') {
657: $result=&Apache::response::meta_package_write('numericalhint');
658: }
659: return $result;
1.1 albertel 660: }
661:
1.31 albertel 662: sub end_radiobuttonhint {
1.29 albertel 663: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
664: my $result;
665: if ($target eq 'web') {
666: my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
667: my @answer;
668: my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval);
669: eval('@answer ='.$answer);
670: my $partid=$Apache::inputtags::part;
1.69 bisitz 671: #id submissions occurred under
1.60 albertel 672: my $submitid=$Apache::inputtags::response[-1];
1.29 albertel 673: my $part_id="$partid.$submitid";
674: my $response = $Apache::lonhomework::history{
675: "resource.$part_id.submission"};
676: ($response)=&Apache::lonnet::str2hash($response);
1.42 albertel 677: &Apache::lonxml::debug("response is $response");
678:
679: if ($answer[0] eq 'foil') {
680: shift(@answer);
681: foreach my $answer (@answer) {
682: if ($response eq $answer) {
683: push (@Apache::hint::which,$name);
684: last;
685: }
686: }
1.29 albertel 687: } elsif ($answer[0] eq 'concept') {
1.42 albertel 688: shift(@answer);
689: foreach my $answer (@answer) {
690: if (ref($Apache::hint::radiobutton{"$part_id.concept.".$answer})) {
691: my @names=@{ $Apache::hint::radiobutton{"$part_id.concept.".$answer} };
692: if (grep(/^\Q$response\E$/,@names)) {
693: push(@Apache::hint::which,$name);
694: last;
695: }
1.29 albertel 696: }
697: }
698: }
1.62 albertel 699: } elsif ($target eq 'edit') {
700: $result.=&Apache::edit::end_row().&Apache::edit::end_table();
701: }
1.29 albertel 702: &Apache::response::end_hintresponse();
703: return $result;
704: }
1.1 albertel 705: 1;
706: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to hint.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework