Subversion Repositories wimsdev

Rev

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] $subject\
 10 
[WIMS $wims_classname] $save_subject\
11 
$msg\
 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 
  msgmod=$msg\
 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 
  msgmod=$msg
 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] $subject\
 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 
    msgmod=$msg\
 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] $subject\
 60 
[WIMS $wims_classname] $save_subject\
61 
$msgmod\
 61 
$msgmod\
62 
 
 62 
 
63 
!endif
 63 
!endif
64 
 
 64 
 
65 
set wims_module_log=class $class: sendmail
 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