Subversion Repositories wimsdev

Rev

Rev 12981 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12981 Rev 14336
Line 30... Line 30...
30
    !exit
30
    !exit
31
  !endif
31
  !endif
32
!endif
32
!endif
33
 
33
 
34
!if $passs!=$empty
34
!if $passs!=$empty
35
 passs=!text select $char_passwd in $passs
35
  passs=!text select $char_passwd in $passs
36
 passlen=!charcnt $passs
36
  passlen=!charcnt $passs
37
 !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
37
  !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
38
  error=bad_password
38
    error=bad_password
39
  !exit
39
    !exit
40
 !endif
40
  !endif
41
!else
41
!else
42
 passs=!defof user_password in $Level__/supervisor
42
  passs=!defof user_password in $Level__/supervisor
43
!endif
43
!endif
44
 
44
 
45
!if $newclasses=$empty or $avcnt<$newcnt
45
!if $newclasses=$empty or $avcnt<$newcnt
46
 error=icourse_full
46
  error=icourse_full
47
 !exit
47
  !exit
48
!endif
48
!endif
49
 
49
 
50
1=!defof user_exists in wimshome/log/classes/$wims_superclass/.users/$s_
50
1=!defof user_exists in wimshome/log/classes/$wims_superclass/.users/$s_
51
ac_su_list=
51
ac_su_list=
52
!if $1!=yes
52
!if $1!=yes
53
 s_=supervisor
53
  s_=supervisor
54
 ac_su_class=
54
  ac_su_class=
55
!else
55
!else
56
 1=!defof user_supervisable in wimshome/log/classes/$wims_superclass/.users/$s_
56
  1=!defof user_supervisable in wimshome/log/classes/$wims_superclass/.users/$s_
57
 !if $1!=yes
57
  !if $1!=yes
58
  name=$s_
58
    name=$s_
59
  error=not_supervisable
59
    error=not_supervisable
60
  !exit
60
  !exit
61
 !endif
61
  !endif
62
 ac_su_class=yes
62
  ac_su_class=yes
63
!endif
63
!endif
64
 
64
 
65
!read adm/class/userdef classes,$wims_superclass,$s_
65
!read adm/class/userdef classes,$wims_superclass,$s_
66
userdef_save=$userdef
66
userdef_save=$userdef
67
sup_save=$s_
67
sup_save=$s_
68
class_password=
68
class_password=
69
!bound visibility within 1,2 default 1
69
!bound visibility within 1,2 default 1
70
!for i=1 to $newcnt
70
!for i=1 to $newcnt
71
 userdef=$userdef_save
71
  userdef=$userdef_save
72
 cadd_Supervisor=$sup_save
72
  cadd_Supervisor=$sup_save
73
 sadd_firstname=!defof user_firstname in $userdef
73
  sadd_firstname=!defof user_firstname in $userdef
74
 sadd_lastname=!defof user_lastname in $userdef
74
  sadd_lastname=!defof user_lastname in $userdef
75
 sadd_email=!defof user_email in $userdef
75
  sadd_email=!defof user_email in $userdef
76
 cadd_email=$sadd_email
76
  cadd_email=$sadd_email
77
 cadd_superclass=$wims_superclass
77
  cadd_superclass=$wims_superclass
78
 cadd_parent=$Level_
78
  cadd_parent=$Level_
79
 cadd_password=$pass
79
  cadd_password=$pass
80
 sadd_password=$passs
80
  sadd_password=$passs
81
 cadd_secure=$sechost
81
  cadd_secure=$sechost
82
 cadd_type=1
82
  cadd_type=1
83
 cadd_typename=course
83
  cadd_typename=course
84
 cadd_description=!item $i of $titles
84
  cadd_description=!item $i of $titles
85
 ac_newclass=!item $i of $newclasses
85
  ac_newclass=!item $i of $newclasses
86
 ac_su_list=!listunion $ac_su_list and $Level_/$ac_newclass
86
  ac_su_list=!listunion $ac_su_list and $Level_/$ac_newclass
87
 !read adm/class/addclass $Level_/$ac_newclass
87
  !read adm/class/addclass $Level_/$ac_newclass
88
 !setdef !set class_visibility=$visibility in $Level_/$ac_newclass/.def
88
  !setdef !set class_visibility=$visibility in $Level_/$ac_newclass/.def
89
 !setdef n_sup=$Level_ in $Level__/$ac_newclass/neighbors
89
  !setdef n_sup=$Level_ in $Level__/$ac_newclass/neighbors
90
 n_sup=!defof n_sup in $Level__/neighbors
90
  n_sup=!defof n_sup in $Level__/neighbors
91
 n_sup=!listunion $n_sup and $Level_/$ac_newclass
91
  n_sup=!listunion $n_sup and $Level_/$ac_newclass
92
 !setdef n_sup=$n_sup in $Level__/neighbors
92
  !setdef n_sup=$n_sup in $Level__/neighbors
93
 !read adm/class/addshare $Level_, $Level_/$ac_newclass\
93
  !read adm/class/addshare $Level_, $Level_/$ac_newclass\
94
	exo,sheet,exam,doc,vote,livret,seq
94
   exo,sheet,exam,doc,vote,livret,seq
95
 
95
 
96
!next i
96
!next i
97
 
97
 
98
!if $ac_su_class=yes
98
!if $ac_su_class=yes
99
 ac_su_list2=!defof user_supervise in $userdir/$sup_save
99
  ac_su_list2=!defof user_supervise in $userdir/$sup_save
100
 ac_su_list=!listunion $ac_su_list and $ac_su_list2
100
  ac_su_list=!listunion $ac_su_list and $ac_su_list2
101
 !setdef !set user_supervise=$ac_su_list in $userdir/$sup_save
101
  !setdef !set user_supervise=$ac_su_list in $userdir/$sup_save
102
!endif
102
!endif
103
 
103