Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | class_total=!recordcnt wimshome/log/classes/.index |
| 2 | site_total=!defof usercnt in wimshome/log/classes/.stat |
||
| 3 | !if $site_total=$empty |
||
| 12555 | bpr | 4 | site_total=0 |
| 5 | !for c=1 to $class_total |
||
| 6 | l=!record $c of wimshome/log/classes/.index |
||
| 7 | l=!item 1 of $l |
||
| 8 | l=!recordcnt wimshome/log/classes/$l/.userlist |
||
| 9 | site_total=$[$site_total+$l] |
||
| 10 | !next c |
||
| 20 | reyssat | 11 | !endif |
| 12 | site_dispo=$[$wims_user_limit-$site_total] |
||
| 13 | !if NaN isin $site_dispo |
||
| 12555 | bpr | 14 | site_dispo=0 |
| 20 | reyssat | 15 | !endif |
| 16 | |||
| 17 | ur_c=!translate internal / to , in $wims_class |
||
| 18 | ur_cnt=!itemcnt $ur_c |
||
| 19 | ur_dispo=$site_dispo |
||
| 20 | !for i=1 to $ur_cnt |
||
| 12555 | bpr | 21 | ur_t=!item 1 to $i of $ur_c |
| 22 | ur_t=!translate internal , to / in $ur_t |
||
| 23 | ur_t=!nospace $ur_t |
||
| 24 | ur_total=!recordcnt wimshome/log/classes/$ur_t/.userlist |
||
| 25 | ur_limit=!defof class_limit in wimshome/log/classes/$ur_t/.def |
||
| 26 | !default ur_limit=$wims_class_user_limit |
||
| 27 | # ur_limit=$[min($ur_limit,$wims_class_user_limit)] |
||
| 28 | ur_dispo=$[min($ur_dispo,$ur_limit-$ur_total)] |
||
| 20 | reyssat | 29 | !next i |
| 30 | |||
| 31 | userremain=$[max(0,min($site_dispo,$ur_dispo))] |
||
| 32 | dispo=$userremain |