[system] / trunk / pg / macros / PGbasicmacros.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/PGbasicmacros.pl

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

Revision 2291 Revision 2292
296 $tcol = $tcol < 40 ? $tcol : 40; ## get min 296 $tcol = $tcol < 40 ? $tcol : 40; ## get min
297 297
298 MODES( 298 MODES(
299 TeX => "\\mbox{\\parbox[t]{${tcol}ex}{\\hrulefill}}", 299 TeX => "\\mbox{\\parbox[t]{${tcol}ex}{\\hrulefill}}",
300 Latex2HTML => qq!\\begin{rawhtml}<INPUT TYPE=TEXT SIZE=$col NAME=\"$name\" VALUE = \"\">\\end{rawhtml}!, 300 Latex2HTML => qq!\\begin{rawhtml}<INPUT TYPE=TEXT SIZE=$col NAME=\"$name\" VALUE = \"\">\\end{rawhtml}!,
301 HTML => qq!<INPUT TYPE=TEXT SIZE=$col NAME="$name" VALUE = "$answer_value">\n 301 HTML => qq!<INPUT TYPE=TEXT SIZE=$col NAME="$name" VALUE="$answer_value">!.
302 <INPUT TYPE=HIDDEN NAME="previous_$name" VALUE = "$answer_value"> 302 qq!<INPUT TYPE=HIDDEN NAME="previous_$name" VALUE="$answer_value">!
303 !
304
305 ); 303 );
306} 304}
307 305
308sub NAMED_ANS_RULE_OPTION { # deprecated 306sub NAMED_ANS_RULE_OPTION { # deprecated
309 &NAMED_ANS_RULE_EXTENSION; 307 &NAMED_ANS_RULE_EXTENSION;
1525 # for my version of ImageGenerator 1523 # for my version of ImageGenerator
1526 #$out = $envir->{'imagegen'}->add($in, $mode); 1524 #$out = $envir->{'imagegen'}->add($in, $mode);
1527 } elsif ($displayMode eq "HTML_img") { 1525 } elsif ($displayMode eq "HTML_img") {
1528 $out = math2img($in, $mode); 1526 $out = math2img($in, $mode);
1529 } elsif ($displayMode eq "HTML_jsMath") { 1527 } elsif ($displayMode eq "HTML_jsMath") {
1528 $in =~ s/</&lt;/g; $in =~ s/>/&gt;/g;
1530 $out = '<SPAN CLASS="math">'.$in.'</SPAN>' if $mode eq "inline"; 1529 $out = '<SPAN CLASS="math">'.$in.'</SPAN>' if $mode eq "inline";
1531 $out = '<DIV CLASS="math">'.$in.'</DIV>' if $mode eq "display"; 1530 $out = '<DIV CLASS="math">'.$in.'</DIV>' if $mode eq "display";
1532 } elsif ($displayMode eq "HTML_asciimath") { 1531 } elsif ($displayMode eq "HTML_asciimath") {
1533 $out = "`$in`" if $mode eq "inline"; 1532 $out = "`$in`" if $mode eq "inline";
1534 $out = '<DIV ALIGN="CENTER">`'.$in.'`</DIV>' if $mode eq "display"; 1533 $out = '<DIV ALIGN="CENTER">`'.$in.'`</DIV>' if $mode eq "display";

Legend:
Removed from v.2291  
changed lines
  Added in v.2292

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9