Subversion Repositories wimsdev

Rev

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

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