Subversion Repositories wimsdev

Rev

Rev 16512 | 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
 
17089 guerimand 3
!! --- disconnect for example class
4
!if $wims_class<10000
5
  error=closedmodexcls
6
  !reset job
7
  !exit
8
!endif
9
 
16512 guerimand 10
!if $wims_user!=supervisor
11
  job=oneuser
12
  !if $error=$empty
13
    !changeto $job.proc
14
  !endif
15
!endif
16
 
17
!if $error isitemof notsupervisor,noclass,nosupervisoremail,sendmailteacherclose
16479 guerimand 18
  !reset job
19
  !exit
20
!endif
21
 
16512 guerimand 22
!if $nb_user=0 and $wims_user=supervisor
23
  error=nouser
16479 guerimand 24
  !reset job
25
  !exit
26
!endif
27
 
16512 guerimand 28
 
16479 guerimand 29
!if $cmd!=reply and $job=sendmail
30
  !reset job
31
!endif
32
 
16482 guerimand 33
!if $cmd=new
34
  !distribute item 1,1 into selfsend,sendotherteacher
35
!endif
36
 
16479 guerimand 37
!bound job within edit,preview,sendmail default edit
38
 
39
!readproc adm/vfilter/listvarfilter.proc
40
!if $varfilterclear!=$empty
41
  job=edit
42
!endif
43
!readproc adm/vfilter/varfilter proc
44
 
45
!read $job.proc