Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 10469
Line 72... Line 72...
72 
userdef_save=$userdef
 72 
userdef_save=$userdef
73 
sup_save=$s_
 73 
sup_save=$s_
74 
!for i=1 to $newcnt
 74 
!for i=1 to $newcnt
75 
 userdef=$userdef_save
 75 
 userdef=$userdef_save
76 
 cadd_Supervisor=$sup_save
 76 
 cadd_Supervisor=$sup_save
- 
 
 77 
 tmp=!defof user_firstname,user_lastname,user_email,user_password in $userdef
- 
 
 78 
 !distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password
77 
 sadd_firstname=!defof user_firstname in $userdef
 79 
!! sadd_firstname=!defof user_firstname in $userdef
78 
 sadd_lastname=!defof user_lastname in $userdef
 80 
!! sadd_lastname=!defof user_lastname in $userdef
79 
 sadd_email=!defof user_email in $userdef
 81 
!! sadd_email=!defof user_email in $userdef
- 
 
 82 
!! sadd_password=!defof user_password in $userdef
80 
 cadd_email=$sadd_email
 83 
 cadd_email=$sadd_email
81 
 cadd_superclass=$wims_superclass
 84 
 cadd_superclass=$wims_superclass
82 
 cadd_parent=$Level_
 85 
 cadd_parent=$Level_
83 
 cadd_password=$pass
 86 
 cadd_password=$pass
84 
 cadd_secure=$sechost
 87 
 cadd_secure=$sechost
85 
 sadd_password=$passs
 - 
 
86 
 cadd_type=3
 88 
 cadd_type=3
87 
 cadd_typename=class
 89 
 cadd_typename=class
88 
 cadd_description=!item $i of $titles
 90 
 cadd_description=!item $i of $titles
89 
 ac_newclass=!item $i of $newclasses
 91 
 ac_newclass=!item $i of $newclasses
90 
 ac_su_list=!listunion $ac_su_list and $Level_/$ac_newclass
 92 
 ac_su_list=!listunion $ac_su_list and $Level_/$ac_newclass