Subversion Repositories wimsdev

!! display log activity of participant duser

!! check valid duser

!if $wims_user!=supervisor

  duser=$wims_user

!else

  !readproc adm/class/authchars

  duser=!text select char $char_login in $duser

  !readproc adm/class/userdef ,$wims_class,$duser

  !read $userdef

  !if $user_exists!=yes

    job=userlist

    !changeto $job.proc

  !endif

  name_modtitle=$name_modtitle ( $user_firstname $user_lastname )

!endif

nbwork=!recordcnt wimshome/log/classes/$wims_class/swork/log.$duser

minwork=$[max(1,$nbwork-50)]

!read proc/listwork.proc $duser

nb=!linecnt $exolist

!if $nb!=0

 data=!word 2 of $cfdata

 data=$data,

 !for k=1 to $nb

   l=!line $k of $exolist

   !readproc proc/exoscore.proc $(l[1]),$(l[2]),$duser

   data=!append item $(l[1]) $(l[2]) $[$(l[3])/100] $score_out to $data

 !next k

!else

  data=$empty

!endif