Subversion Repositories wimsdev

Rev

Rev 5755 | Rev 5874 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2788 guerimand 1 
!! this process allow to generate a list (echoose) of series of exercices taken in active sheet
2 
!!
3 
!! to work this script need
4 
!! variables defined :
5 
!! asheets : list of active sheets
6 
!! echoose : list of actual series selected
7 
!! language variable to be defined
8 
!! name_All, name_selectsheet
9 
!! add to main.phtml before header
10 
!! !let js=!record 0 of js/chooselist.js
11 
!! !let wims_html_header=!append line $js to $wims_html_header
12 
!! in var.def echoose and ltsheets need to be define to any
13 
!!
14 
!! output
15 
!! variable echoose contain list of series selected format $sheet.$exo
16 
!!
17 
 
18 
  $name_selectsheet
19 
  <select name="ltsheets" onchange="submit()" value="$ltsheets">
20 
  !let ltsheets=!listintersect $asheets and $ltsheets
21 
  !if $ltsheets=$empty
22 
   !let ltsheets=$asheets
23 
  !endif
24 
  !if $ltsheets=$asheets
5839 bpr 25 
   <option value="$asheets" selected="selected">$name_All</option>
2788 guerimand 26 
  !else
27 
   <option value="$asheets">$name_All</option>  
28 
  !endif
29 
  !for k in $asheets
30 
   !if $ltsheets=$k
5839 bpr 31 
    <option value="$k" selected="selected">
2788 guerimand 32 
   !else
33 
    <option value="$k">  
34 
   !endif
35 
    !let t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
36 
    $k :
37 
    !line 3 of $t
38 
   </option>
39 
  !next k
40 
 </select>
2855 bpr 41 
!let checked=$empty
42 
!set  select_option=style="width: 400px;" multiple="multiple" size="15"
43 
<center><table border="0" cellpadding="10" cellspacing="0">
44 
 <tr>
45 
  <td valign="top">
46 
   <select  $select_option name="select_sheet1" ondblclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'add')">
2788 guerimand 47 
  !for i in $asheets
48 
   !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
49 
   !for j=1 to $t
50 
    !if $i.$j isitemof $echoose
51 
     !set r=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$i
52 
     !distribute line $r into r1,r2,r3,r4,r5,r6
2855 bpr 53 
     !let checked=!append line <option value="$i.$j">$i.$j : $r5</option> to $checked
2788 guerimand 54 
    !else
55 
     !if $i isitemof $ltsheets
56 
      !set r=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$i
57 
      !distribute line $r into r1,r2,r3,r4,r5,r6
2855 bpr 58 
      <option value="$i.$j">$i.$j : $r5 </option>
2788 guerimand 59 
     !endif
60 
    !endif
61 
   !next j
62 
  !next i
2855 bpr 63 
  </select>
64 
  </td>
65 
  <td align="center">
5755 bpr 66 
   <input name="add" value=" &gt;&gt; " type="button" onclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'add'); return false;"/>
5696 bpr 67 
   <br/>
5755 bpr 68 
   <input name="remove" value=" &lt;&lt; " type="button" onclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'remove'); return false;"/>
2855 bpr 69 
  </td>
70 
  <td valign="top">
71 
   <select $select_option name="select_sheet2" ondblclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'remove')">$checked</select>
72 
   <select style="overflow: hidden; visibility: hidden; width: 1px; height: 0;" name="echoose" multiple="multiple" size="10">$checked</select>
73 
  </td>
74 
 </tr>
75 
</table></center>