Subversion Repositories wimsdev

Rev

Rev 16484 | Rev 17089 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
16479 guerimand 1
!read adm/class/classlang names.phtml
2
 
16512 guerimand 3
!if $wims_user!=supervisor
4
  job=oneuser
5
  !if $error=$empty
6
    !changeto $job.proc
7
  !endif
8
!endif
9
 
10
!if $error isitemof notsupervisor,noclass,nosupervisoremail,sendmailteacherclose
16479 guerimand 11
  !reset job
12
  !exit
13
!endif
14
 
16512 guerimand 15
!if $nb_user=0 and $wims_user=supervisor
16
  error=nouser
16479 guerimand 17
  !reset job
18
  !exit
19
!endif
20
 
16512 guerimand 21
 
16479 guerimand 22
!if $cmd!=reply and $job=sendmail
23
  !reset job
24
!endif
25
 
16482 guerimand 26
!if $cmd=new
27
  !distribute item 1,1 into selfsend,sendotherteacher
28
!endif
29
 
16479 guerimand 30
!bound job within edit,preview,sendmail default edit
31
 
32
!readproc adm/vfilter/listvarfilter.proc
33
!if $varfilterclear!=$empty
34
  job=edit
35
!endif
36
!readproc adm/vfilter/varfilter proc
37
 
38
!read $job.proc