Subversion Repositories wimsdev

Rev

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 $wims_user!=supervisor
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
!if $wims_realuser!= and  $wims_realuser!=supervisor
49
suplog=!defof class_Supervisor in wimshome/log/classes/$wims_class/.def
-
 
50
!if $suplog=$empty
54
  add=$wims_superclass/.users/$wims_realuser
51
  add=$wims_class/supervisor
55
!else
52
!else
56
  add=$wims_class/supervisor
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
  !exit
65
  !endif
65
!endif
66
!endif
66
 
67