Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 10469
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
- 
 
 53 
!distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password
52 
sadd_firstname=!defof user_firstname in $userdef
 54 
!!sadd_firstname=!defof user_firstname in $userdef
53 
sadd_lastname=!defof user_lastname in $userdef
 55 
!!sadd_lastname=!defof user_lastname in $userdef
54 
sadd_email=!defof user_email in $userdef
 56 
!!sadd_email=!defof user_email in $userdef
- 
 
 57 
!!sadd_password=$passs
55 
cadd_email=$sadd_email
 58 
cadd_email=$sadd_email
56 
cadd_password=$pass
 59 
cadd_password=$pass
57 
sadd_password=$passs
 - 
 
58 
modclass_slist=!listunion firstname,lastname,email and $modclass_slist
 60 
modclass_slist=!listunion firstname,lastname,email and $modclass_slist
59 
 
 61 
 
60 
!read adm/gateway/delsup $wims_read_parm
 62 
!read adm/gateway/delsup $wims_read_parm
61 
!if $s_!=supervisor
 63 
!if $s_!=supervisor
62 
 suplist=!defof user_supervise in $userdir/$s_
 64 
 suplist=!defof user_supervise in $userdir/$s_