Subversion Repositories wimsdev

Rev

Rev 5874 | Rev 12784 | 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 
 
12555 bpr 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
25 
  <option value="$asheets" selected="selected">$name_All</option>
26 
!else
27 
  <option value="$asheets">$name_All</option>
28 
!endif
29 
!for k in $asheets
30 
  !if $ltsheets=$k
31 
    <option value="$k" selected="selected">
2788 guerimand 32 
  !else
12555 bpr 33 
    <option value="$k">
2788 guerimand 34 
  !endif
12555 bpr 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
12555 bpr 42 
!set  select_option=style="width: 400px;" multiple="multiple" size="15"
5874 bpr 43 
<table class="wimscenter wimsnoborder">
2855 bpr 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')">
12555 bpr 47 
!for i in $asheets
48 
  !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
49 
  !for j=1 to $t
2788 guerimand 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
12555 bpr 53 
      !let checked=!append line <option value="$i.$j">$i.$j : $r5</option> to $checked
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
58 
        <option value="$i.$j">$i.$j : $r5 </option>
59 
      !endif
2788 guerimand 60 
    !endif
12555 bpr 61 
  !next j
62 
!next i
2855 bpr 63 
  </select>
64 
  </td>
5874 bpr 65 
  <td>
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>
5874 bpr 75 
</table>