Annotation of loncom/homework/radiobuttonresponse.pm, revision 1.81
1.22 albertel 1: # The LearningOnline Network with CAPA
2: # mutliple choice style responses
1.31 albertel 3: #
1.81 ! albertel 4: # $Id: radiobuttonresponse.pm,v 1.80 2004/01/14 22:08:22 www Exp $
1.31 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: #
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: #
1.1 albertel 28:
29: package Apache::radiobuttonresponse;
30: use strict;
1.42 albertel 31: use HTML::Entities();
1.1 albertel 32:
1.36 harris41 33: BEGIN {
1.22 albertel 34: &Apache::lonxml::register('Apache::radiobuttonresponse',('radiobuttonresponse'));
1.1 albertel 35: }
36:
37: sub start_radiobuttonresponse {
1.22 albertel 38: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.26 albertel 39: my $result;
1.3 albertel 40: #when in a radiobutton response use these
1.22 albertel 41: &Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
1.26 albertel 42: push (@Apache::lonxml::namespace,'radiobuttonresponse');
1.4 albertel 43: my $id = &Apache::response::start_response($parstack,$safeeval);
1.58 albertel 44: %Apache::hint::radiobutton=();
1.25 albertel 45: if ($target eq 'meta') {
46: $result=&Apache::response::meta_package_write('radiobuttonresponse');
1.26 albertel 47: } elsif ($target eq 'edit' ) {
48: $result.=&Apache::edit::start_table($token).
1.80 www 49: '<tr><td>'.&Apache::lonxml::description($token).
50: &Apache::loncommon::help_open_topic('Radio_Response_Problems').
51: "</td><td>Delete:".
1.26 albertel 52: &Apache::edit::deletelist($target,$token)
1.35 matthew 53: ."</td><td> ".&Apache::edit::end_row()
54: .&Apache::edit::start_spanning_row();
55:
1.47 albertel 56: $result.=
57: &Apache::edit::text_arg('Max Number Of Shown Foils:','max',$token,'4').
58: &Apache::edit::select_arg('Randomize Foil Order','randomize',
59: ['yes','no'],$token).
60: &Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n";
1.26 albertel 61: } elsif ($target eq 'modified') {
62: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.47 albertel 63: $safeeval,'max','randomize');
1.26 albertel 64: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.38 sakharuk 65: } elsif ($target eq 'tex') {
1.70 sakharuk 66: my $type=&Apache::lonxml::get_param('TeXtype',$parstack,$safeeval,undef,0);
67: if ($type eq '1') {
68: $result .= ' \renewcommand{\labelenumi}{\arabic{enumi}.}';
69: } elsif ($type eq 'A') {
70: $result .= ' \renewcommand{\labelenumi}{\Alph{enumi}.}';
71: } elsif ($type eq 'a') {
72: $result .= ' \renewcommand{\labelenumi}{\alph{enumi}.}';
73: } elsif ($type eq 'i') {
74: $result .= ' \renewcommand{\labelenumi}{\roman{enumi}.}';
75: }
1.38 sakharuk 76: $result .= '\begin{enumerate}';
1.77 albertel 77: } elsif ($target eq 'analyze') {
1.78 albertel 78: my $part_id="$Apache::inputtags::part.$id";
1.77 albertel 79: push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
1.25 albertel 80: }
81: return $result;
1.1 albertel 82: }
83:
84: sub end_radiobuttonresponse {
1.26 albertel 85: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
86: my $result;
87: if ($target eq 'edit') { $result=&Apache::edit::end_table(); }
1.38 sakharuk 88: if ($target eq 'tex') { $result .= '\end{enumerate}'; }
1.22 albertel 89: &Apache::response::end_response;
1.26 albertel 90: pop @Apache::lonxml::namespace;
1.33 albertel 91: &Apache::lonxml::deregister('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
1.26 albertel 92: return $result;
1.1 albertel 93: }
94:
1.43 albertel 95: %Apache::response::foilgroup=();
1.1 albertel 96: sub start_foilgroup {
1.56 sakharuk 97: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
98: my $result;
1.43 albertel 99: %Apache::response::foilgroup=();
1.22 albertel 100: $Apache::radiobuttonresponse::conceptgroup=0;
101: &Apache::response::setrandomnumber();
1.56 sakharuk 102: if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') {
103: $result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]';
104: }
105: return $result;
1.5 albertel 106: }
107:
1.15 albertel 108: sub storesurvey {
1.33 albertel 109: if ( !defined($ENV{'form.submitted'})) { return ''; }
1.68 albertel 110: my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']};
1.33 albertel 111: &Apache::lonxml::debug("Here I am!:$response:");
112: if ( $response !~ /[0-9]+/) { return ''; }
113: my $id = $Apache::inputtags::response['-1'];
114: my @whichfoils=@{ $Apache::response::foilgroup{'names'} };
115: my %responsehash;
116: $responsehash{$whichfoils[$response]}=$response;
117: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=&Apache::lonnet::hash2str(%responsehash);
118: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='SUBMITTED';
119: &Apache::lonxml::debug("submitted a $response<br />\n");
1.22 albertel 120: return '';
1.15 albertel 121: }
122:
1.32 albertel 123: sub grade_response {
1.49 albertel 124: my ($max,$randomize)=@_;
1.55 albertel 125: #keep the random numbers the same must always call this
126: my ($answer,@whichfoils)=&whichfoils($max,$randomize);
1.32 albertel 127: if (!defined($ENV{'form.submitted'})) { return; }
1.65 albertel 128: my $response;
129: if ($ENV{'form.submitted'} eq 'scantron') {
1.69 albertel 130: $response=&Apache::response::getresponse();
1.65 albertel 131: } else {
1.68 albertel 132: $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']};
1.65 albertel 133: }
1.32 albertel 134: if ( $response !~ /[0-9]+/) { return; }
135: my $part=$Apache::inputtags::part;
136: my $id = $Apache::inputtags::response['-1'];
137: my %responsehash;
138: $responsehash{$whichfoils[$response]}=$response;
139: my $responsestr=&Apache::lonnet::hash2str(%responsehash);
140: my %previous=&Apache::response::check_for_previous($responsestr,
141: $part,$id);
142: $Apache::lonhomework::results{"resource.$part.$id.submission"}=
143: $responsestr;
144: &Apache::lonxml::debug("submitted a $response<br />\n");
145: my $ad;
146: if ($response == $answer) {
147: $ad='EXACT_ANS';
148: } else {
149: $ad='INCORRECT';
150: }
151: $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;
152: &Apache::response::handle_previous(\%previous,$ad);
153: }
154:
1.1 albertel 155: sub end_foilgroup {
1.22 albertel 156: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.29 albertel 157:
1.22 albertel 158: my $result;
1.79 albertel 159: if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
160: $target eq 'tex' || $target eq 'analyze') {
1.29 albertel 161: my $style = $Apache::lonhomework::type;
1.77 albertel 162: if ( $style eq 'survey' && $target ne 'analyze') {
1.81 ! albertel 163: if ($target eq 'web' || $target eq 'tex') {
! 164: $result=&displayallfoils();
! 165: } elsif ( $target eq 'answer' ) {
! 166: $result=&displayallanswers();
! 167: } elsif ( $target eq 'grade' ) {
! 168: $result=&storesurvey();
! 169: }
1.22 albertel 170: } else {
171: my $name;
1.49 albertel 172: my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
1.47 albertel 173: my $randomize = &Apache::lonxml::get_param('randomize',$parstack,
174: $safeeval,'-2');
1.38 sakharuk 175: if ($target eq 'web' || $target eq 'tex') {
1.49 albertel 176: $result=&displayfoils($target,$max,$randomize);
1.28 albertel 177: } elsif ($target eq 'answer' ) {
1.49 albertel 178: $result=&displayanswers($max,$randomize);
1.22 albertel 179: } elsif ( $target eq 'grade') {
1.49 albertel 180: &grade_response($max,$randomize);
1.77 albertel 181: } elsif ( $target eq 'analyze') {
1.78 albertel 182: my @shown = &whichfoils($max,$randomize);
1.79 albertel 183: &Apache::response::analyze_store_foilgroup(\@shown,
184: ['text','value','location']);
185: my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
186: push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },
187: ('true','false'));
1.22 albertel 188: }
1.5 albertel 189: }
1.65 albertel 190: }
1.76 sakharuk 191: &Apache::lonxml::increment_counter();
1.22 albertel 192: return $result;
1.6 albertel 193: }
194:
195: sub getfoilcounts {
1.34 albertel 196: my @names;
1.22 albertel 197: my $truecnt=0;
198: my $falsecnt=0;
199: my $name;
1.34 albertel 200: if ( $Apache::response::foilgroup{'names'} ) {
201: @names= @{ $Apache::response::foilgroup{'names'} };
202: }
1.22 albertel 203: foreach $name (@names) {
204: if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
205: $truecnt++;
206: } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') {
207: $falsecnt++;
1.6 albertel 208: }
1.22 albertel 209: }
1.50 albertel 210: return ($truecnt,$falsecnt);
1.5 albertel 211: }
212:
1.15 albertel 213: sub displayallfoils {
1.22 albertel 214: my $result;
215: &Apache::lonxml::debug("survey style display");
216: my @names = @{ $Apache::response::foilgroup{'names'} };
217: my $temp=0;
218: my $id=$Apache::inputtags::response['-1'];
219: my $part=$Apache::inputtags::part;
220: my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
1.32 albertel 221: my %lastresponse=&Apache::lonnet::str2hash($lastresponse);
1.73 albertel 222: if (&Apache::response::show_answer() ) {
1.45 albertel 223: foreach my $name (@names) {
224: if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') {
225: $result.="<br />".$Apache::response::foilgroup{$name.'.value'};
226: if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
227: $result.='<b>';
228: }
229: $result .= $Apache::response::foilgroup{$name.'.text'};
230: if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
231: $result.='</b>';
232: }
233: }
234: }
235: } else {
236: foreach my $name (@names) {
237: if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') {
1.68 albertel 238: $result.="<br /><input type=\"radio\" name=\"HWVAL_$Apache::inputtags::response['-1']\" value=\"$temp\" ";
1.45 albertel 239: if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
240: $result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
241: $temp++;
242: }
1.15 albertel 243: }
1.22 albertel 244: }
245: return $result;
1.15 albertel 246: }
247:
1.28 albertel 248: sub whichfoils {
1.49 albertel 249: my ($max,$randomize)=@_;
1.28 albertel 250:
1.22 albertel 251: my @truelist;
252: my @falselist;
1.41 albertel 253: my @whichfalse =();
1.50 albertel 254: my ($truecnt,$falsecnt) = &getfoilcounts();
1.49 albertel 255: my $count=0;
256: # we will add in 1 of the true statements
257: if (($falsecnt+1)>$max) { $count=$max } else { $count=$falsecnt+1; }
1.51 albertel 258: my $answer=int(&Math::Random::random_uniform() * ($count));
1.49 albertel 259: &Apache::lonxml::debug("Count is $count, $answer is $answer");
1.34 albertel 260: my @names;
261: if ( $Apache::response::foilgroup{'names'} ) {
1.49 albertel 262: @names= @{ $Apache::response::foilgroup{'names'} };
1.34 albertel 263: }
1.41 albertel 264: if (&Apache::response::showallfoils()) {
1.49 albertel 265: @whichfalse=@names;
1.48 albertel 266: } elsif ($randomize eq 'no') {
1.47 albertel 267: &Apache::lonxml::debug("No randomization");
268: my $havetrue=0;
269: foreach my $name (@names) {
270: if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
1.49 albertel 271: if (!$havetrue ) {
272: push(@whichfalse,$name); $havetrue++; $answer=$#whichfalse;
273: }
1.47 albertel 274: } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') {
275: push (@whichfalse,$name);
276: } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'unused') {
277: } else {
278: &Apache::lonxml::error(&HTML::Entities::encode("No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in <foilgroup>"));
279: }
280: }
1.41 albertel 281: } else {
1.49 albertel 282: my $current=0;
283: &Apache::lonhomework::showhash(%Apache::response::foilgroup);
284: my (%top,%bottom);
285: #first find out where everyone wants to be
1.41 albertel 286: foreach my $name (@names) {
1.49 albertel 287: $current++;
288: if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
289: push (@truelist,$name);
290: if ($Apache::response::foilgroup{$name.'.location'} eq 'top') {
291: $top{$name}=$current;
292: } elsif ($Apache::response::foilgroup{$name.'.location'} eq 'bottom') {
293: $bottom{$name}=$current;
294: }
295: } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') {
296: push (@falselist,$name);
297: if ($Apache::response::foilgroup{$name.'.location'} eq 'top') {
298: $top{$name}=$current;
299: } elsif ($Apache::response::foilgroup{$name.'.location'} eq 'bottom') {
300: $bottom{$name}=$current;
301: }
302: } elsif ($Apache::response::foilgroup{$name.'.value'} eq 'unused') {
303: } else {
304: &Apache::lonxml::error(&HTML::Entities::encode("No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in <foilgroup>"));
305: }
1.41 albertel 306: }
1.49 albertel 307: #pick a true statement
1.72 albertel 308: my $notrue=0;
309: if (scalar(@truelist) == 0) { $notrue=1; }
1.51 albertel 310: my $whichtrue = int(&Math::Random::random_uniform() * ($#truelist+1));
1.41 albertel 311: &Apache::lonxml::debug("Max is $max, From $#truelist elms, picking $whichtrue");
1.49 albertel 312: my (@toplist, @bottomlist);
313: my $topcount=0;
1.71 albertel 314: my $bottomcount=0;
1.49 albertel 315: # assign everyone to either toplist/bottomlist or whichfalse
316: # which false is randomized, toplist bottomlist are in order
1.71 albertel 317: while ((($#whichfalse+$topcount+$bottomcount) < $max-2) && ($#falselist > -1)) {
1.49 albertel 318: &Apache::lonxml::debug("Have $#whichfalse max is $max");
1.51 albertel 319: my $afalse=int(&Math::Random::random_uniform() * ($#falselist+1));
1.49 albertel 320: &Apache::lonxml::debug("From $#falselist elms, picking $afalse");
321: $afalse=splice(@falselist,$afalse,1);
322: &Apache::lonxml::debug("Picked $afalse");
323: &Apache::lonhomework::showhash(('names'=>\@names));
324: &Apache::lonhomework::showhash(%top);
325: if ($top{$afalse}) {
326: $toplist[$top{$afalse}]=$afalse;
327: $topcount++;
328: } elsif ($bottom{$afalse}) {
329: $bottomlist[$bottom{$afalse}]=$afalse;
1.71 albertel 330: $bottomcount++;
1.49 albertel 331: } else {
332: push (@whichfalse,$afalse);
333: }
334: }
1.71 albertel 335: &Apache::lonxml::debug("Answer wants $answer");
1.49 albertel 336: my $truename=$truelist[$whichtrue];
337: my $dosplice=1;
1.72 albertel 338: if ($notrue) {
339: $dosplice=0;
340: &Apache::lonxml::error("There are no true statements available.<br />");
341: }
1.49 albertel 342: #insert the true statement, keeping track of where it wants to be
1.72 albertel 343: if ($Apache::response::foilgroup{$truename.'.location'} eq 'top' && $dosplice) {
1.49 albertel 344: $toplist[$top{$truename}]=$truename;
345: $answer=-1;
346: foreach my $top (reverse(@toplist)) {
347: if ($top) { $answer++;}
348: if ($top eq $truename) { last; }
349: }
350: $dosplice=0;
1.72 albertel 351: } elsif ($Apache::response::foilgroup{$truename.'.location'} eq 'bottom' && $dosplice) {
1.49 albertel 352: $bottomlist[$bottom{$truename}]=$truename;
353: $answer=-1;
354: foreach my $bot (@bottomlist) {
355: if ($bot) { $answer++;}
356: if ($bot eq $truename) { last; }
357: }
358: $answer+=$topcount+$#whichfalse+1;
359: $dosplice=0;
360: } else {
1.71 albertel 361: if ($topcount>0 || $bottomcount>0) {
362: $answer = int(&Math::Random::random_uniform() * ($#whichfalse+1))
363: + $topcount;
1.51 albertel 364: }
1.49 albertel 365: }
1.71 albertel 366: &Apache::lonxml::debug("Answer now wants $answer");
1.49 albertel 367: #add the top items to the top, bottom items to the bottom
368: for (my $i=0;$i<=$#toplist;$i++) {
369: if ($toplist[$i]) { unshift(@whichfalse,$toplist[$i]) }
370: }
371: for (my $i=0;$i<=$#bottomlist;$i++) {
372: if ($bottomlist[$i]) { push(@whichfalse,$bottomlist[$i]) }
1.3 albertel 373: }
1.49 albertel 374: #if the true statement is randomized insert it into the list
375: if ($dosplice) { splice(@whichfalse,$answer,0,$truelist[$whichtrue]); }
1.22 albertel 376: }
1.49 albertel 377: &Apache::lonxml::debug("Answer is $answer");
378: return ($answer,@whichfalse);
1.28 albertel 379: }
380:
381: sub displayfoils {
1.49 albertel 382: my ($target,$max,$randomize)=@_;
1.28 albertel 383: my $result;
384:
1.49 albertel 385: my ($answer,@whichfoils)=&whichfoils($max,$randomize);
1.62 albertel 386: my $part=$Apache::inputtags::part;
387: my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
388: if ( ($target ne 'tex') &&
1.73 albertel 389: &Apache::response::show_answer() ) {
1.28 albertel 390: foreach my $name (@whichfoils) {
1.38 sakharuk 391: if ($target ne 'tex') {
392: $result.="<br />";
1.44 sakharuk 393: } else {
1.61 sakharuk 394: $result.='\item \vskip -2 mm ';
1.38 sakharuk 395: }
1.22 albertel 396: if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
1.60 sakharuk 397: if ($target ne 'tex') { $result.='Correct:<b>'; } else { $result.='Correct: \textbf{';}
1.22 albertel 398: } else {
1.45 albertel 399: $result.='Incorrect:';
400: }
1.46 sakharuk 401: if ($target ne 'tex') {
402: $result.=$Apache::response::foilgroup{$name.'.text'}."</input>\n";
403: } else {
404: $result.=$Apache::response::foilgroup{$name.'.text'};
405: }
1.45 albertel 406: if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
1.60 sakharuk 407: if ($target ne 'tex') { $result.='</b>';} else {$result.='}';}
1.22 albertel 408: }
1.10 albertel 409: }
1.22 albertel 410: } else {
1.64 sakharuk 411: my @alphabet = ('A'..'Z');
1.56 sakharuk 412: my $i = 0;
1.54 sakharuk 413: my $temp=0;
1.22 albertel 414: my $id=$Apache::inputtags::response['-1'];
415: my $part=$Apache::inputtags::part;
416: my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
1.32 albertel 417: my %lastresponse=&Apache::lonnet::str2hash($lastresponse);
1.28 albertel 418: foreach my $name (@whichfoils) {
1.38 sakharuk 419: if ($target ne 'tex') {
1.68 albertel 420: $result.="<br /><input type=\"radio\" name=\"HWVAL_$Apache::inputtags::response['-1']\" value=\"$temp\" ";
1.38 sakharuk 421: if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
422: $result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
423: } else {
1.54 sakharuk 424: if ($Apache::lonhomework::type eq 'exam') {
1.58 albertel 425: $result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs
1.56 sakharuk 426: $i++;
427: } else {
1.59 sakharuk 428: $result .= '\vspace*{-2 mm}\item '.$Apache::response::foilgroup{$name.'.text'};
1.54 sakharuk 429: }
1.38 sakharuk 430: }
1.22 albertel 431: $temp++;
1.10 albertel 432: }
1.22 albertel 433: }
1.44 sakharuk 434: if ($target ne 'tex') { $result.="<br />"; } else { $result.='\vskip 0 mm '; }
1.39 albertel 435: return $result;
1.81 ! albertel 436: }
! 437:
! 438: sub displayallanswers {
! 439: my @names = @{ $Apache::response::foilgroup{'names'} };
! 440:
! 441: my $result=&Apache::response::answer_header('radiobuttonresponse');
! 442: foreach my $name (@names) {
! 443: $result.=&Apache::response::answer_part('radiobuttonresponse',
! 444: $Apache::response::foilgroup{$name.'.value'});
! 445: }
! 446: $result.=&Apache::response::answer_footer('radiobuttonresponse');
! 447: return $result;
1.14 albertel 448: }
449:
1.28 albertel 450: sub displayanswers {
1.49 albertel 451: my ($max,$randomize)=@_;
452: my ($answer,@whichopt) = &whichfoils($max,$randomize);
1.28 albertel 453: my $result=&Apache::response::answer_header('radiobuttonresponse');
454: foreach my $name (@whichopt) {
455: $result.=&Apache::response::answer_part('radiobuttonresponse',
456: $Apache::response::foilgroup{$name.'.value'})
457: }
458: $result.=&Apache::response::answer_footer('radiobuttonresponse');
459: return $result;
460: }
461:
1.14 albertel 462: sub start_conceptgroup {
1.27 albertel 463: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.22 albertel 464: $Apache::radiobuttonresponse::conceptgroup=1;
1.43 albertel 465: %Apache::response::conceptgroup=();
1.26 albertel 466: my $result;
467: if ($target eq 'edit') {
468: $result.=&Apache::edit::tag_start($target,$token);
469: $result.=&Apache::edit::text_arg('Concept:','concept',$token,'50').
1.35 matthew 470: &Apache::edit::end_row().&Apache::edit::start_spanning_row();
1.26 albertel 471: } elsif ($target eq 'modified') {
472: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
473: $safeeval,'concept');
474: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
475: }
476: return $result;
1.14 albertel 477: }
478:
479: sub end_conceptgroup {
1.22 albertel 480: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
481: $Apache::radiobuttonresponse::conceptgroup=0;
1.26 albertel 482: my $result;
1.78 albertel 483: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
484: $target eq 'tex' || $target eq 'analyze') {
485: &Apache::response::pick_foil_for_concept($target,
486: ['value','text','location'],
487: \%Apache::hint::radiobutton,
488: $parstack,$safeeval);
1.26 albertel 489: } elsif ($target eq 'edit') {
490: $result=&Apache::edit::end_table();
1.22 albertel 491: }
1.26 albertel 492: return $result;
493: }
494:
495: sub insert_conceptgroup {
496: my $result="\n\t\t<conceptgroup concept=\"\">".&insert_foil()."\n\t\t</conceptgroup>\n";
497: return $result;
1.1 albertel 498: }
499:
500: sub start_foil {
1.24 albertel 501: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
502: my $result='';
1.77 albertel 503: if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') {
1.27 albertel 504: &Apache::lonxml::startredirection;
505: } elsif ($target eq 'edit') {
506: $result=&Apache::edit::tag_start($target,$token);
507: $result.=&Apache::edit::text_arg('Name:','name',$token);
1.42 albertel 508: $result.=&Apache::edit::select_or_text_arg('Correct Option:','value',
1.28 albertel 509: ['unused','true','false'],$token);
1.51 albertel 510: my $randomize=&Apache::lonxml::get_param('randomize',$parstack,
511: $safeeval,'-3');
1.53 albertel 512: if ($randomize ne 'no') {
1.51 albertel 513: $result.=&Apache::edit::select_arg('Location:','location',
1.52 albertel 514: ['random','top','bottom'],$token);
1.51 albertel 515: }
1.35 matthew 516: $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
1.27 albertel 517: } elsif ($target eq 'modified') {
518: my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
1.48 albertel 519: 'value','name','location');
1.27 albertel 520: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.38 sakharuk 521: }
1.27 albertel 522: return $result;
1.1 albertel 523: }
524:
525: sub end_foil {
1.22 albertel 526: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
527: my $text='';
1.77 albertel 528: if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') {
529: $text=&Apache::lonxml::endredirection;
530: }
531: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') {
1.19 albertel 532: my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
1.18 albertel 533: if ($value ne 'unused') {
1.19 albertel 534: my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
1.48 albertel 535: my $location =&Apache::lonxml::get_param('location',$parstack,$safeeval);
1.27 albertel 536: if (!$name) { $name=$Apache::lonxml::curdepth; }
1.41 albertel 537: if ( $Apache::radiobuttonresponse::conceptgroup
538: && !&Apache::response::showallfoils() ) {
1.18 albertel 539: push @{ $Apache::response::conceptgroup{'names'} }, $name;
540: $Apache::response::conceptgroup{"$name.value"} = $value;
541: $Apache::response::conceptgroup{"$name.text"} = $text;
1.48 albertel 542: $Apache::response::conceptgroup{"$name.location"} = $location;
1.18 albertel 543: } else {
544: push @{ $Apache::response::foilgroup{'names'} }, $name;
545: $Apache::response::foilgroup{"$name.value"} = $value;
546: $Apache::response::foilgroup{"$name.text"} = $text;
1.48 albertel 547: $Apache::response::foilgroup{"$name.location"} = $location;
1.18 albertel 548: }
549: }
1.4 albertel 550: }
1.1 albertel 551: return '';
552: }
553:
1.27 albertel 554: sub insert_foil {
555: return '
556: <foil name="" value="unused">
557: <startouttext />
558: <endouttext />
559: </foil>';
560: }
1.1 albertel 561: 1;
562: __END__
563:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to radiobuttonresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework