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