Subversion Repositories wimsdev

Rev

Rev 837 | Rev 1158 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. <script type="text/javascript"  src="$jsdir/../lang/remarks.$taal.js"></script>
  2. <script type="text/javascript"  src="$jsdir/precheck.js"></script>
  3. <script type="text/javascript">
  4.     var URL;
  5.  
  6.     function dontknow(){
  7.         t=confirm(r0+"\n$dontknow ?");
  8.         if(t==true){
  9.             URL = '$wims_ref_name?session=$session&+module=$module&+cmd=reply&+reply$n=%3F' ;
  10.             document.location.href = URL;if(document.getElementById("MathView")){document.getElementById("MathView").destroy();}
  11.         }
  12.     }
  13.  
  14.     function sendanswer(){
  15.     !! reply is cosmetisch : total is the antwoord...
  16.         var v;var input;var reply="" ;var total=new Array;
  17.         var ml;var t1;var t2;var applet=0;
  18.         if(document.getElementById("MathView")){applet=1;}
  19.         if(applet==1){
  20.             !! using the inputapplet
  21.             input=document.getElementById("MathView").getLinear();input=input+'';
  22.             v=input.length;if(v==0){alert(r1+"\ 1");return;}if(v>100){alert(r2); return;}
  23.             if(input.indexOf('error')!=-1){alert(input);return;}
  24.             input=arrows(input,2,"","");if(input=="error"){return;}
  25.             input=nthroot(input);if(input=="error"){return;}
  26.             if(input.indexOf(',')!=-1){alert(r4);return;}
  27.             if(check_f(input)==0){return;}if(check_o(input)==0){return;}
  28.             if(check_log_NaN(input)==0){return;}if(check_sqrt_NaN(input)==0){return;}
  29.             input=science(input);if(input=="error"){return;}
  30.             if(check_x(input)==0){return;}
  31.             reply=input+"\n";t1=input.indexOf("[");
  32.             if(t1 !=- 1){
  33.                 if(input.indexOf("sqrt[")!=-1){input=specialroot(input);if(input=="error"){return;}}
  34.                 if(input.indexOf("log[")!=-1){input=speciallog(input);if(input=="error"){return;}}
  35.                 t1=input.indexOf("[");
  36.                 if(t1!=-1){alert(r13);return;}
  37.             }
  38.             input=input.replace(/#/g,' ');
  39.             total[0]=input;
  40.         }
  41.        
  42.         if(document.mydefaultform){
  43.             ml=document.mydefaultform.elements.length;
  44.             var inputfieldnumber=0;
  45.             for(z=0;z<ml;z++){
  46.                 if(document.mydefaultform[z].id=="myinput"){
  47.                     input=document.mydefaultform[z].value;
  48.                     v=input.length;if (v==0){var qu=z+1; alert(r1+"\ "+qu);return;}
  49.                     input=nthroot(input);if(input=="error"){return;}
  50.                     if(input.indexOf(',')!=-1){alert(r4);return;}
  51.                     input=arrows(input,2,"","");if(input=="error"){return;}
  52.                     if(check_f(input)==0){return;}if(check_o(input)==0){return;}
  53.                     if(check_log_NaN(input)==0){return;}if(check_sqrt_NaN(input)==0){return;}
  54.                     input=science(input);if(input=="error"){return;}
  55.                     if(check_x(input)==0){return;}
  56.                     reply=reply+input+"\n";t1=input.indexOf("[");
  57.                     if(t1 !=- 1){
  58.                         if(input.indexOf("sqrt[")!=-1){input=specialroot(input);if(input=="error"){return;}}
  59.                         if(input.indexOf("log[")!=-1){input=speciallog(input);if(input=="error"){return;}}
  60.                         t1=input.indexOf("[");if(t1!=-1){alert(r13);return;}
  61.                     }
  62.                     input=input.replace(/#/g,' ');
  63.                     total[inputfieldnumber+applet]=input;
  64.                     inputfieldnumber=inputfieldnumber+1;
  65.                 }
  66.             }
  67.         }
  68.         v=total.length;if(v==0){alert(r1);return;}
  69.         t=confirm(r0+"\n"+reply);
  70.         if(t==true){total=encodeURIComponent(total);URL = '$wims_ref_name?session=$session&+module=$module&+cmd=reply&+reply$n='+total ;document.location.href = URL;if(applet==1){document.getElementById("MathView").destroy();}}
  71.     }
  72. </script>
  73.  
  74.  
  75. <p align="center">
  76.     <table bgcolor=$bgcolor1 cellpadding=$cellpadding cellspacing=$cellspacing>
  77.         <tr>
  78.         <td valign="top" align="left" padding="10">
  79.             !if $(question$n) != $empty
  80.                 $(question$n)
  81.                 <br>
  82.             !endif
  83.             !if $(formula$n) != $empty
  84.                 !if $embed=1
  85.                     !if $mathview = 3
  86.                         !!! hmmm
  87.                         <center>
  88.                             !insmath $(formula$n)
  89.                         </center>
  90.                         <br>
  91.                     !else
  92.                         <table>
  93.                             <tr>
  94.                             <th>
  95.                                 !insmath $(formula$n)
  96.                             </th>
  97.                             <th>
  98.                                 &nbsp;&nbsp; $m_rightarrow &nbsp;&nbsp;
  99.                             </th>
  100.                             <th>
  101.                                 !if $wims_user=supervisor
  102.                                     <textarea id="myinput" style=$textareastyle wrap=off cols=$cols rows=$rows name="reply">$(answer$n)</textarea>
  103.                                 !else
  104.                                     <textarea  id="myinput" style=$textareastyle wrap=off cols=$cols rows=$rows name="reply">$(reply$n)</textarea>
  105.                                 !endif
  106.                             </th>
  107.                             </tr>
  108.                         </table>
  109.                     !endif
  110.                 !else
  111.                     <center>
  112.                         !insmath $(formula$n)
  113.                     </center>
  114.                     <br>
  115.                 !endif
  116.             !endif
  117.             !if $exotext != $empty
  118.                 <br>
  119.                 $exotext
  120.             !endif
  121.         </td>
  122.     !if $image=1
  123.         !if $XSIZE > 450 or $mathview=3
  124.             !! arbitrary value to produce a better layout ...
  125.         </tr><tr>
  126.         !endif
  127.         <td  valign="top" align="center">
  128.             !if $draw=1
  129.             !! for fly
  130.                 !set insdraw_size=$XSIZE,$YSIZE
  131.                 !insdraw $(image$n)
  132.             !endif
  133.             !if $plot=1
  134.                 !! for GNUplot
  135.                 !set insplot_set=$(image_settings$n)
  136.                 !insplot $(image$n)
  137.             !endif
  138.         </td>
  139.     !endif
  140.     !if $applet=1
  141.         !if $XSIZE > 450 or $mathview=3
  142.             !! arbitrary value to produce a better layout ...
  143.         </tr><tr>
  144.         !endif
  145.         <td  valign="top" align="center">
  146.             $(object$n)
  147.         </td>
  148.     !endif
  149. !if $embed != 1 or $[$embed+$mathview]=4
  150.     !if $XSIZE > 450 or $mathview=3
  151.         </tr><tr>
  152.     !endif
  153.         <td valign="top" align="center">
  154.             !if $mathview=3
  155.                 <table $paperbg width="580">
  156.                     <tr>
  157.                     <th>
  158.                         <applet id="MathView" code="MathView.class" codebase="$appletdir" archive="MathView.jar" width="580" height="280">
  159.                             <script language="javascript" type="text/javascript">
  160.                                 var thisbackground=document.bgColor;
  161.                                 if(thisbackground){var obj="\<param name=bgcolor value="+thisbackground+"\>"}else{var obj="\<param name=bgcolor value=#ffffff\>"}
  162.                                 document.write(obj.toString());
  163.                             </script>
  164.                             <param name="largefont" value="$largefont">
  165.                         !if $wims_user=supervisor
  166.                             <param name="oldreply" value="
  167.                             !nospace $(answer$n)
  168.                             ">
  169.                         !else
  170.                             <param name="oldreply" value="
  171.                             !nospace $(reply$n)
  172.                             ">
  173.                         !endif
  174.                             <param name="smallfont" value="$smallfont">
  175.                             <param name="helptext" value="$applettext">
  176.                             <param name="wimsvars" value="$varlist">
  177.                             !! declare varlist=x,y,z,s    or varlist=x y z s
  178.                         !if $mathviewpanel=$empty
  179.                             <param name="my_panel" value="$module_title:and:or:sqrt():+:-:*:/">
  180.                         !else
  181.                             <param name="my_panel" value="$mathviewpanel">
  182.                         !endif
  183.                         $nojava
  184.                         </applet>
  185.                     </th>
  186.                     </tr>
  187.                 </table>
  188.             !else
  189.                 !if $inputs=1
  190.                     !if $inputtext1!=$empty
  191.                         $inputtext1:<br>
  192.                     !endif
  193.                     !if $wims_user=supervisor
  194.                         <textarea  id="myinput" style=$textareastyle wrap=off cols=$cols rows=$rows name="reply">$(answer$n)</textarea>
  195.                     !else
  196.                         <textarea  id="myinput" style=$textareastyle wrap=off cols=$cols rows=$rows name="reply">$(reply$n)</textarea>
  197.                     !endif
  198.                 !else
  199.                     !if $inputs>1
  200.                         <table cellpadding="1">
  201.                             <tr>
  202.                         !for p=1 to $inputs
  203.                             <td>
  204.                                 $(inputtext$p)
  205.                             </td>
  206.                             <td>
  207.                                 $m_rightarrow
  208.                             </td>
  209.                             <td>
  210.                             !if $wims_user=supervisor
  211.                                 !set deelantwoord=!item $p of $(answer$n)
  212.                             !else
  213.                                 !set deelantwoord=!item $p of $(reply$n)
  214.                             !endif
  215.                                 <input id="myinput" style=$textareastyle  size="$cols" name="reply" value="$deelantwoord">
  216.                             </td>
  217.                             </tr><tr>
  218.                         !next p
  219.                         </table>
  220.                     !endif
  221.                 !endif
  222.             !endif
  223.         </td>
  224. !endif
  225.         </tr>
  226.     </table>
  227.     <table>
  228.         <tr>
  229.     !if $inputs !=0
  230.         <th>
  231.             <input type=button style="$mybuttonstyle" onclick="sendanswer();" value="$send">
  232.         </th>
  233.     !endif
  234.         <th>
  235.             <input type=button style="$mybuttonstyle" onclick="dontknow();" name="but2" value="$dontknow">
  236.         </th>
  237.         </tr>
  238.     </table>
  239. </p>
  240. !exit
  241.