Subversion Repositories wimsdev

# ModUser

# Modifie l'utilisateur $quser

#on commence par verifier la classe $qclass

!read scripts/check.class

!if $error!=$empty

 !exit

!endif

!read scripts/check.user

!if $error!=$empty

 !exit

!endif

data1=!nonempty lines $data1

n=!linecnt $data1

set=0

!readdef $userdeffile

!for i=1 to $n

 l=!line $i of $data1

 l=!translate = to $\

$ in $l

 !distribute lines $l into n_,v_

 !if $n_ isitemof $userdefs and $v_!=$(user_$n_)

  !setdef !set user_$n_=$v_ in $userdeffile

  !advance set

 !endif

!next i

!if $set<1

 error=nothing done

 !exit

!endif

!read adm/class/mkuserlist $qclass

!read adm/class/stat