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 |