Subversion Repositories wimsdev

class_total=!recordcnt wimshome/log/classes/.index
site_total=!defof usercnt in wimshome/log/classes/.stat
!if $site_total=$empty
 site_total=0
 !for c=1 to $class_total
  l=!record $c of wimshome/log/classes/.index
  l=!item 1 of $l
  l=!recordcnt wimshome/log/classes/$l/.userlist
  site_total=$[$site_total+$l]
 !next c
!endif
site_dispo=$[$wims_user_limit-$site_total]
!if NaN isin $site_dispo
 site_dispo=0
!endif

ur_c=!translate internal / to , in $wims_class
ur_cnt=!itemcnt $ur_c
ur_dispo=$site_dispo
!for i=1 to $ur_cnt
 ur_t=!item 1 to $i of $ur_c
 ur_t=!translate internal , to / in $ur_t
 ur_t=!nospace $ur_t
 ur_total=!recordcnt wimshome/log/classes/$ur_t/.userlist
 ur_limit=!defof class_limit in wimshome/log/classes/$ur_t/.def
 !default ur_limit=$wims_class_user_limit
# ur_limit=$[min($ur_limit,$wims_class_user_limit)]
 ur_dispo=$[min($ur_dispo,$ur_limit-$ur_total)]
!next i

userremain=$[max(0,min($site_dispo,$ur_dispo))]
dispo=$userremain