Subversion Repositories wimsdev

Rev

Rev 16512 | Rev 16582 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
16479 guerimand 1
 
2
cnt_user=!itemcnt $sending_mail
16482 guerimand 3
!reset username teachername login teachername
16581 guerimand 4
 
5
!! don't send supervisor mail in case of wims_mail_hidden=yes
6
!if $wims_mail_hidden=yes
7
  sender=$empty
8
!else
9
  sender=$supervisormail
10
!endif
11
 
16479 guerimand 12
!for l_ =1 to $cnt_user
13
  u=!record $l_ of wimshome/sessions/$wims_session/.userlist_mail
14
  username=!append item $(u[1]) $(u[2]) to $username
15
  login=!append item $(u[3]) to $login
16
  !mailto $(u[4])\
16581 guerimand 17
$sender\
16512 guerimand 18
[WIMS $wims_classname] $save_subject\
19
$save_msg\
16479 guerimand 20
 
21
  !reset u
22
!next l_
23
 
24
 
16482 guerimand 25
!! --------- preparing msg for teacher and supervisor
16479 guerimand 26
nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
27
!if $nbuser>$cnt
16512 guerimand 28
  msgmod=$save_msg\
16482 guerimand 29
<br/>\
30
#######<br/>\
31
Send to user : $username<br/>\
32
#######<br/>\
33
<br/>
16479 guerimand 34
 
35
!else
16512 guerimand 36
  msgmod=$save_msg
16479 guerimand 37
!endif
16482 guerimand 38
 
39
!if $save_sendotherteacher=1
40
  !! ----------- send copie msg to teacher of the class
41
  cnt_teacher=!recordcnt wimshome/sessions/$wims_session/.userteacher_mail
42
  !for l_ =1 to $cnt_teacher
43
    u=!record $l_ of wimshome/sessions/$wims_session/.userteacher_mail
44
    login=!append item $(u[3]) to $login
45
    teachername=!append item $(u[1]) $(u[2]) to $teachername
46
    !mailto $(u[4])\
16581 guerimand 47
$sender\
16512 guerimand 48
[WIMS $wims_classname] $save_subject\
16479 guerimand 49
$msgmod\
50
 
16482 guerimand 51
    !reset u
52
  !next l_
53
!endif
16479 guerimand 54
 
16482 guerimand 55
!if $save_selfsend=1
56
  !! ----------- send copie msg to supervisor of the class
57
  !if $cnt_teacher>0 and $save_sendotherteacher=1
16512 guerimand 58
    msgmod=$save_msg\
16482 guerimand 59
<br/><br/>\
60
#######<br/>\
61
Send to teacher : $teachername<br/>\
62
#######<br/>
16479 guerimand 63
 
16482 guerimand 64
  !endif
65
  login=!append item supervisor to $login
66
    !mailto $supervisormail\
16581 guerimand 67
$sender\
16512 guerimand 68
[WIMS $wims_classname] $save_subject\
16482 guerimand 69
$msgmod\
70
 
71
!endif
72
 
16512 guerimand 73
!set wims_module_log=class $class: sendmail
16479 guerimand 74
date=!translate : to . in $wims_now
75
!appendfile wimshome/log/classes/$wims_class/.log $date $httpd_REMOTE_ADDR	$supervisormail send mail to $login
76
 
16512 guerimand 77
!reset sending_mail method select_user loginlist