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