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