1: # The LearningOnline Network with CAPA
2: # Full matching style response
3: #
4: # $Id: matchresponse.pm,v 1.1 2003/01/28 00:11:49 albertel Exp $
5: #
6: # Copyright Michigan State University Board of Trustees
7: #
8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9: #
10: # LON-CAPA is free software; you can redistribute it and/or modify
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: # 2/21 Guy
29:
30: package Apache::matchresponse;
31: use strict;
32: use HTML::Entities();
33: use Math::Random();
34:
35: BEGIN {
36: &Apache::lonxml::register('Apache::matchresponse',('matchresponse'));
37: }
38:
39: sub start_matchresponse {
40: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
41: my $result;
42: #when in a matchresponse use these
43: &Apache::lonxml::register('Apache::matchresponse',
44: ('foilgroup','foil','conceptgroup','item',
45: 'itemgroup'));
46: push (@Apache::lonxml::namespace,'matchresponse');
47: my $id = &Apache::response::start_response($parstack,$safeeval);
48: %Apache::hint::match=();
49: if ($target eq 'meta') {
50: $result=&Apache::response::meta_package_write('matchresponse');
51: } elsif ($target eq 'edit' ) {
52: $result.=&Apache::edit::start_table($token).
53: '<tr><td>'.&Apache::lonxml::description($token)."</td><td>Delete:".
54: &Apache::edit::deletelist($target,$token)
55: ."</td><td> ".&Apache::edit::end_row()
56: .&Apache::edit::start_spanning_row();
57:
58: $result.=
59: &Apache::edit::text_arg('Max Number Of Shown Foils:','max',$token,'4').
60: &Apache::edit::select_arg('Randomize Foil Order','randomize',
61: ['yes','no'],$token).
62: &Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n";
63: } elsif ($target eq 'modified') {
64: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
65: $safeeval,'max',
66: 'randomize');
67: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
68: }
69: return $result;
70: }
71:
72: sub end_matchresponse {
73: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
74: my $result;
75: if ($target eq 'edit') { $result=&Apache::edit::end_table(); }
76: &Apache::response::end_response;
77: pop @Apache::lonxml::namespace;
78: &Apache::lonxml::deregister('Apache::matchresponse',
79: ('foilgroup','foil','conceptgroup'));
80: return $result;
81: }
82:
83: %Apache::response::itemgroup=();
84: sub start_itemgroup {
85: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
86: my $result;
87: %Apache::response::itemgroup=();
88: if ($target eq 'edit') {
89: $result=&Apache::edit::tag_start($target,$token);
90: $result.=&Apache::edit::select_arg('Randomize Order:','randomize',
91: ['yes','no'],$token);
92: $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
93: }
94: return $result;
95: }
96:
97: sub end_itemgroup {
98: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
99: my $result;
100:
101: if (!defined(@{ $Apache::response::itemgroup{'names'} })) { return; }
102: my @names=@{ $Apache::response::itemgroup{'names'} };
103: my $randomize =&Apache::lonxml::get_param('randomize',$parstack,$safeeval);
104: if ($randomize != 'no' ) {
105: @names=&Math::Random::random_permutation(@names);
106: }
107: my %letter_name_map;
108: my %name_letter_map;
109: my @alphabet=('A'..'Z');
110: my $i=0;
111: foreach my $name (@names) {
112: $letter_name_map{$alphabet[$i]}=$name;
113: $name_letter_map{$name}=$alphabet[$i];
114: $i++;
115: }
116: $Apache::response::itemgroup{'letter_name_map'}=\%letter_name_map;
117: $Apache::response::itemgroup{'name_letter_map'}=\%name_letter_map;
118: if ($target eq 'web') {
119: $result.='<table>';
120: my $i=0;
121: foreach my $name (@names) {
122: $result.='<tr><td>'.$alphabet[$i].'</td><td>'.
123: $Apache::response::itemgroup{$name.'.text'}.
124: '</td></tr>';
125: $i++;
126: }
127: $result.='</table>';
128: } elsif ($target eq 'edit') { $result=&Apache::edit::end_table(); }
129: return $result;
130: }
131:
132: sub start_item {
133: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
134: my $result='';
135: if ($target eq 'web' ) {
136: &Apache::lonxml::startredirection;
137: } elsif ($target eq 'edit') {
138: $result=&Apache::edit::tag_start($target,$token,"Item");
139: $result.=&Apache::edit::text_arg('Name:','name',$token);
140: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
141: } elsif ($target eq 'modified') {
142: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
143: $safeeval,'name');
144: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
145: }
146: return $result;
147: }
148:
149: sub end_item {
150: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
151: my $text ='';
152: my $result = '';
153: if ($target eq 'web') {
154: $text=&Apache::lonxml::endredirection;
155: }
156: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
157: $target eq 'edit') {
158: my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
159: &Apache::lonxml::debug("Got a name of :$name:");
160: if (!$name) { $name=$Apache::lonxml::curdepth; }
161: &Apache::lonxml::debug("Using a name of :$name:");
162: push @{ $Apache::response::itemgroup{'names'} }, $name;
163: $Apache::response::itemgroup{"$name.text"} = $text;
164: }
165: if ($target eq 'edit') {
166: $result.= &Apache::edit::tag_end($target,$token,'');
167: }
168: return $result;
169: }
170:
171: sub insert_item {
172: return '
173: <item name="">
174: <startouttext />
175: <endouttext />
176: </item>';
177: }
178:
179: %Apache::response::foilgroup=();
180: sub start_foilgroup {
181: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
182: my $result;
183: %Apache::response::foilgroup=();
184: $Apache::matchresponse::conceptgroup=0;
185: &Apache::response::setrandomnumber();
186: if ($target eq 'edit') {
187: $result.=&Apache::edit::start_table($token)
188: ."<tr><td>Collection Of Foils</td><td>Delete:"
189: .&Apache::edit::deletelist($target,$token)
190: ."</td><td> ".&Apache::edit::end_row()
191: .&Apache::edit::start_spanning_row()."\n";
192: }
193: return $result;
194: }
195:
196: sub end_foilgroup {
197: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
198: my $result;
199: if ($target eq 'grade' || $target eq 'web' || $target eq 'answer') {
200: my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
201: my $randomize = &Apache::lonxml::get_param('randomize',$parstack,
202: $safeeval,'-2');
203: if ($target eq 'web') {
204: $result=&displayfoils($target,$max,$randomize);
205: } elsif ($target eq 'answer' ) {
206: $result=&displayanswers($max,$randomize);
207: } elsif ( $target eq 'grade') {
208: &grade_response($max,$randomize);
209: }
210: } elsif ($target eq 'edit') {
211: $result=&Apache::edit::end_table();
212: }
213: return $result;
214: }
215:
216: sub displayanswers {
217: my ($max,$randomize,@opt)=@_;
218: if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }
219: my @names = @{ $Apache::response::foilgroup{'names'} };
220: my @whichfoils = &whichfoils($max,$randomize);
221: my $result=&Apache::response::answer_header('matchresponse');
222: my %name_letter_map;
223: if (defined(%{ $Apache::response::itemgroup{'name_letter_map'} })) {
224: %name_letter_map=
225: %{ $Apache::response::itemgroup{'name_letter_map'} };
226: }
227: foreach my $name (@whichfoils) {
228: my $value_name=$Apache::response::foilgroup{$name.'.value'};
229: my $letter=$name_letter_map{$value_name};
230: $result.=&Apache::response::answer_part('matchresponse',$letter);
231: }
232: $result.=&Apache::response::answer_footer('matchresponse');
233: return $result;
234: }
235:
236:
237: sub grade_response {
238: my ($max,$randomize)=@_;
239: my (@whichfoils)=&whichfoils($max,$randomize);
240: if (!defined($ENV{'form.submitted'})) { return; }
241: my %responsehash;
242: my %grade;
243: my ($temp,$right,$wrong,$ignored)=(0,0,0,0);
244: my %letter_name_map;
245: if (defined(%{ $Apache::response::itemgroup{'letter_name_map'} })) {
246: %letter_name_map=
247: %{ $Apache::response::itemgroup{'letter_name_map'} };
248: }
249: foreach my $name (@whichfoils) {
250: my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1'].":$temp"};
251: my $responsename = $letter_name_map{$response};
252: $responsehash{$name}=$responsename;
253: my $value=$Apache::response::foilgroup{$name.'.value'};
254: if ( $response =~ /[^\s]/) {
255: &Apache::lonxml::debug("submitted a $response for $value<br />\n");
256: if ($value eq $responsename) {
257: $grade{$name}='1'; $right++;
258: } else {
259: $grade{$name}='0'; $wrong++;
260: }
261: } else {
262: $ignored++;
263: }
264: $temp++;
265: }
266: my $part=$Apache::inputtags::part;
267: my $id = $Apache::inputtags::response['-1'];
268: my $responsestr=&Apache::lonnet::hash2str(%responsehash);
269: my $gradestr =&Apache::lonnet::hash2str(%grade);
270: my %previous =&Apache::response::check_for_previous($responsestr,
271: $part,$id);
272: &Apache::lonxml::debug("Got $right right and $wrong wrong, and $ignored were ignored ");
273: my $ad;
274: if ($wrong==0 && $ignored==0) {
275: $ad='EXACT_ANS';
276: } elsif ($wrong==0 && $right==0) {
277: #nothing submitted
278: } else {
279: if ($ignored==0) {
280: $ad='INCORRECT';
281: } else {
282: $ad='MISSING_ANSWER';
283: }
284: }
285: $Apache::lonhomework::results{"resource.$part.$id.submission"}=
286: $responsestr;
287: $Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=
288: $gradestr;
289: $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;
290: &Apache::response::handle_previous(\%previous,$ad);
291: }
292:
293: sub displayfoils {
294: my ($target,$max,$randomize)=@_;
295: my $result;
296: my (@whichfoils)=&whichfoils($max,$randomize);
297: my $part=$Apache::inputtags::part;
298: my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
299: my $status=$Apache::inputtags::status[-1];
300: my %letter_name_map;
301: if (defined(%{ $Apache::response::itemgroup{'letter_name_map'} })) {
302: %letter_name_map=
303: %{ $Apache::response::itemgroup{'letter_name_map'} };
304: }
305: my %name_letter_map;
306: if (defined(%{ $Apache::response::itemgroup{'name_letter_map'} })) {
307: %name_letter_map=
308: %{ $Apache::response::itemgroup{'name_letter_map'} };
309: }
310: if (($solved =~ /^correct/) || ($status eq 'SHOW_ANSWER')) {
311: foreach my $name (@whichfoils) {
312: my $text=$Apache::response::foilgroup{$name.'.text'};
313: my $value=$Apache::response::foilgroup{$name.'.value'};
314: my $letter=$name_letter_map{$value};
315: $result.='<br />'.$letter.':'.$text;
316: }
317: } else {
318: my $i = 0;
319: my $temp=0;
320: my $id=$Apache::inputtags::response[-1];
321: my $part=$Apache::inputtags::part;
322: my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
323: my %lastresponse=&Apache::lonnet::str2hash($lastresponse);
324: foreach my $name (@whichfoils) {
325: my $lastopt=$lastresponse{$name};
326: my $last_letter=$name_letter_map{$lastopt};
327: my $optionlist="<option></option>\n";
328: my $option;
329: foreach $option (sort(keys(%letter_name_map))) {
330: if ($option eq $last_letter) {
331: $optionlist.="<option selected=\"on\">$option</option>\n";
332: } else {
333: $optionlist.="<option>$option</option>\n";
334: }
335: }
336: $optionlist='<select name="HWVAL_'.
337: $Apache::inputtags::response[-1].':'.$temp.'">'.
338: $optionlist."</select>\n";
339: my $text=$Apache::response::foilgroup{$name.'.text'};
340: $result.='<br />'.$optionlist.$text."\n";
341: $temp++;
342: }
343: }
344: $result.="<br />";
345: return $result;
346: }
347:
348: sub getfoilcounts {
349: my ($max)=@_;
350: # +1 since instructors will count from 1
351: my $count = $#{ $Apache::response::foilgroup{'names'} }+1;
352: if (&Apache::response::showallfoils()) { $max=$count; }
353: if ($count>$max) { $count=$max }
354: &Apache::lonxml::debug("Count is $count from $max");
355: return $count;
356: }
357:
358: sub whichfoils {
359: my ($max,$randomize)=@_;
360: $max = &getfoilcounts($max);
361: # &Apache::lonxml::debug("man $max randomize $randomize");
362: if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }
363: my @names = @{ $Apache::response::foilgroup{'names'} };
364: my @whichopt =();
365: my (%top,@toplist,%bottom,@bottomlist);
366: if (!(&Apache::response::showallfoils() || ($randomize eq 'no'))) {
367: my $current=0;
368: foreach my $name (@names) {
369: $current++;
370: if ($Apache::response::foilgroup{"$name.location"} eq 'top') {
371: $top{$name}=$current;
372: } elsif ($Apache::response::foilgroup{"$name.location"} eq
373: 'bottom') {
374: $bottom{$name}=$current;
375: }
376: }
377: }
378: while ((($#whichopt+1) < $max) && ($#names > -1)) {
379: # &Apache::lonxml::debug("Have $#whichopt max is $max");
380: my $aopt;
381: if (&Apache::response::showallfoils() || ($randomize eq 'no')) {
382: $aopt=0;
383: } else {
384: $aopt=int(&Math::Random::random_uniform() * ($#names+1));
385: }
386: # &Apache::lonxml::debug("From $#whichopt $max $#names elms, picking $aopt");
387: $aopt=splice(@names,$aopt,1);
388: # &Apache::lonxml::debug("Picked $aopt");
389: if ($top{$aopt}) {
390: $toplist[$top{$aopt}]=$aopt;
391: } elsif ($bottom{$aopt}) {
392: $bottomlist[$bottom{$aopt}]=$aopt;
393: } else {
394: push (@whichopt,$aopt);
395: }
396: }
397: for (my $i=0;$i<=$#toplist;$i++) {
398: if ($toplist[$i]) { unshift(@whichopt,$toplist[$i]) }
399: }
400: for (my $i=0;$i<=$#bottomlist;$i++) {
401: if ($bottomlist[$i]) { push(@whichopt,$bottomlist[$i]) }
402: }
403:
404: return @whichopt;
405: }
406:
407: sub start_conceptgroup {
408: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
409: $Apache::matchresponse::conceptgroup=1;
410: %Apache::response::conceptgroup=();
411: my $result;
412: if ($target eq 'edit') {
413: $result.=&Apache::edit::tag_start($target,$token,
414: "Concept Grouped Foils");
415: $result.=&Apache::edit::text_arg('Concept:','concept',$token,'50').
416: &Apache::edit::end_row().&Apache::edit::start_spanning_row();
417: }
418: if ($target eq 'modified') {
419: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
420: $safeeval,'concept');
421: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
422: }
423: return $result;
424: }
425:
426: sub end_conceptgroup {
427: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
428: $Apache::matchresponse::conceptgroup=0;
429: my $result='';
430: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ) {
431: #if not there aren't any foils to display and thus no question
432: if (defined(@{ $Apache::response::conceptgroup{'names'} })) {
433: my @names = @{ $Apache::response::conceptgroup{'names'} };
434: my $pick=int(&Math::Random::random_uniform() * ($#names+1));
435: my $name=$names[$pick];
436: push @{ $Apache::response::foilgroup{'names'} }, $name;
437: $Apache::response::foilgroup{"$name.value"} =
438: $Apache::response::conceptgroup{"$name.value"};
439: $Apache::response::foilgroup{"$name.text"} =
440: $Apache::response::conceptgroup{"$name.text"};
441: $Apache::response::foilgroup{"$name.location"} =
442: $Apache::response::conceptgroup{"$name.location"};
443: my $concept = &Apache::lonxml::get_param('concept',$parstack,
444: $safeeval);
445: $Apache::response::foilgroup{"$name.concept"} = $concept;
446: &Apache::lonxml::debug("Selecting $name in $concept");
447: if ($target eq 'web') {
448: my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
449: push(@{ $Apache::hint::match{"$part_id.concepts"} },
450: $concept);
451: $Apache::hint::match{"$part_id.concept.$concept"}=
452: $Apache::response::conceptgroup{'names'};
453: }
454: }
455: } elsif ($target eq 'edit') {
456: $result=&Apache::edit::end_table();
457: }
458: return $result;
459: }
460:
461: sub insert_conceptgroup {
462: my $result="\n\t\t<conceptgroup concept=\"\">".&insert_foil()."\n\t\t</conceptgroup>\n";
463: return $result;
464: }
465:
466: sub start_foil {
467: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
468: my $result='';
469: if ($target eq 'web' ) {
470: &Apache::lonxml::startredirection;
471: } elsif ($target eq 'edit') {
472: $result=&Apache::edit::tag_start($target,$token,"Foil");
473: my $level='-2';
474: if ($$tagstack[-2] eq 'conceptgroup') { $level = '-3'; }
475: $result.=&Apache::edit::text_arg('Name:','name',$token);
476: my @names;
477: if (defined(@{ $Apache::response::itemgroup{'names'} })) {
478: @names=@{ $Apache::response::itemgroup{'names'} };
479: }
480: $result.= &Apache::edit::select_or_text_arg('Correct Option:','value',['unused',@names],$token,'15');
481: my $randomize=&Apache::lonxml::get_param('randomize',$parstack,
482: $safeeval,'-3');
483: if ($randomize ne 'no') {
484: $result.=&Apache::edit::select_arg('Location:','location',
485: ['random','top','bottom'],$token);
486: }
487: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
488: } elsif ($target eq 'modified') {
489: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
490: $safeeval,'value',
491: 'name','location');
492: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
493: }
494: return $result;
495: }
496:
497: sub end_foil {
498: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
499: my $text ='';
500: my $result = '';
501: if ($target eq 'web') {
502: $text=&Apache::lonxml::endredirection;
503: }
504: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer') {
505: my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
506: if ($value ne 'unused') {
507: my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
508: my $location =&Apache::lonxml::get_param('location',$parstack,$safeeval);
509: &Apache::lonxml::debug("Got a name of :$name:");
510: if (!$name) { $name=$Apache::lonxml::curdepth; }
511: &Apache::lonxml::debug("Using a name of :$name:");
512: if ( $Apache::matchresponse::conceptgroup
513: && !&Apache::response::showallfoils() ) {
514: push @{ $Apache::response::conceptgroup{'names'} }, $name;
515: $Apache::response::conceptgroup{"$name.value"} = $value;
516: $Apache::response::conceptgroup{"$name.text"} = $text;
517: $Apache::response::conceptgroup{"$name.location"} = $location;
518: } else {
519: push @{ $Apache::response::foilgroup{'names'} }, $name;
520: $Apache::response::foilgroup{"$name.value"} = $value;
521: $Apache::response::foilgroup{"$name.text"} = $text;
522: $Apache::response::foilgroup{"$name.location"} = $location;
523: }
524: }
525: }
526: if ($target eq 'edit') {
527: $result.= &Apache::edit::tag_end($target,$token,'');
528: }
529: return $result;
530: }
531:
532: sub insert_foil {
533: return '
534: <foil name="" value="unused">
535: <startouttext />
536: <endouttext />
537: </foil>';
538: }
539: 1;
540: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to matchresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework