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