Subversion Repositories wimsdev

cnt_user=!itemcnt $sending_mail
!reset username teachername login
!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] $subject\
$msg\

  !reset u
!next l_


!! ----------- send copie msg to teacher of the class
nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
!if $nbuser>$cnt
    !set msgmod=$msg\
\
#######\
Send : $username\
#######\

!else
  !set msgmod=$msg
!endif
cnt_teacher=!linecnt $list_teacher
!for l_ =1 to $cnt_teacher
  u=!record $l_ of wimshome/sessions/$wims_session/.userteacher_mail
  login=!append item $(u[3]) to $login
  !mailto $(u[4])\
$supervisormail\
[WIMS $wims_classname] $subject\
$msgmod\

  !reset u
!next l_


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