Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
# Variable calculations should be done in this file.
2
# It is read and interpreted by wims for all valid calls to the module.
8335 guerimand 3
!if $wims_class=$empty
12159 obado 4
  !restart module=home
8335 guerimand 5
!endif
7720 bpr 6
!readproc adm/whoconnect
23 reyssat 7
wims_prefix=class user tmp n sharing sharable
8
!read adm/class/authchars
8255 bpr 9
max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf
23 reyssat 10
title_limit=80
11
desc_limit=4000
12
!read tabletheme
13
wims_helper=chapter=3
14
userdir=!item -1 of $wims_superclass
15
!default userdir=$wims_class
5151 bpr 16
sclassdir=log/classes/$userdir
23 reyssat 17
userdir=log/classes/$userdir/.users
7901 bpr 18
 
23 reyssat 19
!if $wims_user=$empty
12159 obado 20
  error=not_supervisor
21
  !exit
23 reyssat 22
!endif
23
 
24
!if $wims_user!=supervisor
12159 obado 25
  !reset deluser,delprep
26
  !bound job within userprop default userprop
27
  getuser=$wims_user
28
  !if $abandon!=$empty
8993 guerimand 29
    !restart module=home
12159 obado 30
  !endif
8306 guerimand 31
!else
12159 obado 32
  !if $wims_supertype=2
33
    joblist=userprop,teacher
34
  !else
35
    joblist=userprop
36
  !endif
37
  !readproc adm/vfilter/varfilter proc
38
  !if $wims_typename iswordof group and $wims_supertype=2
39
    !bound job within $joblist,delprep,deluser,recover,transfer,userlist,regmanage default userlist
40
  !else
41
    !bound job within $joblist,delprep,deluser,recover,transfer,userlist default userlist
42
  !endif
23 reyssat 43
!endif
44
 
8333 guerimand 45
!read adm/class/classlang
46
 
47
!if $cmd=help
12159 obado 48
  !exit
8333 guerimand 49
!endif
50
 
8320 guerimand 51
wims_module_log=$job
52
!changeto $job.proc