Subversion Repositories wimsdev

Rev

Rev 16484 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16484 Rev 16512
Line 4... Line 4...
4 
!bound selfsend within 0,1 default 0
 4 
!bound selfsend within 0,1 default 0
5 
!bound sendotherteacher within 0,1 default 0
 5 
!bound sendotherteacher within 0,1 default 0
6 
 
 6 
 
7 
save_selfsend=$selfsend
 7 
save_selfsend=$selfsend
8 
save_sendotherteacher=$sendotherteacher
 8 
save_sendotherteacher=$sendotherteacher
- 
 
 9 
save_subject=!char 1 to 100 of $subject
- 
 
 10 
save_subject=!detag $save_subject
- 
 
 11 
!!  -------- for the moment use detag
- 
 
 12 
!!  script_data_input=!char 1 to 1000 of $msg
- 
 
 13 
!!!readproc adm/partialdetag.proc variable
- 
 
 14 
!! save_subject=$script_data_output
- 
 
 15 
save_msg=!char 1 to 1000 of $msg
- 
 
 16 
save_msg=!detag $save_msg
9 
 
 17 
 
10 
all_list=!values v for v=1 to $nb_user
 18 
all_list=!values v for v=1 to $nb_user
11 
!if $method=all
 19 
!if $method=all
12 
  sending_mail=$all_list
 20 
  sending_mail=$all_list
13 
!endif
 21 
!endif