Subversion Repositories wimsdev

!! process the data for userlist

!set typen=!defof class_typename in wimshome/log/classes/$wims_class/.def
!if $usercnt=0
  !exit
!endif
fileuserlist=wimshome/sessions/$wims_session/userlist_usermanage
Fileuserlist=$wims_home/sessions/$wims_session/userlist_usermanage
!readproc adm/class/mkcomment name
namecomment=$scriptout

!if $cmd!=resume
  !sh rm -f $Fileuserlist
  !! build ligne for each participant
  !for i=1 to $usercnt
    !reset ldata
    !set uu=!record $i of wimshome/log/classes/$wims_class/.userlist
    !distribute items $uu into bl,bl,uu
    !reset user_exists,user_email,user_regnum,user_external_auth,user_vars,user_comments$namecomment,user_comments
    !readproc adm/class/userdef classes,$wims_class,$uu
    !readdef $userdef
    !readproc adm/vfilter/uservarfilter.proc $userdef
    ldata=$name_studentloc
    ldata=$ldata,$uu
    !for k in email,regnum,external_auth
      ldata=$ldata,$(user_$(k))
    !next k
    lt=!defof user_lastconnect in wimshome/log/classes/$wims_class/.users/$uu
    !if $lt!=$empty
      !read date.phtml $lt,noprint
      ldata=$ldata,$slib_out,$lt
    !else
      ldata=$ldata,,
    !endif
    !if $nbtechvar>0
      val=!column 2 of $user_vars
      ldata=$ldata,$val
      !! seems not to be useful : user_vars has exactly nbtechvar lines
      !!      tmp=!linecnt $user_vars
      !!      !for v = 1 to $[$nbtechvar-$tmp]
      !!        ldata=$ldata,
      !!      !next v
    !endif
    !readproc adm/class/mkcomment val
    tmp=!replace internal , by , in $scriptout
    ldata=$ldata,$tmp
    !appendfile $fileuserlist :$ldata
  !next i
!endif

tmp=!record 1 of $fileuserlist
lastri=!itemcnt $tmp

!if $tri!=$empty
  type=!char 1 of $tri
  !if $type=U
    type=$empty
  !else
    type=r
  !endif
  num=!char 2 to -1 of $tri
  !bound num between 1 and $lastri default $empty
  !if $num!=$empty
    !sh cat $Fileuserlist | sort -t, -k$num$type,$num > $(Fileuserlist)2;\
mv $(Fileuserlist)2 $Fileuserlist
  !endif
  !reset tri
!endif