Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 16479 | guerimand | 1 | |
| 2 | !readproc adm/vfilter/listvarfilter.proc |
||
| 3 | !readproc adm/vfilter/varfilter proc |
||
| 4 | |||
| 16482 | guerimand | 5 | !default selfsend=0 |
| 6 | !default sendotherteacher=0 |
||
| 7 | |||
| 16479 | guerimand | 8 | !! --- preparing data for js/chooselist |
| 9 | !! --- maybe problem if too many user in a class (variable data too long) to be solved |
||
| 16481 | guerimand | 10 | wims_chooselist_select=wimshome/sessions/$wims_session/chooselist.list |
| 11 | wims_chooselist_checked=wimshome/sessions/$wims_session/chooselist.select |
||
| 12 | wims_chooselist_data=0 |
||
| 13 | !sh rm -f $wims_home/sessions/$wims_session/chooselist.select $wims_home/sessions/$wims_session/chooselist.list 2>/dev/null; |
||
| 16479 | guerimand | 14 | !for lu =1 to $nb_user |
| 15 | us_=!record $lu of wimshome/sessions/$wims_session/.userlist_mail |
||
| 16 | !if $lu notitemof $select_user |
||
| 16481 | guerimand | 17 | !fileappend $wims_chooselist_select <option value="$lu">$(us_[1]) $(us_[2]) ($(us_[3]))</option> |
| 18 | !increase wims_chooselist_data |
||
| 16479 | guerimand | 19 | !else |
| 16481 | guerimand | 20 | !fileappend $wims_chooselist_checked <option value="$lu">$(us_[1]) $(us_[2]) ($(us_[3]))</option> |
| 16479 | guerimand | 21 | !endif |
| 22 | !next lu |
||
| 16481 | guerimand | 23 | !for type in list,select |
| 24 | test=!fileexists wimshome/sessions/$wims_session/chooselist.$type |
||
| 25 | !if $test!=yes |
||
| 26 | !writefile wimshome/sessions/$wims_session/chooselist.$type <option value=""></option> |
||
| 27 | !endif |
||
| 28 | !next type |
||
| 16479 | guerimand | 29 | |
| 30 | local_js=<script src="scripts/js/chooselist.js"></script> |