Subversion Repositories wimsdev

Rev

Rev 12933 | 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
12933 guerimand 9
max_sheets=!defof MAX_SHEETS\
10
MAX_REGVARS in wimshome/public_html/bases/sys/define.conf
11
!distribute line $max_sheets into max_sheets,limit_regvars
23 reyssat 12
title_limit=80
13
desc_limit=4000
14
!read tabletheme
15
wims_helper=chapter=3
16
userdir=!item -1 of $wims_superclass
17
!default userdir=$wims_class
5151 bpr 18
sclassdir=log/classes/$userdir
23 reyssat 19
userdir=log/classes/$userdir/.users
7901 bpr 20
 
23 reyssat 21
!if $wims_user=$empty
12159 obado 22
  error=not_supervisor
23
  !exit
23 reyssat 24
!endif
25
 
26
!if $wims_user!=supervisor
12159 obado 27
  !reset deluser,delprep
13164 guerimand 28
  !bound job within userprop,getclasspwd default userprop
12159 obado 29
  getuser=$wims_user
30
  !if $abandon!=$empty
8993 guerimand 31
    !restart module=home
12159 obado 32
  !endif
8306 guerimand 33
!else
12159 obado 34
  !if $wims_supertype=2
35
    joblist=userprop,teacher
36
  !else
37
    joblist=userprop
38
  !endif
39
  !readproc adm/vfilter/varfilter proc
40
  !if $wims_typename iswordof group and $wims_supertype=2
41
    !bound job within $joblist,delprep,deluser,recover,transfer,userlist,regmanage default userlist
42
  !else
43
    !bound job within $joblist,delprep,deluser,recover,transfer,userlist default userlist
44
  !endif
23 reyssat 45
!endif
46
 
8333 guerimand 47
!read adm/class/classlang
48
 
49
!if $cmd=help
12159 obado 50
  !exit
8333 guerimand 51
!endif
52
 
8320 guerimand 53
wims_module_log=$job
54
!changeto $job.proc