Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | 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
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
11
!endif
12
site_dispo=$[$wims_user_limit-$site_total]
13
!if NaN isin $site_dispo
14
 site_dispo=0
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
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)]
29
!next i
30
 
31
userremain=$[max(0,min($site_dispo,$ur_dispo))]
32
dispo=$userremain
33