Rev 16484 | Rev 16581 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 16484 | Rev 16512 | ||
---|---|---|---|
Line 5... | Line 5... | ||
5 | u=!record $l_ of wimshome/sessions/$wims_session/.userlist_mail |
5 | u=!record $l_ of wimshome/sessions/$wims_session/.userlist_mail |
6 | username=!append item $(u[1]) $(u[2]) to $username |
6 | username=!append item $(u[1]) $(u[2]) to $username |
7 | login=!append item $(u[3]) to $login |
7 | login=!append item $(u[3]) to $login |
8 | !mailto $(u[4])\ |
8 | !mailto $(u[4])\ |
9 | $supervisormail\ |
9 | $supervisormail\ |
10 | [WIMS $wims_classname] |
10 | [WIMS $wims_classname] $save_subject\ |
11 |
|
11 | $save_msg\ |
12 | 12 | ||
13 | !reset u |
13 | !reset u |
14 | !next l_ |
14 | !next l_ |
15 | 15 | ||
16 | 16 | ||
17 | !! --------- preparing msg for teacher and supervisor |
17 | !! --------- preparing msg for teacher and supervisor |
18 | nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist |
18 | nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist |
19 | !if $nbuser>$cnt |
19 | !if $nbuser>$cnt |
20 |
|
20 | msgmod=$save_msg\ |
21 | <br/>\ |
21 | <br/>\ |
22 | #######<br/>\ |
22 | #######<br/>\ |
23 | Send to user : $username<br/>\ |
23 | Send to user : $username<br/>\ |
24 | #######<br/>\ |
24 | #######<br/>\ |
25 | <br/> |
25 | <br/> |
26 | 26 | ||
27 | !else |
27 | !else |
28 |
|
28 | msgmod=$save_msg |
29 | !endif |
29 | !endif |
30 | 30 | ||
31 | !if $save_sendotherteacher=1 |
31 | !if $save_sendotherteacher=1 |
32 | !! ----------- send copie msg to teacher of the class |
32 | !! ----------- send copie msg to teacher of the class |
33 | cnt_teacher=!recordcnt wimshome/sessions/$wims_session/.userteacher_mail |
33 | cnt_teacher=!recordcnt wimshome/sessions/$wims_session/.userteacher_mail |
Line 35... | Line 35... | ||
35 | u=!record $l_ of wimshome/sessions/$wims_session/.userteacher_mail |
35 | u=!record $l_ of wimshome/sessions/$wims_session/.userteacher_mail |
36 | login=!append item $(u[3]) to $login |
36 | login=!append item $(u[3]) to $login |
37 | teachername=!append item $(u[1]) $(u[2]) to $teachername |
37 | teachername=!append item $(u[1]) $(u[2]) to $teachername |
38 | !mailto $(u[4])\ |
38 | !mailto $(u[4])\ |
39 | $supervisormail\ |
39 | $supervisormail\ |
40 | [WIMS $wims_classname] |
40 | [WIMS $wims_classname] $save_subject\ |
41 | $msgmod\ |
41 | $msgmod\ |
42 | 42 | ||
43 | !reset u |
43 | !reset u |
44 | !next l_ |
44 | !next l_ |
45 | !endif |
45 | !endif |
46 | 46 | ||
47 | !if $save_selfsend=1 |
47 | !if $save_selfsend=1 |
48 | !! ----------- send copie msg to supervisor of the class |
48 | !! ----------- send copie msg to supervisor of the class |
49 | !if $cnt_teacher>0 and $save_sendotherteacher=1 |
49 | !if $cnt_teacher>0 and $save_sendotherteacher=1 |
50 |
|
50 | msgmod=$save_msg\ |
51 | <br/><br/>\ |
51 | <br/><br/>\ |
52 | #######<br/>\ |
52 | #######<br/>\ |
53 | Send to teacher : $teachername<br/>\ |
53 | Send to teacher : $teachername<br/>\ |
54 | #######<br/> |
54 | #######<br/> |
55 | 55 | ||
56 | !endif |
56 | !endif |
57 | login=!append item supervisor to $login |
57 | login=!append item supervisor to $login |
58 | !mailto $supervisormail\ |
58 | !mailto $supervisormail\ |
59 | $supervisormail\ |
59 | $supervisormail\ |
60 | [WIMS $wims_classname] |
60 | [WIMS $wims_classname] $save_subject\ |
61 | $msgmod\ |
61 | $msgmod\ |
62 | 62 | ||
63 | !endif |
63 | !endif |
64 | 64 | ||
65 |
|
65 | !set wims_module_log=class $class: sendmail |
66 | date=!translate : to . in $wims_now |
66 | date=!translate : to . in $wims_now |
67 | !appendfile wimshome/log/classes/$wims_class/.log $date $httpd_REMOTE_ADDR $supervisormail send mail to $login |
67 | !appendfile wimshome/log/classes/$wims_class/.log $date $httpd_REMOTE_ADDR $supervisormail send mail to $login |
68 | 68 | ||
69 | !reset sending_mail method select_user loginlist |
69 | !reset sending_mail method select_user loginlist |