Rev 5165 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!if $datacnt<1
!exit
!endif
!if $cn_user=supervisor
deffile=supervisor
!else
deffile=.users/$cn_user
!endif
deffile=classes/$wims_class/$deffile
!if user notwordof $wims_prefix
wims_prefix=$wims_prefix user
!endif
!readdef $deffile
!for i=1 to $datacnt
l_=!line $i of $cn_data
l_=!translate = to $\
$ in $l_
!distribute lines $l_ into n_,v_
!if $n_ iswordof lastname firstname password email comments regnum photourl external_auth\
and $v_!=$(user_$n_)
!setdef !set user_$n_=$v_ in $deffile
!endif
!next i