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 |