[system] / trunk / webwork / system / courseScripts / PGbasicmacros.pl Repository:
ViewVC logotype

Diff of /trunk/webwork/system/courseScripts/PGbasicmacros.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 187 Revision 188
223 if ($answer_value =~ /\0/ ) { 223 if ($answer_value =~ /\0/ ) {
224 my @answers = split("\0", $answer_value); 224 my @answers = split("\0", $answer_value);
225 $answer_value = shift(@answers); # use up the first answer 225 $answer_value = shift(@answers); # use up the first answer
226 $main::rh_sticky_answers{$name}=\@answers; # store the rest 226 $main::rh_sticky_answers{$name}=\@answers; # store the rest
227 $answer_value= '' unless defined($answer_value); 227 $answer_value= '' unless defined($answer_value);
228 } elsif (ref($answer_value) eq 'ARRAY') {
229 my @answers = @{ $answer_value};
230 $answer_value = shift(@answers); # use up the first answer
231 $main::rh_sticky_answers{$name}=\@answers; # store the rest
232 $answer_value= '' unless defined($answer_value);
228 } 233 }
229 $name = RECORD_ANS_NAME($name); 234 $name = RECORD_ANS_NAME($name);
230 MODES( 235 MODES(
231 TeX => "\\mbox{\\parbox[t]{10pt}{\\hrulefill}}\\hrulefill\\quad ", 236 TeX => "\\mbox{\\parbox[t]{10pt}{\\hrulefill}}\\hrulefill\\quad ",
232 Latex2HTML => qq!\\begin{rawhtml}\n<INPUT TYPE=TEXT SIZE=$col NAME=\"$name\" VALUE = \"\">\n\\end{rawhtml}\n!, 237 Latex2HTML => qq!\\begin{rawhtml}\n<INPUT TYPE=TEXT SIZE=$col NAME=\"$name\" VALUE = \"\">\n\\end{rawhtml}\n!,
233 HTML => "<INPUT TYPE=TEXT SIZE=$col NAME=\"$name\" VALUE = \"$answer_value\">\n" 238 HTML => "<INPUT TYPE=TEXT SIZE=$col NAME=\"$name\" VALUE = \"$answer_value\">\n"

Legend:
Removed from v.187  
changed lines
  Added in v.188

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9