Subversion Repositories wimsdev

Rev

Rev 10469 | Rev 12981 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10469 Rev 10677
Line 47... Line 47...
47 
  !exit
 47 
  !exit
48 
 !endif
 48 
 !endif
49 
!endif
 49 
!endif
50 
!read adm/class/userdef classes,$wims_superclass,$s_
 50 
!read adm/class/userdef classes,$wims_superclass,$s_
51 
cadd_Supervisor=$s_
 51 
cadd_Supervisor=$s_
52 
tmp=!defof user_firstname,user_lastname,user_email,user_password in $userdef
 52 
tmp=!defof user_firstname,user_lastname,user_email in $userdef
53 
!distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password
 53 
!distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password
54 
!!sadd_firstname=!defof user_firstname in $userdef
 - 
 
55 
!!sadd_lastname=!defof user_lastname in $userdef
 - 
 
56 
!!sadd_email=!defof user_email in $userdef
 - 
 
57 
!!sadd_password=$passs
 - 
 
58 
cadd_email=$sadd_email
 54 
cadd_email=$sadd_email
59 
cadd_password=$pass
 55 
cadd_password=$pass
- 
 
 56 
sadd_password=$passs
60 
modclass_slist=!listunion firstname,lastname,email and $modclass_slist
 57 
modclass_slist=!listunion firstname,lastname,email and $modclass_slist
61 
 
 58 
 
62 
!read adm/gateway/delsup $wims_read_parm
 59 
!read adm/gateway/delsup $wims_read_parm
63 
!if $s_!=supervisor
 60 
!if $s_!=supervisor
64 
 suplist=!defof user_supervise in $userdir/$s_
 61 
 suplist=!defof user_supervise in $userdir/$s_