Subversion Repositories wimsdev

Rev

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

Rev 12981 Rev 14336
Line 1... Line 1...
1
 
1
 
2
!if $wims_superclass=$empty or $wims_user!=supervisor or $wims_read_parm=$empty
2
!if $wims_superclass=$empty or $wims_user!=supervisor or $wims_read_parm=$empty
3
 !exit
3
  !exit
4
!endif
4
!endif
5
 
5
 
6
!distribute item $wims_read_parm into ac_prog, ac_class
6
!distribute item $wims_read_parm into ac_prog, ac_class
7
!if $ac_prog= or $ac_class= or \
7
!if $ac_prog= or $ac_class= or \
8
	$wims_class/ notin $wims_superclass/$ac_prog/ $wims_superclass/$ac_class/
8
  $wims_class/ notin $wims_superclass/$ac_prog/ $wims_superclass/$ac_class/
9
  !exit
9
  !exit
10
!endif
10
!endif
11
ac_Level=$wims_superclass
11
ac_Level=$wims_superclass
12
ac_Level_=wimshome/log/classes/$ac_Level
12
ac_Level_=wimshome/log/classes/$ac_Level
13
ac_course=!translate internal / to , in $ac_prog
13
ac_course=!translate internal / to , in $ac_prog
Line 45... Line 45...
45
!endif
45
!endif
46
:recourse
46
:recourse
47
 
47
 
48
1=!defof user_exists in $userdir/$sup_
48
1=!defof user_exists in $userdir/$sup_
49
!if $1!=yes
49
!if $1!=yes
50
 s_=supervisor
50
  s_=supervisor
51
!else
51
!else
52
 1=!defof user_supervisable in $userdir/$sup_
52
  1=!defof user_supervisable in $userdir/$sup_
53
 !if $1!=yes
53
  !if $1!=yes
54
  name=$sup_
54
    name=$sup_
55
  error=not_supervisable
55
    error=not_supervisable
56
  !exit
56
    !exit
57
 !endif
57
  !endif
58
 slist=!defof user_supervise in $userdir/$sup_
58
  slist=!defof user_supervise in $userdir/$sup_
59
 slist=!listunion $slist and $ac_Level/$ac_class/$ac_course
59
  slist=!listunion $slist and $ac_Level/$ac_class/$ac_course
60
 !setdef !set user_supervise=$slist in $userdir/$sup_
60
  !setdef !set user_supervise=$slist in $userdir/$sup_
61
!endif
61
!endif
62
 
62
 
63
!readdef $ac_Level_/$ac_prog/.def
63
!readdef $ac_Level_/$ac_prog/.def
64
cadd_dc=!defof class_description in $ac_Level_/$ac_class/.def
64
cadd_dc=!defof class_description in $ac_Level_/$ac_class/.def
65
cadd_dc=!word 1 of $cadd_dc
65
cadd_dc=!word 1 of $cadd_dc
66
!for t in supervisor Supervisor, email, password, expiration, level
66
!for t in supervisor Supervisor, email, password, expiration, level
67
 cadd_$t=$(class_$t)
67
  cadd_$t=$(class_$t)
68
!next t
68
!next t
69
cadd_secure=$sechost
69
cadd_secure=$sechost
70
!default cadd_secure=$class_secure
70
!default cadd_secure=$class_secure
71
cadd_description=$cadd_dc-$class_description
71
cadd_description=$cadd_dc-$class_description
72
!if $ac_tt!=$empty
72
!if $ac_tt!=$empty
73
 cadd_description=$cadd_description-$ac_tt
73
  cadd_description=$cadd_description-$ac_tt
74
!endif
74
!endif
75
class_password=
75
class_password=
76
cadd_password=
76
cadd_password=
77
cadd_superclass=$wims_superclass
77
cadd_superclass=$wims_superclass
78
cadd_parent=$wims_superclass/$ac_class
78
cadd_parent=$wims_superclass/$ac_class
79
cadd_type=1
79
cadd_type=1
80
cadd_typename=course
80
cadd_typename=course
81
!readdef $ac_Level_/$ac_prog/supervisor
81
!readdef $ac_Level_/$ac_prog/supervisor
82
!for t in lastname, firstname, password, email
82
!for t in lastname, firstname, password, email
83
 sadd_$t=$(user_$t)
83
  sadd_$t=$(user_$t)
84
!next t
84
!next t
85
 
85
 
86
!if $passs!=$empty
86
!if $passs!=$empty
87
 c=!char 1 of $passs
87
  c=!char 1 of $passs
88
 !if $c=*
88
  !if $c=*
89
  passs=!text select */$char_passwd in $passs
89
    passs=!text select */$char_passwd in $passs
90
 !else
90
  !else
91
  passs=!text select $char_passwd in $passs
91
    passs=!text select $char_passwd in $passs
92
 !endif
92
  !endif
93
 passlen=!charcnt $passs
93
    passlen=!charcnt $passs
94
 !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
94
  !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
95
  error=bad_password
95
    error=bad_password
96
  !exit
96
    !exit
97
 !endif
97
  !endif
98
 sadd_password=$passs
98
  sadd_password=$passs
99
!endif
99
!endif
100
 
100
 
101
!read adm/class/addclass $ac_Level/$ac_class/$ac_course
101
!read adm/class/addclass $ac_Level/$ac_class/$ac_course
102
 
102
 
103
!setdef n_part=$ac_Level/$ac_class\
103
!setdef n_part=$ac_Level/$ac_class\
Line 112... Line 112...
112
 
112
 
113
n_sup=!defof n_sup in $ac_Level_/$ac_prog/neighbors
113
n_sup=!defof n_sup in $ac_Level_/$ac_prog/neighbors
114
n_sup=!listunion $n_sup and $ac_Level/$ac_class/$ac_course
114
n_sup=!listunion $n_sup and $ac_Level/$ac_class/$ac_course
115
!setdef n_sup=$n_sup in $ac_Level_/$ac_prog/neighbors
115
!setdef n_sup=$n_sup in $ac_Level_/$ac_prog/neighbors
116
!read adm/class/addshare $ac_Level/$ac_prog, $ac_Level/$ac_class/$ac_course\
116
!read adm/class/addshare $ac_Level/$ac_prog, $ac_Level/$ac_class/$ac_course\
117
	exo,sheet,exam,doc,vote,livret,seq
117
  exo,sheet,exam,doc,vote,livret,seq
118
 
118
 
119
ac_style=!defof class_progstyle in $ac_Level_/$ac_prog/.def
119
ac_style=!defof class_progstyle in $ac_Level_/$ac_prog/.def
120
!if mandatory iswordof $ac_style
120
!if mandatory iswordof $ac_style
121
 ocourses=!defof class_ocourses in $ac_Level_/$ac_class/.def
121
  ocourses=!defof class_ocourses in $ac_Level_/$ac_class/.def
122
 ocourses=!listunion $ocourses and $ac_class/$ac_course
122
  ocourses=!listunion $ocourses and $ac_class/$ac_course
123
 !setdef !set class_ocourses=$ocourses in $ac_Level_/$ac_class/.def
123
  !setdef !set class_ocourses=$ocourses in $ac_Level_/$ac_class/.def
124
 !sh cd $wims_home/log/classes/$ac_Level/$ac_class/$ac_course\
124
  !sh cd $wims_home/log/classes/$ac_Level/$ac_class/$ac_course\
125
	rm -f .userlist\
125
  rm -f .userlist\
126
	ln -s ../.userlist .
126
  ln -s ../.userlist .
127
!endif
127
!endif
128
 
128