loncom/homework/matchresponse.pm - view

File: [LON-CAPA] / loncom / homework / matchresponse.pm
Revision 1.85: download - view: text, annotated - select for diffs
Tue Nov 29 13:24:38 2011 UTC (12 years, 5 months ago) by raeburn
Branches: MAIN
CVS tags: language_hyphenation_merge, language_hyphenation, HEAD

- Bug 2802.
  - optionresponse::is_nonlenient() moved to inputtags::grading_is_nonlenient()
    to facilitate re-use.
  - where solved is "correct", awarded value < 1 permits new submission,
    only if lenient grading applies.
  - add lenient parameter to custompartial.problem template.

1: # The LearningOnline Network with CAPA 2: # Full matching style response 3: # 4: # $Id: matchresponse.pm,v 1.85 2011/11/29 13:24:38 raeburn 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: 29: package Apache::matchresponse; 30: use strict; 31: use HTML::Entities(); 32: use Math::Random(); 33: use Apache::inputtags(); 34: use Apache::optionresponse(); 35: use Apache::lonlocal; 36: use Apache::lonnet; 37: use Apache::lonxml; 38: 39: BEGIN { 40: &Apache::lonxml::register('Apache::matchresponse',('matchresponse')); 41: } 42: 43: sub start_matchresponse { 44: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 45: my $result; 46: #when in a matchresponse use these 47: &Apache::lonxml::register('Apache::matchresponse', 48: ('foilgroup','foil','conceptgroup','item', 49: 'itemgroup')); 50: push (@Apache::lonxml::namespace,'matchresponse'); 51: my $id = &Apache::response::start_response($parstack,$safeeval); 52: %Apache::hint::match=(); 53: undef(%Apache::response::foilnames); 54: if ($target eq 'meta') { 55: $result=&Apache::response::meta_package_write('matchresponse'); 56: } elsif ($target eq 'edit' ) { 57: $result.=&Apache::edit::start_table($token). 58: '<tr><td>'.&Apache::lonxml::description($token).'</td>' 59: .'<td><span class="LC_nobreak">'.&mt('Delete?').' ' 60: .&Apache::edit::deletelist($target,$token) 61: .'</span></td>' 62: .'<td> '.&Apache::edit::end_row() 63: .&Apache::edit::start_spanning_row(); 64: 65: $result.= 66: &Apache::edit::text_arg('Max Number Of Shown Foils:','max',$token,'4'). 67: &Apache::edit::select_arg('Randomize Foil Order:','randomize', 68: ['yes','no'],$token). 69: &Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n"; 70: } elsif ($target eq 'modified') { 71: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 72: $safeeval,'max', 73: 'randomize'); 74: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } 75: } elsif ($target eq 'analyze') { 76: my $part_id="$Apache::inputtags::part.$id"; 77: $Apache::lonhomework::analyze{"$part_id.type"} = 'matchresponse'; 78: push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id); 79: push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 80: 1); 81: } 82: return $result; 83: } 84: 85: sub end_matchresponse { 86: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 87: my $result; 88: if ($target eq 'edit') { $result=&Apache::edit::end_table(); } 89: &Apache::response::end_response; 90: pop @Apache::lonxml::namespace; 91: &Apache::lonxml::deregister('Apache::matchresponse', 92: ('foilgroup','foil','conceptgroup')); 93: undef(%Apache::response::foilnames); 94: return $result; 95: } 96: 97: %Apache::response::itemgroup=(); 98: sub start_itemgroup { 99: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 100: my $result; 101: %Apache::response::itemgroup=(); 102: %Apache::matchresponse::itemtable=(); 103: 104: if ($target eq 'edit') { 105: $result=&Apache::edit::tag_start($target,$token); 106: $result.=&Apache::edit::select_arg('Randomize Order:','randomize', 107: ['yes','no'],$token).' 'x 3; 108: $result.=&Apache::edit::select_arg('Items Display Location:', 109: 'location', 110: ['top','bottom','left','right'], 111: $token).' 'x 3; 112: $result.=&Apache::edit::select_arg('Items Display Direction:', 113: 'direction', 114: ['vertical','horizontal'], 115: $token); 116: $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 117: } elsif ($target eq 'modified') { 118: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 119: $safeeval,'randomize', 120: 'location','direction'); 121: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } 122: } elsif ($target eq 'web' or $target eq 'tex') { 123: $Apache::matchresponse::itemtable{'location'}= 124: &Apache::lonxml::get_param('location',$parstack,$safeeval); 125: $Apache::matchresponse::TeXitemgroupwidth=&Apache::lonxml::get_param('TeXitemgroupwidth',$parstack,$safeeval,undef,0); 126: } 127: return $result; 128: } 129: 130: sub end_itemgroup { 131: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 132: my $result; 133: 134: if ($target eq 'edit') { $result=&Apache::edit::end_table(); } 135: if (ref($Apache::response::itemgroup{'names'}) eq 'ARRAY') { 136: if(!@{ $Apache::response::itemgroup{'names'} }) { return; } 137: } else { 138: return; 139: } 140: my @names=@{ $Apache::response::itemgroup{'names'} }; 141: my $randomize =&Apache::lonxml::get_param('randomize',$parstack,$safeeval); 142: if ($randomize ne 'no' ) { 143: @names=&Apache::response::whichorder($#names+1,$randomize,0, 144: \%Apache::response::itemgroup); 145: } 146: if ($target eq 'analyze') { 147: my $partid="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; 148: push (@{ $Apache::lonhomework::analyze{"$partid.items"} }, @names); 149: } 150: my %letter_name_map; 151: my %name_letter_map; 152: my @alphabet=('A'..'Z'); 153: my $i=0; 154: foreach my $name (@names) { 155: $letter_name_map{$alphabet[$i]}=$name; 156: $name_letter_map{$name}=$alphabet[$i]; 157: $i++; 158: } 159: $Apache::response::itemgroup{'letter_name_map'}=\%letter_name_map; 160: $Apache::response::itemgroup{'name_letter_map'}=\%name_letter_map; 161: my $direction=&Apache::lonxml::get_param('direction',$parstack,$safeeval); 162: if ($target eq 'web') { 163: 164: my $table='<br /><table>'; # extra space to match what latex does. 165: my $i=0; 166: if ($direction eq 'horizontal') { $table .='<tr>';} 167: foreach my $name (@names) { 168: if ($direction ne 'horizontal') { $table.='<tr>'; } 169: $table.='<td>'.$alphabet[$i].'</td><td>'. 170: $Apache::response::itemgroup{$name.'.text'}.'</td>'; 171: if ($direction ne 'horizontal') { $table.='</tr>'; } 172: $i++; 173: } 174: if ($direction eq 'horizontal') { $table .='</tr>';} 175: $table.='</table>'; 176: $Apache::matchresponse::itemtable{'display'}=$table; 177: $Apache::lonxml::post_evaluate=0; 178: } elsif ($target eq 'tex') { 179: my $table=' \begin{description}\setlength{\leftmargin}{2em}\setlength{\labelwidth}{1em}\setlength{\itemsep}{0.5pt plus1pt minus2pt}\setlength{\listparindent}{0em} '; 180: my $i=0; 181: my ($numrows,$bubbles_per_row); 182: if ($Apache::lonhomework::type eq 'exam') { 183: ($numrows,$bubbles_per_row) = 184: &Apache::optionresponse::getnumrows(scalar(@names)); 185: } else { 186: $numrows = 1; 187: } 188: foreach my $name (@names) { 189: # $Apache::response::itemgroup{$name.'.text'}=~s/\$\$/\$/g; 190: my $item; 191: if (($numrows > 1) && ($bubbles_per_row > 0)) { 192: my $num = 1+int($i/$bubbles_per_row); 193: my $idx = int($i % $bubbles_per_row); 194: if ($idx == 0) { 195: if ($num == 1) { 196: $table .= '\item[\footnotesize {'.&mt('(first line)').'}]'; 197: } else { 198: $table .= '\item[\footnotesize {'.&mt('(next line)').'}]'; 199: } 200: } 201: $item = $alphabet[$idx]; 202: } else { 203: $item = $alphabet[$i]; 204: } 205: $table.='\item['.$item.'] '. 206: $Apache::response::itemgroup{$name.'.text'}; 207: $i++; 208: } 209: $table.=' \end{description} \strut '; 210: if ($Apache::lonhomework::type eq 'exam') {$table.='\vskip -13 mm \strut ';} 211: $Apache::matchresponse::itemtable{'display'}=$table; 212: $Apache::lonxml::post_evaluate=0; 213: } 214: return $result; 215: } 216: 217: sub start_item { 218: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 219: my $result=''; 220: if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { 221: &Apache::lonxml::startredirection; 222: } elsif ($target eq 'edit') { 223: my $randomize=&Apache::lonxml::get_param('randomize',$parstack, 224: $safeeval,'-2'); 225: $result=&Apache::edit::tag_start($target,$token,"Item"); 226: $result.=&Apache::edit::text_arg('Name:','name',$token); 227: if ($randomize ne 'no') { 228: $result.=' 'x 3 . 229: &Apache::edit::select_arg('Location:','location', 230: ['random','top','bottom'], 231: $token); 232: } 233: $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 234: } elsif ($target eq 'modified') { 235: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 236: $safeeval,'name', 237: 'location'); 238: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } 239: } 240: return $result; 241: } 242: 243: sub end_item { 244: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 245: my $text =''; 246: my $result = ''; 247: if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { 248: $text=&Apache::lonxml::endredirection; 249: } 250: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || 251: $target eq 'edit' || $target eq 'tex' || $target eq 'analyze') { 252: my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); 253: my $location=&Apache::lonxml::get_param('location',$parstack, 254: $safeeval); 255: &Apache::lonxml::debug("Got a name of :$name:"); 256: if ($name eq "") { $name=$Apache::lonxml::curdepth; } 257: &Apache::lonxml::debug("Using a name of :$name:"); 258: push @{ $Apache::response::itemgroup{'names'} }, $name; 259: $Apache::response::itemgroup{"$name.text"} = $text; 260: $Apache::response::itemgroup{"$name.location"} = $location; 261: } 262: if ($target eq 'edit') { 263: $result.= &Apache::edit::tag_end($target,$token,''); 264: } 265: return $result; 266: } 267: 268: sub insert_item { 269: return ' 270: <item name=""> 271: <startouttext /> 272: <endouttext /> 273: </item>'; 274: } 275: 276: %Apache::response::foilgroup=(); 277: sub start_foilgroup { 278: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 279: my $result; 280: %Apache::response::foilgroup=(); 281: $Apache::matchresponse::conceptgroup=0; 282: &Apache::response::pushrandomnumber(undef,$target); 283: if ($target eq 'edit') { 284: $result.=&Apache::edit::start_table($token) 285: .'<tr><td>'.&mt('Collection Of Foils').'</td>' 286: .'<td><span class="LC_nobreak">'.&mt('Delete?') 287: .&Apache::edit::deletelist($target,$token) 288: .'</span></td>' 289: .'<td> '.&Apache::edit::end_row() 290: .&Apache::edit::start_spanning_row()."\n"; 291: } 292: return $result; 293: } 294: 295: sub end_foilgroup { 296: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 297: my $result; 298: my $part = $Apache::inputtags::part; 299: my $response_id = $Apache::inputtags::response[-1]; 300: 301: if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') { 302: my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2'); 303: my $randomize = &Apache::lonxml::get_param('randomize',$parstack, 304: $safeeval,'-2'); 305: if ($target eq 'web' || $target eq 'tex') { 306: $result=&displayfoils($target,$max,$randomize); 307: $Apache::lonxml::post_evaluate=0; 308: } elsif ($target eq 'answer' ) { 309: $result=&displayanswers($max,$randomize); 310: } elsif ( $target eq 'grade') { 311: &grade_response($max,$randomize); 312: } elsif ( $target eq 'analyze') { 313: my @shown=&whichfoils($max,$randomize); 314: &Apache::response::analyze_store_foilgroup(\@shown, 315: ['text','value','location']); 316: #FIXME need to store options in some way 317: } 318: my ($numrows,$bubbles_per_row); 319: if (($target eq 'tex') && ($Apache::lonhomework::type eq 'exam')) { 320: my $numitems; 321: if (ref($Apache::response::itemgroup{'names'}) eq 'ARRAY') { 322: $numitems = scalar(@{ $Apache::response::itemgroup{'names'} }); 323: ($numrows,$bubbles_per_row) = 324: &Apache::optionresponse::getnumrows($numitems); 325: } 326: } 327: if ($numrows < 1) { 328: $numrows = 1; 329: } 330: my $increment = &getfoilcounts($max) * $numrows; 331: &Apache::lonxml::increment_counter($increment,"$part.$response_id"); 332: if ($target eq 'analyze') { 333: &Apache::lonhomework::set_bubble_lines(); 334: } 335: 336: } elsif ($target eq 'edit') { 337: $result=&Apache::edit::end_table(); 338: } 339: &Apache::response::poprandomnumber(); 340: return $result; 341: } 342: 343: sub whichfoils { 344: my ($max,$randomize)=@_; 345: return &Apache::response::whichorder(&getfoilcounts($max), 346: $randomize, 347: &Apache::response::showallfoils(), 348: \%Apache::response::foilgroup); 349: } 350: 351: sub displayanswers { 352: my ($max,$randomize,@opt)=@_; 353: if (ref($Apache::response::foilgroup{'names'}) eq 'ARRAY') { 354: if (!@{ $Apache::response::foilgroup{'names'} }) { return; } 355: } else { 356: return; 357: } 358: my @names = @{ $Apache::response::foilgroup{'names'} }; 359: my @whichfoils = &Apache::response::whichorder(&getfoilcounts($max), 360: $randomize, 361: &Apache::response::showallfoils(), 362: \%Apache::response::foilgroup); 363: my %name_letter_map; 364: if (ref($Apache::response::itemgroup{'name_letter_map'}) eq 'HASH') { 365: if (%{$Apache::response::itemgroup{'name_letter_map'}}) { 366: %name_letter_map= 367: %{ $Apache::response::itemgroup{'name_letter_map'} }; 368: } 369: } 370: my $result; 371: if ($Apache::lonhomework::type eq 'exam') { 372: my $i=0; 373: foreach my $name (@whichfoils) { 374: $result.=&Apache::response::answer_header('matchresponse',$i++); 375: my $value_name=$Apache::response::foilgroup{$name.'.value'}; 376: my $letter=$name_letter_map{$value_name}; 377: $result.=&Apache::response::answer_part('matchresponse',$letter); 378: $result.=&Apache::response::answer_footer('matchresponse'); 379: } 380: } else { 381: $result=&Apache::response::answer_header('matchresponse'); 382: foreach my $name (@whichfoils) { 383: my $value_name=$Apache::response::foilgroup{$name.'.value'}; 384: my $letter=$name_letter_map{$value_name}; 385: $result.=&Apache::response::answer_part('matchresponse',$letter); 386: } 387: $result.=&Apache::response::answer_footer('matchresponse'); 388: } 389: return $result; 390: } 391: 392: 393: sub grade_response { 394: my ($max,$randomize)=@_; 395: my (@whichfoils)=&Apache::response::whichorder(&getfoilcounts($max), 396: $randomize, 397: &Apache::response::showallfoils(), 398: \%Apache::response::foilgroup); 399: if (!&Apache::response::submitted()) { return; } 400: my %responsehash; 401: my %grade; 402: my %answerhash; 403: my ($temp,$right,$wrong,$ignored)=(1,0,0,0); 404: my %letter_name_map; 405: if (ref($Apache::response::itemgroup{'letter_name_map'}) eq 'HASH') { 406: if (%{$Apache::response::itemgroup{'letter_name_map'}}) { 407: %letter_name_map= 408: %{ $Apache::response::itemgroup{'letter_name_map'} }; 409: } 410: } 411: my @items; 412: my $numitems = scalar(@{ $Apache::response::itemgroup{'names'} }); 413: my ($numrows,$bubbles_per_row); 414: if ($Apache::lonhomework::scantronmode) { 415: my $numitems = scalar(@{ $Apache::response::itemgroup{'names'} }); 416: ($numrows,$bubbles_per_row) = 417: &Apache::optionresponse::getnumrows($numitems); 418: } 419: if ($numrows < 1) { 420: $numrows = 1; 421: } 422: my @alphabet=('A'..'Z'); 423: my %nums_from_letters; 424: for (my $i=0; $i<@alphabet; $i++) { 425: $nums_from_letters{$alphabet[$i]} = $i; 426: } 427: foreach my $name (@whichfoils) { 428: my $response; 429: if ($numrows > 1) { 430: my $num = $temp; 431: my $totalnum; 432: for (my $i=0; $i<$numrows; $i++) { 433: my $item = &Apache::response::getresponse($num,'letter'); 434: if ($item =~ /^\w$/) { 435: $totalnum = $i*$bubbles_per_row + $nums_from_letters{$item}; 436: } 437: $num ++; 438: } 439: if ($totalnum =~ /^\d+$/) { 440: $response = $alphabet[$totalnum]; 441: } 442: $temp += $numrows; 443: } else { 444: $response = &Apache::response::getresponse($temp,'letter'); 445: $temp ++; 446: } 447: push(@items,$response); 448: my $responsename = $letter_name_map{$response}; 449: my $value=$Apache::response::foilgroup{$name.'.value'}; 450: if ($Apache::lonhomework::type eq 'randomizetry') { 451: $answerhash{$name} = $value; 452: } 453: if ( $response =~ /[^\s]/) { 454: $responsehash{$name}=$responsename; 455: &Apache::lonxml::debug("submitted a $response($responsename) for $value<br />\n"); 456: if ($value eq $responsename) { 457: $grade{$name}='1'; $right++; 458: } else { 459: $grade{$name}='0'; $wrong++; 460: } 461: } else { 462: $ignored++; 463: } 464: } 465: my $part=$Apache::inputtags::part; 466: my $nonlenient=&Apache::inputtags::grading_is_nonlenient($part); 467: my $id = $Apache::inputtags::response['-1']; 468: my $responsestr=&Apache::lonnet::hash2str(%responsehash); 469: my $itemstr =&Apache::lonnet::array2str(@items); 470: my $gradestr =&Apache::lonnet::hash2str(%grade); 471: my %previous=&Apache::response::check_for_previous($responsestr,$part,$id); 472: &Apache::lonxml::debug("Got $right right and $wrong wrong, and $ignored were ignored "); 473: $Apache::lonhomework::results{"resource.$part.$id.submission"}= 474: $responsestr; 475: $Apache::lonhomework::results{"resource.$part.$id.submissionitems"}= 476: $itemstr; 477: $Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}= 478: $gradestr; 479: if ($Apache::lonhomework::type eq 'randomizetry') { 480: $Apache::lonhomework::results{"resource.$part.$id.foilorder"} = &Apache::lonnet::array2str(@whichfoils); 481: } 482: if (($Apache::lonhomework::type eq 'survey') || 483: ($Apache::lonhomework::type eq 'surveycred') || 484: ($Apache::lonhomework::type eq 'anonsurvey') || 485: ($Apache::lonhomework::type eq 'anonsurveycred')) { 486: if ($ignored == 0) { 487: my $ad; 488: if ($Apache::lonhomework::type eq 'anonsurvey') { 489: $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='ANONYMOUS'; 490: } elsif ($Apache::lonhomework::type eq 'anonsurveycred') { 491: $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='ANONYMOUS_CREDIT'; 492: } elsif ($Apache::lonhomework::type eq 'surveycred') { 493: $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED_CREDIT'; 494: } else { 495: $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED'; 496: } 497: &Apache::response::handle_previous(\%previous,$ad); 498: } elsif ($wrong==0 && $right==0) { 499: } else { 500: my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='MISSING_ANSWER'; 501: &Apache::response::handle_previous(\%previous,$ad); 502: } 503: } elsif ($nonlenient) { 504: my $ad; 505: if ($wrong==0 && $ignored==0) { 506: $ad='EXACT_ANS'; 507: } elsif ($wrong==0 && $right==0) { 508: #nothing submitted 509: } else { 510: if ($ignored==0) { 511: $ad='INCORRECT'; 512: } else { 513: $ad='MISSING_ANSWER'; 514: } 515: } 516: $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad; 517: &Apache::response::handle_previous(\%previous,$ad); 518: } else { 519: my $ad; 520: if ($wrong==0 && $right==0) { 521: #nothing submitted only assign a score if we 522: #need to override a previous grade 523: if (defined($Apache::lonhomework::history{"resource.$part.$id.awarddetail"})) { 524: $ad='ASSIGNED_SCORE'; 525: } 526: } else { 527: $ad='ASSIGNED_SCORE'; 528: } 529: $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad; 530: $Apache::lonhomework::results{"resource.$part.$id.awarded"}= 531: $right/(scalar(@whichfoils)); 532: $Apache::lonhomework::results{"resource.$part.$id.numfoils"}= 533: scalar(@whichfoils); 534: } 535: } 536: 537: sub format_prior_answer { 538: my ($mode,$answer,$other_data) = @_; 539: my %answer =&Apache::lonnet::str2hash($answer); 540: my $foil_order =$other_data->[0]; 541: my %grading =&Apache::lonnet::str2hash($other_data->[1]); 542: my @items =&Apache::lonnet::str2array($other_data->[2]); 543: my $output; 544: 545: foreach my $name (@{ $foil_order }) { 546: my $item=shift(@items); 547: $output .= '<tr><td>'.$item.'</td></tr>'; 548: } 549: return if (!defined($output)); 550: 551: $output = '<table class="LC_prior_match">'.$output.'</table>'; 552: return $output; 553: } 554: 555: sub itemdisplay { 556: my ($location)=@_; 557: if ($location eq 'top' && 558: !defined($Apache::matchresponse::itemtable{'location'})) { 559: return $Apache::matchresponse::itemtable{'display'}; 560: } 561: if ($Apache::matchresponse::itemtable{'location'} eq $location) { 562: return $Apache::matchresponse::itemtable{'display'}; 563: } 564: return undef; 565: } 566: 567: sub displayfoils { 568: my ($target,$max,$randomize)=@_; 569: my ($tabsize, $lefttabsize, $righttabsize); 570: 571: my $result; 572: my $question; 573: my (@whichfoils)=&Apache::response::whichorder(&getfoilcounts($max), 574: $randomize, 575: &Apache::response::showallfoils(), 576: \%Apache::response::foilgroup); 577: my $part=$Apache::inputtags::part; 578: my $solved=$Apache::lonhomework::history{"resource.$part.solved"}; 579: my %letter_name_map; 580: if (ref($Apache::response::itemgroup{'letter_name_map'}) eq 'HASH') { 581: if (%{$Apache::response::itemgroup{'letter_name_map'}}) { 582: %letter_name_map= 583: %{ $Apache::response::itemgroup{'letter_name_map'} }; 584: } 585: } 586: my %name_letter_map; 587: if (ref($Apache::response::itemgroup{'name_letter_map'}) eq 'HASH') { 588: if (%{$Apache::response::itemgroup{'name_letter_map'}}) { 589: %name_letter_map= 590: %{ $Apache::response::itemgroup{'name_letter_map'} }; 591: } 592: } 593: if ( &Apache::response::show_answer() && ($target ne 'tex')) { 594: foreach my $name (@whichfoils) { 595: my $text=$Apache::response::foilgroup{$name.'.text'}; 596: my $value=$Apache::response::foilgroup{$name.'.value'}; 597: my $letter=$name_letter_map{$value}; 598: if ($target eq 'tex') { 599: $question.=' \\\\ '.$letter.':'.$text; 600: } else { 601: $question.='<br /><b>'.$letter.':</b> '.$text; 602: } 603: } 604: } else { 605: my $i = 0; 606: my $temp=1; 607: my $id=$Apache::inputtags::response[-1]; 608: my $part=$Apache::inputtags::part; 609: my ($lastresponse,$newvariation); 610: if ((($Apache::lonhomework::history{"resource.$part.type"} eq 'randomizetry') || 611: ($Apache::lonhomework::type eq 'randomizetry')) && 612: ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) { 613: if ($env{'form.'.$part.'.rndseed'} ne 614: $Apache::lonhomework::history{"resource.$part.rndseed"}) { 615: $newvariation = 1; 616: } 617: } 618: unless ((($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred') && (defined($env{'form.grade_symb'}))) || $newvariation) { 619: $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; 620: } 621: my %lastresponse=&Apache::lonnet::str2hash($lastresponse); 622: my @alphabet=('A'..'Z'); 623: my @used_letters=sort(keys(%letter_name_map)); 624: my $internal_counter=$Apache::lonxml::counter; 625: my ($numrows,$bubbles_per_row); 626: if (($target eq 'tex') && ($Apache::lonhomework::type eq 'exam')) { 627: ($numrows,$bubbles_per_row) = 628: &Apache::optionresponse::getnumrows(scalar(@used_letters)); 629: } else { 630: $numrows = 1; 631: } 632: foreach my $name (@whichfoils) { 633: my $lastopt=$lastresponse{$name}; 634: my $last_letter=$name_letter_map{$lastopt}; 635: my $optionlist = ''; 636: if ($target ne 'tex') { 637: $optionlist="<option></option>\n"; 638: } else { 639: if ($Apache::lonhomework::type ne 'exam') { 640: if($env{'form.pdfFormFields'} eq 'yes' 641: && $Apache::inputtags::status['-1'] eq 'CAN_ANSWER') { 642: my $fieldname = $env{'request.symb'} . '&part_'. $Apache::inputtags::part .'&matchresponse'. '&HWVAL_' . $Apache::inputtags::response['-1'] . ':' . $temp . '&submit_' . $Apache::inputtags::part . '&'; 643: $optionlist = &Apache::lonxml::print_pdf_start_combobox($fieldname); 644: } else { 645: 646: $optionlist='\framebox[10 mm][s]{\tiny\strut}'; 647: } 648: } 649: } 650: my $option; 651: foreach $option (@used_letters) { 652: if ($option eq $last_letter) { 653: if ($target ne 'tex') { 654: $optionlist.="<option selected=\"selected\">$option</option>\n"; 655: } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes' 656: && $Apache::inputtags::status['-1'] eq 'CAN_ANSWER' 657: && $Apache::lonhomework::type ne 'exam') { 658: $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); 659: } 660: } else { 661: if ($target ne 'tex') { 662: $optionlist.="<option>$option</option>\n"; 663: } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes' 664: && $Apache::inputtags::status['-1'] eq 'CAN_ANSWER' 665: && $Apache::lonhomework::type ne 'exam') { 666: $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); 667: } 668: } 669: } 670: if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') { 671: $optionlist='<select onchange="javascript:setSubmittedPart(\''. 672: $part.'\');" name="HWVAL_'. 673: $Apache::inputtags::response[-1].':'.$temp.'">'. 674: $optionlist."</select>\n"; 675: } 676: my $text=$Apache::response::foilgroup{$name.'.text'}; 677: # 678: # Factor out the tex computations of the left/right 1/2 minipage 679: # widths for left or right positioning. This allows us 680: # to, if necessary constrain the bubble widths: 681: # 682: if ($target eq 'tex' && 683: (&itemdisplay('left') || &itemdisplay('right'))) { 684: $tabsize=&Apache::londefdef::recalc($env{'form.textwidth'}); 685: ($lefttabsize,$righttabsize)=(0,0); 686: if ($Apache::matchresponse::TeXitemgroupwidth ne '') { 687: $Apache::matchresponse::TeXitemgroupwidth=~/(\d*.?\d*)/; 688: $lefttabsize=$tabsize*$1/100; 689: $righttabsize=0.95*($tabsize-$lefttabsize); 690: } else { 691: $tabsize=~/(\d+\.?\d*)/; 692: $lefttabsize=$1/2.1; 693: $righttabsize=0.95*($1-$lefttabsize); 694: } 695: } 696: if ($target ne 'tex') { 697: if ($Apache::lonhomework::type ne 'exam') { 698: $question.="<br />\n".$optionlist.$text; 699: } else { 700: $question.="<br />\n".$text; 701: } 702: if ($Apache::lonhomework::type eq 'exam') { 703: my @blank; 704: $question.=&Apache::optionresponse::webbubbles(\@used_letters,\@blank,$temp,$last_letter); 705: } 706: } else { 707: # Note that if left or right positioned, we must 708: # confine the bubbles to righttabsize: 709: # 710: if ($Apache::lonhomework::type eq 'exam') { 711: $question.=' '.$optionlist.$text."\n"; 712: my @emptyItems = (); 713: for (my $i=0;$i<=$#used_letters;$i++) {push @emptyItems, ' ';} 714: $question.='\vskip -1 mm\noindent\begin{list}{}{\setlength{\listparindent}{0mm}\setlength{\leftmargin}{2mm}}' 715: .'\item \hskip -3mm '; 716: if ($numrows == 1) { 717: $question .= '\textbf{'.$internal_counter.'}'; 718: } else { 719: my $linetext; 720: for (my $i=0; $i<$numrows; $i++) { 721: $linetext .= $internal_counter+$i.', '; 722: } 723: $linetext =~ s/,\s$//; 724: $question .= '\small {\textbf{'.$linetext.'}} '. 725: '\hskip 2 mm {\footnotesize '. 726: &mt('(Bubble once in [_1] lines)',$numrows). 727: '} \vskip 3 mm'; 728: } 729: my $max_width; 730: if (&itemdisplay('left') || &itemdisplay('right')) { 731: $max_width = $righttabsize; 732: } 733: $question .= '\vskip -4 mm' . &Apache::optionresponse::bubbles(\@used_letters,\@emptyItems,'',$max_width,$numrows,$bubbles_per_row,$internal_counter); 734: $question .= '\end{list} \vskip -8 mm \strut '; 735: $internal_counter += $numrows; 736: } else { 737: if($env{'form.pdfFormFields'} eq 'yes' 738: && $Apache::inputtags::status['-1'] eq 'CAN_ANSWER') { 739: $question .= " $optionlist ". &Apache::lonxml::print_pdf_end_combobox($text).'\strut'; 740: } else { 741: $question.=' '.$optionlist.$text.'\strut\\\\\strut '."\n"; 742: } 743: } 744: } 745: $temp++; 746: } 747: } 748: if ($result=&itemdisplay('top')) { 749: $result.=$question; 750: } elsif ($result=&itemdisplay('bottom')) { 751: $result=$question.$result; 752: } elsif ($result=&itemdisplay('right')) { 753: if ($target ne 'tex') { 754: #remove the first <br /> 755: $question=~s|<br />||; 756: $result='<table><tr><td valign="top">'.$question. 757: '</td><td valign="top">'.$result.'</td></tr></table>'; 758: } else { 759: $lefttabsize.=' mm '; 760: $righttabsize.=' mm '; 761: $result='\setlength{\tabcolsep}{1 mm}\begin{tabular}{p{'.$righttabsize.'}p{'.$lefttabsize.'}}\begin{minipage}{'.$righttabsize.'}'.$question.'\end{minipage}&\begin{minipage}{'.$lefttabsize.'}'.$result.'\end{minipage}\end{tabular}'; 762: } 763: } elsif ($result=&itemdisplay('left')) { 764: if ($target ne 'tex') { 765: #remove the first <br /> 766: $question=~s|<br />||; 767: $result='<table><tr><td valign="top">'.$result. 768: '</td><td valign="top">'.$question.'</td></tr></table>'; 769: } else { 770: $lefttabsize.=' mm '; 771: $righttabsize.=' mm '; 772: $result='\setlength{\tabcolsep}{1 mm}\begin{tabular}{p{'.$lefttabsize.'}p{'.$righttabsize.'}}\begin{minipage}{'.$lefttabsize.'}'.$result.'\end{minipage}&\begin{minipage}{'.$righttabsize.'}'.$question.'\end{minipage}\end{tabular}'; 773: } 774: } 775: if ($target eq 'web') { 776: my $questiontype; 777: if ($Apache::lonhomework::type eq 'randomizetry') { 778: $questiontype = $Apache::lonhomework::type; 779: } 780: &Apache::response::setup_prior_tries_hash(\&format_prior_answer, 781: [\@whichfoils, 782: 'submissiongrading', 783: 'submissionitems'], 784: $questiontype); 785: } 786: if ($target ne 'tex') {$result.="<br />";} else {$result.=' \\\\ ';} 787: return $result; 788: } 789: 790: sub getfoilcounts { 791: my ($max)=@_; 792: # +1 since instructors will count from 1 793: my $count = $#{ $Apache::response::foilgroup{'names'} }+1; 794: if (&Apache::response::showallfoils()) { $max=$count; } 795: if ($count>$max) { $count=$max } 796: &Apache::lonxml::debug("Count is $count from $max"); 797: return $count; 798: } 799: 800: 801: sub start_conceptgroup { 802: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 803: $Apache::matchresponse::conceptgroup=1; 804: %Apache::response::conceptgroup=(); 805: my $result; 806: if ($target eq 'edit') { 807: $result.=&Apache::edit::tag_start($target,$token, 808: "Concept Grouped Foils"); 809: $result.=&Apache::edit::text_arg('Concept:','concept',$token,'50'). 810: &Apache::edit::end_row().&Apache::edit::start_spanning_row(); 811: } 812: if ($target eq 'modified') { 813: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 814: $safeeval,'concept'); 815: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } 816: } 817: return $result; 818: } 819: 820: sub end_conceptgroup { 821: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 822: $Apache::matchresponse::conceptgroup=0; 823: my $result=''; 824: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || 825: $target eq 'tex' || $target eq 'analyze') { 826: &Apache::response::pick_foil_for_concept($target, 827: ['value','text','location'], 828: \%Apache::hint::match, 829: $parstack,$safeeval); 830: } elsif ($target eq 'edit') { 831: $result=&Apache::edit::end_table(); 832: } 833: return $result; 834: } 835: 836: sub insert_conceptgroup { 837: my $result="\n\t\t<conceptgroup concept=\"\">".&insert_foil()."\n\t\t</conceptgroup>\n"; 838: return $result; 839: } 840: 841: sub start_foil { 842: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 843: my $result=''; 844: if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { 845: &Apache::lonxml::startredirection; 846: if ($target eq 'analyze') { 847: &Apache::response::check_if_computed($token,$parstack,$safeeval,'value'); 848: } 849: } elsif ($target eq 'edit') { 850: $result=&Apache::edit::tag_start($target,$token,"Foil"); 851: my $level='-2'; 852: if ($$tagstack[-2] eq 'conceptgroup') { $level = '-3'; } 853: $result.=&Apache::edit::text_arg('Name:','name',$token); 854: my @names; 855: if (ref($Apache::response::itemgroup{'names'}) eq 'ARRAY') { 856: if (@{ $Apache::response::itemgroup{'names'} }) { 857: @names=@{ $Apache::response::itemgroup{'names'} }; 858: } 859: } 860: $result.= &Apache::edit::select_or_text_arg('Correct Option:','value',['unused',@names],$token,'15'); 861: my $randomize=&Apache::lonxml::get_param('randomize',$parstack, 862: $safeeval,'-3'); 863: if ($randomize ne 'no') { 864: $result.=&Apache::edit::select_arg('Location:','location', 865: ['random','top','bottom'],$token); 866: } 867: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 868: } elsif ($target eq 'modified') { 869: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 870: $safeeval,'value', 871: 'name','location'); 872: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } 873: } 874: return $result; 875: } 876: 877: sub end_foil { 878: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 879: my $text =''; 880: my $result = ''; 881: if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { 882: $text=&Apache::lonxml::endredirection; 883: } 884: 885: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || 886: $target eq 'tex' || $target eq 'analyze') { 887: if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') { 888: $text='\vskip 5mm $\triangleright$ '.$text; 889: } 890: my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); 891: if ($value ne 'unused') { 892: my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); 893: &Apache::lonxml::debug("Got a name of :$name:"); 894: if (!$name) { 895: &Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.')); 896: $name=$Apache::lonxml::curdepth; 897: } 898: &Apache::lonxml::debug("Using a name of :$name:"); 899: if (defined($Apache::response::foilnames{$name})) { 900: &Apache::lonxml::error(&mt("Foil name [_1] appears more than once. Foil names need to be unique.",'<b><tt>'.$name.'</tt></b>')); 901: } 902: $Apache::response::foilnames{$name}++; 903: my $location =&Apache::lonxml::get_param('location',$parstack, 904: $safeeval); 905: if ( $Apache::matchresponse::conceptgroup 906: && !&Apache::response::showallfoils() ) { 907: 908: push @{ $Apache::response::conceptgroup{'names'} }, $name; 909: $Apache::response::conceptgroup{"$name.value"} = $value; 910: $Apache::response::conceptgroup{"$name.text"} = $text; 911: $Apache::response::conceptgroup{"$name.location"} = $location; 912: } else { 913: 914: push @{ $Apache::response::foilgroup{'names'} }, $name; 915: $Apache::response::foilgroup{"$name.value"} = $value; 916: $Apache::response::foilgroup{"$name.text"} = $text; 917: $Apache::response::foilgroup{"$name.location"} = $location; 918: } 919: } 920: } 921: if ($target eq 'edit') { 922: $result.= &Apache::edit::tag_end($target,$token,''); 923: } 924: return $result; 925: } 926: 927: sub insert_foil { 928: return ' 929: <foil name="" value="unused"> 930: <startouttext /> 931: <endouttext /> 932: </foil>'; 933: } 934: 935: 1; 936: __END__