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=" >> " 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=" << " 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> |