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 | |||
| 5 | !! --- preparing data for js/chooselist |
||
| 6 | !! --- maybe problem if too many user in a class (variable data too long) to be solved |
||
| 16481 | guerimand | 7 | wims_chooselist_select=wimshome/sessions/$wims_session/chooselist.list |
| 8 | wims_chooselist_checked=wimshome/sessions/$wims_session/chooselist.select |
||
| 9 | wims_chooselist_data=0 |
||
| 10 | !sh rm -f $wims_home/sessions/$wims_session/chooselist.select $wims_home/sessions/$wims_session/chooselist.list 2>/dev/null; |
||
| 16479 | guerimand | 11 | !for lu =1 to $nb_user |
| 12 | us_=!record $lu of wimshome/sessions/$wims_session/.userlist_mail |
||
| 13 | !if $lu notitemof $select_user |
||
| 16481 | guerimand | 14 | !fileappend $wims_chooselist_select <option value="$lu">$(us_[1]) $(us_[2]) ($(us_[3]))</option> |
| 15 | !increase wims_chooselist_data |
||
| 16479 | guerimand | 16 | !else |
| 16481 | guerimand | 17 | !fileappend $wims_chooselist_checked <option value="$lu">$(us_[1]) $(us_[2]) ($(us_[3]))</option> |
| 16479 | guerimand | 18 | !endif |
| 19 | !next lu |
||
| 16481 | guerimand | 20 | !for type in list,select |
| 21 | test=!fileexists wimshome/sessions/$wims_session/chooselist.$type |
||
| 22 | !if $test!=yes |
||
| 23 | !writefile wimshome/sessions/$wims_session/chooselist.$type <option value=""></option> |
||
| 24 | !endif |
||
| 25 | !next type |
||
| 16479 | guerimand | 26 | |
| 27 | local_js=<script src="scripts/js/chooselist.js"></script> |