Subversion Repositories wimsdev

!bound bst_num between 1 and 200 default 10
!readproc scripts/ccaccount.proc

test=!record 0 of wimshome/s2/$wims_session/$bst_since
nbcls=!linecnt $test

test=!line 1 to $bst_num of $test
sccnt=0
clcnt=0
!if $test=$empty
 !exit
!endif

n=!linecnt $test
!for i=1 to $n
 l=!line $i of $test
 !distribute item $l into c,t
 l=!defof class_lang\
class_supervisor\
class_email\
class_creation\
class_expiration\
class_description\
class_institution\
class_type in wimshome/log/classes/$c/.def
 nbuser=!recordcnt wimshome/log/classes/$c/.userlist
 !distribute line $l into lg,sup,mail,cre,exp,des,inst,ty
 t=$[floor(($t+30)/60)]
 don=$c,$lg,$sup,$mail,$cre,$exp,$des,$inst,$t,$nbuser
 !if $ty isin 24
  !advance sccnt
  sclasses=!append line $don to $sclasses
 !else
  !advance clcnt
  classes=!append line $don to $classes
 !endif
!next i