Rev 16484 | Rev 16581 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
cnt_user=!itemcnt $sending_mail
!reset username teachername login teachername
!for l_ =1 to $cnt_user
u=!record $l_ of wimshome/sessions/$wims_session/.userlist_mail
username=!append item $(u[1]) $(u[2]) to $username
login=!append item $(u[3]) to $login
!mailto $(u[4])\
$supervisormail\
[WIMS $wims_classname] $save_subject\
$save_msg\
!reset u
!next l_
!! --------- preparing msg for teacher and supervisor
nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
!if $nbuser>$cnt
msgmod=$save_msg\
<br/>\
#######<br/>\
Send to user : $username<br/>\
#######<br/>\
<br/>
!else
msgmod=$save_msg
!endif
!if $save_sendotherteacher=1
!! ----------- send copie msg to teacher of the class
cnt_teacher=!recordcnt wimshome/sessions/$wims_session/.userteacher_mail
!for l_ =1 to $cnt_teacher
u=!record $l_ of wimshome/sessions/$wims_session/.userteacher_mail
login=!append item $(u[3]) to $login
teachername=!append item $(u[1]) $(u[2]) to $teachername
!mailto $(u[4])\
$supervisormail\
[WIMS $wims_classname] $save_subject\
$msgmod\
!reset u
!next l_
!endif
!if $save_selfsend=1
!! ----------- send copie msg to supervisor of the class
!if $cnt_teacher>0 and $save_sendotherteacher=1
msgmod=$save_msg\
<br/><br/>\
#######<br/>\
Send to teacher : $teachername<br/>\
#######<br/>
!endif
login=!append item supervisor to $login
!mailto $supervisormail\
$supervisormail\
[WIMS $wims_classname] $save_subject\
$msgmod\
!endif
!set wims_module_log=class $class: sendmail
date=!translate : to . in $wims_now
!appendfile wimshome/log/classes/$wims_class/.log $date $httpd_REMOTE_ADDR $supervisormail send mail to $login
!reset sending_mail method select_user loginlist