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