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