Subversion Repositories wimsdev

Rev

Rev 1094 | Rev 3060 | 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/geogebra2wims.js"></script>
  3. <script type="text/javascript">
  4.     var list_of_things=new Array();
  5.     !if $list_of_things=$empty
  6.         !! A list of all possible object names
  7.         list_of_things=['text','point','line','segment','circle','function','polygon','conic','ellipse','polynomial','vector','number','angle'];
  8.     !else
  9.         list_of_things=$list_of_things
  10.     !endif
  11.     function sendanswer(){
  12.         var reply=geogebra2wims(list_of_things);
  13.         reply=encodeURIComponent( reply );
  14.         var t=confirm(" $send ?");
  15.         if(t==true){
  16.             var URL = '$wims_ref_name?session=$session&+module=$module&+cmd=reply&+reply$n='+reply ;
  17.             document.location.href = URL;document.getElementById("ggbApplet").destroy();
  18.         }
  19.     }
  20.  
  21.     function dontknow(){
  22.         var t=confirm(" $dontknow ?");
  23.         if(t==true){
  24.             URL = '$wims_ref_name?session=$session&+module=$module&+cmd=reply&+reply$n=%3F' ;
  25.             document.location.href = URL;document.getElementById("ggbApplet").destroy();
  26.         }                                                                                                                                                                
  27.     }
  28. </script>
  29. <p align="center">
  30. <table summary="" bgcolor="$bgcolor1" cellpadding="$cellpadding" cellspacing="$cellspacing">
  31.     <tr>
  32.     <td valign="top" align="left">
  33.         $(question$n)
  34.         !if $(formula$n) != $empty
  35.             <br>
  36.             !insmath $(formula$n)
  37.         !endif
  38.         !if $exotext != $empty
  39.             <br>
  40.             $exotext
  41.         !endif
  42.         !if $inputs>0
  43.             <table summary="">
  44.                 <form name="sendtext" action="">
  45.                     !for i=1 to $inputs
  46.                         <tr>
  47.                         <td>
  48.                             $(inputtext$i)
  49.                         </td>
  50.                         <td>
  51.                             $m_rightarrow
  52.                         </td>
  53.                         <td>
  54.                         !if $wims_user=supervisor
  55.                             !set voorzeggen=!item $i of $(answer$n)
  56.                             <input  style=$textareastyle name="myvar1" size=$cols value=$voorzeggen>
  57.                         !else
  58.                             <input  style=$textareastyle name="myvar1" size=$cols value="$myvar1">
  59.                         !endif
  60.                         </td>
  61.                         </tr>
  62.                     !next i
  63.                 </form>
  64.             </table>
  65.         !endif
  66.     </td>
  67.     !if $XSIZE>640
  68.     </tr><tr>
  69.     !endif
  70.     <td  valign="top">
  71.         !if $width=$empty
  72.             !set width=640
  73.             !set height=480
  74.         !endif
  75.         <p align="center">
  76.             <applet id="ggbApplet" name="ggbApplet" code="geogebra.GeoGebraApplet" codebase="java/geogebra" archive="geogebra.jar" width=$width height=$height>
  77.                 <param name="language" value="$taal">
  78.                 <param name="filename" value="../../$module_dir/$ggb">
  79.                 <param name="showToolBar"  value="$showToolBar">
  80.                 <param name="showMenuBar"  value="$showMenuBar">
  81.                 <param name="framePossible" value="$framePossible">
  82.                 <param name="customToolBar" value=$customToolBar>
  83.                 <param name="showAlgebraInput" value="$showAlgebraInput">
  84.                 $nojava
  85.             </applet>    
  86.             <script type="text/javascript">
  87.                 $appletcommand
  88.             </script>
  89.         </p>
  90.     </td>
  91.     </tr>
  92. </table>
  93. <table summary="">
  94.     <tr>
  95.     <th>
  96.         <input type=button style=$mybuttonstyle onclick="sendanswer();" name="but1" value="$send">
  97.     </th>
  98.     <th>
  99.         <input type=button style=$mybuttonstyle onclick="dontknow();" name="but2" value="$dontknow">
  100.     </th>
  101.     </tr>
  102. </table>
  103. </p>
  104.  
  105.