Subversion Repositories wimsdev

Rev

Rev 5165 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $datacnt<1
2
 !exit
3
!endif
4
 
5
!if $cn_user=supervisor
6
 deffile=supervisor
7
!else
8
 deffile=.users/$cn_user
9
!endif               
10
deffile=classes/$wims_class/$deffile
11
 
12
!if user notwordof $wims_prefix
13
 wims_prefix=$wims_prefix user
14
!endif
15
 
16
!readdef $deffile
17
 
18
!for i=1 to $datacnt
19
 l_=!line $i of $cn_data
20
 l_=!translate = to $\
21
$ in $l_
22
 !distribute lines $l_ into n_,v_
5165 czzmrn 23
 !if $n_ iswordof lastname firstname password email comments regnum photourl external_auth\
20 reyssat 24
	and $v_!=$(user_$n_)
25
  !setdef !set user_$n_=$v_ in $deffile
26
 !endif
27
!next i