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