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>