Subversion Repositories wimsdev

!! ------ check method

!bound method within all,select,login,filter default all

!bound selfsend within 0,1 default 0

!bound sendotherteacher within 0,1 default 0

save_selfsend=$selfsend

save_sendotherteacher=$sendotherteacher

all_list=!values v for v=1 to $nb_user

!if $method=all

  sending_mail=$all_list

!endif

!if $method=select

  sending_mail=!listintersect $all_list and $select_user

!endif

!if $method=filter

  !reset sending_mail sending_nomail

  !for lu=1 to $nb_user

    us=!record $lu of wimshome/sessions/$wims_session/.userlist_mail

    !distribute item $us_ into l_name_,f_name_,login

    !read adm/vfilter/testfilter $(us[3])\

$varfilter_

    !if $var_filter_test=1

      sending_mail=!append item $lu to $sending_mail

    !endif

  !next lu

  nbbad=0

  !if $nbw_user>0

    !for lu=1 to $nbw_user

      us=!record $lu of wimshome/sessions/$wims_session/.userlist_nomail

      !distribute item $us_ into l_name_,f_name_,login

      !read adm/vfilter/testfilter $(us[3])\

$varfilter_

      !if $var_filter_test=1

        sending_nomail=!append item $lu to $sending_nomail

        !increase nbbad

      !endif

    !next lu

  !endif

!endif

!if $method=login

  !reset sending_mail valid_login

  !for lu=1 to $nb_user

    us=!record $lu of wimshome/sessions/$wims_session/.userlist_mail

    !distribute item $us into l_name_,f_name_,login

    !if $login isitemof $loginlist

      sending_mail=!append item $lu to $sending_mail

      valid_login=!append item $login to $valid_login

    !endif

  !next lu

  bad_list=!listcomplement $valid_login in $loginlist

  nbbad=!itemcnt $bad_list

!endif

nbsend=!itemcnt $sending_mail

!if $nbsend=0

  error=nousermail

  !reset job

  !exit

!endif

nbteacher=!recordcnt wimshome/sessions/$wims_session/.teacherlist_mail