Subversion Repositories wimsdev

Rev

Rev 16512 | Rev 16582 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16512 Rev 16581
Line 2... Line 2...
2 
cnt_user=!itemcnt $sending_mail
 2 
cnt_user=!itemcnt $sending_mail
3 
!reset username teachername login teachername
 3 
!reset username teachername login teachername
- 
 
 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 
 
4 
!for l_ =1 to $cnt_user
 12 
!for l_ =1 to $cnt_user
5 
  u=!record $l_ of wimshome/sessions/$wims_session/.userlist_mail
 13 
  u=!record $l_ of wimshome/sessions/$wims_session/.userlist_mail
6 
  username=!append item $(u[1]) $(u[2]) to $username
 14 
  username=!append item $(u[1]) $(u[2]) to $username
7 
  login=!append item $(u[3]) to $login
 15 
  login=!append item $(u[3]) to $login
8 
  !mailto $(u[4])\
 16 
  !mailto $(u[4])\
9 
$supervisormail\
 17 
$sender\
10 
[WIMS $wims_classname] $save_subject\
 18 
[WIMS $wims_classname] $save_subject\
11 
$save_msg\
 19 
$save_msg\
12 
 
 20 
 
13 
  !reset u
 21 
  !reset u
14 
!next l_
 22 
!next l_
Line 34... Line 42...
34 
  !for l_ =1 to $cnt_teacher
 42 
  !for l_ =1 to $cnt_teacher
35 
    u=!record $l_ of wimshome/sessions/$wims_session/.userteacher_mail
 43 
    u=!record $l_ of wimshome/sessions/$wims_session/.userteacher_mail
36 
    login=!append item $(u[3]) to $login
 44 
    login=!append item $(u[3]) to $login
37 
    teachername=!append item $(u[1]) $(u[2]) to $teachername
 45 
    teachername=!append item $(u[1]) $(u[2]) to $teachername
38 
    !mailto $(u[4])\
 46 
    !mailto $(u[4])\
39 
$supervisormail\
 47 
$sender\
40 
[WIMS $wims_classname] $save_subject\
 48 
[WIMS $wims_classname] $save_subject\
41 
$msgmod\
 49 
$msgmod\
42 
 
 50 
 
43 
    !reset u
 51 
    !reset u
44 
  !next l_
 52 
  !next l_
Line 54... Line 62...
54 
#######<br/>
 62 
#######<br/>
55 
 
 63 
 
56 
  !endif
 64 
  !endif
57 
  login=!append item supervisor to $login
 65 
  login=!append item supervisor to $login
58 
    !mailto $supervisormail\
 66 
    !mailto $supervisormail\
59 
$supervisormail\
 67 
$sender\
60 
[WIMS $wims_classname] $save_subject\
 68 
[WIMS $wims_classname] $save_subject\
61 
$msgmod\
 69 
$msgmod\
62 
 
 70 
 
63 
!endif
 71 
!endif
64 
 
 72