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_