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