Rev 16484 | Rev 17272 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 16484 | Rev 16512 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !if $wims_class=$empty |
2 | !if $wims_class=$empty |
3 | error=noclass |
3 | error=noclass |
4 | !exit |
4 | !exit |
5 | !endif |
5 | !endif |
6 | 6 | ||
7 | !if |
7 | !if $wims_user=supervisor |
8 | error=notsupervisor |
- | |
9 | !exit |
- | |
10 | !else |
- | |
11 | !! ---- build list of user/teacher of the class with mail defined |
8 | !! ---- build list of user/teacher of the class with mail defined |
12 | !sh rm -f $wims_home/sessions/$wims_session/.userlist_mail $wims_home/sessions/$wims_session/.userlist_nomail $wims_home/sessions/$wims_session/.userteacher_nomail $wims_home/sessions/$wims_session/.teacherlist_mail; |
9 | !sh rm -f $wims_home/sessions/$wims_session/.userlist_mail $wims_home/sessions/$wims_session/.userlist_nomail $wims_home/sessions/$wims_session/.userteacher_nomail $wims_home/sessions/$wims_session/.teacherlist_mail; |
13 | !read adm/class/userdef ,$wims_class, |
10 | !read adm/class/userdef ,$wims_class, |
14 | !distribute item 0,0,0,0 into nb_user,nb_teacher,nbw_user,nbw_teacher |
11 | !distribute item 0,0,0,0 into nb_user,nb_teacher,nbw_user,nbw_teacher |
15 | !! ----- not same process because of different format for file .userlist and .teacherlist |
12 | !! ----- not same process because of different format for file .userlist and .teacherlist |
16 | !! ----- check of userlist |
13 | !! ----- check of userlist |
17 | type=user |
14 | type=user |
18 | nbt_$type=!recordcnt wimshome/log/classes/$wims_class/.$(type)list |
15 | nbt_$type=!recordcnt wimshome/log/classes/$wims_class/.$(type)list |
19 | !for k=1 to $(nbt_$type) |
16 | !for k=1 to $(nbt_$type) |
20 | data=!record $k of wimshome/log/classes/$wims_class/.$(type)list |
17 | data=!record $k of wimshome/log/classes/$wims_class/.$(type)list |
21 | login=!item 3 of $data |
18 | login=!item 3 of $data |
22 | data=!defof user_firstname,user_lastname,user_email in $userfolder/$login |
19 | data=!defof user_firstname,user_lastname,user_email in $userfolder/$login |
23 | !distribute item $data into f,l,m |
20 | !distribute item $data into f,l,m |
24 | !if $m!=$empty |
21 | !if $m!=$empty |
25 | !appendfile wimshome/sessions/$wims_session/.$(type)list_mail :$l,$f,$login,$m |
22 | !appendfile wimshome/sessions/$wims_session/.$(type)list_mail :$l,$f,$login,$m |
26 | !increase nb_$type |
23 | !increase nb_$type |
27 | !else |
24 | !else |
28 | !appendfile wimshome/sessions/$wims_session/.$(type)list_nomail :$l,$f,$login |
25 | !appendfile wimshome/sessions/$wims_session/.$(type)list_nomail :$l,$f,$login |
29 | !increase nbw_$type |
26 | !increase nbw_$type |
30 | !endif |
27 | !endif |
31 | !next k |
28 | !next k |
32 | !! ---- check of teacherlist |
29 | !! ---- check of teacherlist |
33 | type=teacher |
30 | type=teacher |
34 | globaldata=!record 0 of wimshome/log/classes/$wims_class/.$(type)list |
31 | globaldata=!record 0 of wimshome/log/classes/$wims_class/.$(type)list |
Line 47... | Line 44... | ||
47 | !endif |
44 | !endif |
48 | !next k |
45 | !next k |
49 | !endif |
46 | !endif |
50 | 47 | ||
51 | !read adm/class/classlang names.phtml |
48 | !read adm/class/classlang names.phtml |
52 | - | ||
53 |
|
49 | suplog=!defof class_Supervisor in wimshome/log/classes/$wims_class/.def |
- | 50 | !if $suplog=$empty |
|
54 |
|
51 | add=$wims_class/supervisor |
55 | !else |
52 | !else |
56 |
|
53 | add=$wims_superclass/.users/$suplog |
57 | !endif |
54 | !endif |
58 | 55 | ||
59 | tmp=!defof user_email,user_firstname,user_lastname in wimshome/log/classes/$add |
56 | tmp=!defof user_email,user_firstname,user_lastname in wimshome/log/classes/$add |
60 | supervisorname=$(tmp[2]) $(tmp[3]) |
57 | supervisorname=$(tmp[2]) $(tmp[3]) |
61 | supervisormail=$(tmp[1]) |
58 | supervisormail=$(tmp[1]) |
- | 59 | ||
62 | !if $supervisormail=$empty |
60 | !if $supervisormail=$empty |
- | 61 | !if $wims_user!=supervisor |
|
- | 62 | error=sendmailteacherclose |
|
- | 63 | !else |
|
63 | error=nosupervisoremail |
64 | error=nosupervisoremail |
64 |
|
65 | !endif |
65 | !endif |
66 | !endif |
66 | 67 |