Subversion Repositories wimsdev

Rev

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

Rev 16581 Rev 16582
Line 3... Line 3...
3 
!reset username teachername login teachername
 3 
!reset username teachername login teachername
4 
 
 4 
 
5 
!! don't send supervisor mail in case of wims_mail_hidden=yes
 5 
!! don't send supervisor mail in case of wims_mail_hidden=yes
6 
!if $wims_mail_hidden=yes
 6 
!if $wims_mail_hidden=yes
7 
  sender=$empty
 7 
  sender=$empty
- 
 
 8 
  !if $wims_superclass=$empty
- 
 
 9 
    localclass=$wims_class
- 
 
 10 
  !else
- 
 
 11 
    localclass=$wims_superclass
- 
 
 12 
  !endif
- 
 
 13 
  localtype=authparticipant
- 
 
 14 
  noreply1=\
- 
 
 15 
\
- 
 
 16 
$name_noreply
- 
 
 17 
  !if $wims_realuser=supervisor
- 
 
 18 
    localtype=authsupervisor
- 
 
 19 
    noreply2=\
- 
 
 20 
\
- 
 
 21 
$name_noreply
- 
 
 22 
  !else
- 
 
 23 
    noreply2=$noreply1
- 
 
 24 
  !endif
8 
!else
 25 
!else
9 
  sender=$supervisormail
 26 
  sender=$supervisormail
- 
 
 27 
  noreply1=$empty
- 
 
 28 
  noreply2=$empty
10 
!endif
 29 
!endif
11 
 
 30 
 
12 
!for l_ =1 to $cnt_user
 31 
!for l_ =1 to $cnt_user
13 
  u=!record $l_ of wimshome/sessions/$wims_session/.userlist_mail
 32 
  u=!record $l_ of wimshome/sessions/$wims_session/.userlist_mail
14 
  username=!append item $(u[1]) $(u[2]) to $username
 33 
  username=!append item $(u[1]) $(u[2]) to $username
15 
  login=!append item $(u[3]) to $login
 34 
  login=!append item $(u[3]) to $login
16 
  !mailto $(u[4])\
 35 
  !mailto $(u[4])\
17 
$sender\
 36 
$sender\
18 
[WIMS $wims_classname] $save_subject\
 37 
[WIMS $wims_classname] $save_subject\
19 
$save_msg\
 38 
$save_msg\
- 
 
 39 
$noreply1\
20 
 
 40 
 
21 
  !reset u
 41 
  !reset u
22 
!next l_
 42 
!next l_
23 
 
 43 
 
24 
 
 44 
 
25 
!! --------- preparing msg for teacher and supervisor
 45 
!! --------- preparing msg for teacher and supervisor
26 
nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
 46 
nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
27 
!if $nbuser>$cnt
 47 
!if $nbuser>$cnt
28 
  msgmod=$save_msg\
 48 
  msgmod=$save_msg\
29 
<br/>\
 49 
<br/>\
30 
#######<br/>\
 50 
#######<br/>\
31 
Send to user : $username<br/>\
 51 
$(name_sendto[1]) : $username<br/>\
32 
#######<br/>\
 52 
#######<br/>\
33 
<br/>
 53 
<br/>
34 
 
 54 
 
35 
!else
 55 
!else
36 
  msgmod=$save_msg
 56 
  msgmod=$save_msg
37 
!endif
 57 
!endif
38 
 
 58 
 
39 
!if $save_sendotherteacher=1
 59 
!if $save_sendotherteacher=1
Line 45... Line 65...
45 
    teachername=!append item $(u[1]) $(u[2]) to $teachername
 65 
    teachername=!append item $(u[1]) $(u[2]) to $teachername
46 
    !mailto $(u[4])\
 66 
    !mailto $(u[4])\
47 
$sender\
 67 
$sender\
48 
[WIMS $wims_classname] $save_subject\
 68 
[WIMS $wims_classname] $save_subject\
49 
$msgmod\
 69 
$msgmod\
- 
 
 70 
$noreply1\
- 
 
 71 
 
50 
 
 72 
 
51 
    !reset u
 73 
    !reset u
52 
  !next l_
 74 
  !next l_
53 
!endif
 75 
!endif
54 
 
 76 
 
Line 56... Line 78...
56 
  !! ----------- send copie msg to supervisor of the class
 78 
  !! ----------- send copie msg to supervisor of the class
57 
  !if $cnt_teacher>0 and $save_sendotherteacher=1
 79 
  !if $cnt_teacher>0 and $save_sendotherteacher=1
58 
    msgmod=$save_msg\
 80 
    msgmod=$save_msg\
59 
<br/><br/>\
 81 
<br/><br/>\
60 
#######<br/>\
 82 
#######<br/>\
61 
Send to teacher : $teachername<br/>\
 83 
$(name_sendto[2]) : $teachername<br/>\
62 
#######<br/>
 84 
#######<br/>
63 
 
 85 
 
64 
  !endif
 86 
  !endif
65 
  login=!append item supervisor to $login
 87 
  login=!append item supervisor to $login
66 
    !mailto $supervisormail\
 88 
!debug    !mailto $supervisormail\
67 
$sender\
 89 
$sender\
68 
[WIMS $wims_classname] $save_subject\
 90 
[WIMS $wims_classname] $save_subject\
69 
$msgmod\
 91 
$msgmod\
- 
 
 92 
$noreply2\
70 
 
 93 
 
71 
!endif
 94 
!endif
72 
 
 95 
 
73 
!set wims_module_log=class $class: sendmail
 96 
!set wims_module_log=class $class: sendmail
74 
date=!translate : to . in $wims_now
 97 
date=!translate : to . in $wims_now