Subversion Repositories wimsdev

Rev

Rev 12056 | Rev 12159 | 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
4
 !restart module=home
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
1888 bpr 18
tooltip_parm=FONTSIZE,'11pt',ABOVE,'true'
6235 bpr 19
picto=<img src="gifs/picto.gif" alt="picto" />
7901 bpr 20
 
23 reyssat 21
!if $wims_user=$empty
22
 error=not_supervisor
23
 !exit
24
!endif
25
 
26
!if $wims_user!=supervisor
8446 guerimand 27
 !reset deluser,delprep
8316 guerimand 28
 !bound job within userprop default userprop
8315 guerimand 29
 getuser=$wims_user
8993 guerimand 30
 !if $abandon!=$empty
31
    !restart module=home
32
 !endif
8306 guerimand 33
!else
12071 guerimand 34
    !if $wims_supertype=2
35
	joblist=userprop,teacher
36
    !else
37
	joblist=userprop
38
    !endif
9987 guerimand 39
    !readproc adm/vfilter/varfilter proc
9361 guerimand 40
    !if $wims_typename iswordof group and $wims_supertype=2
12071 guerimand 41
	!bound job within $joblist,delprep,deluser,recover,transfer,userlist,regmanage default userlist
9361 guerimand 42
    !else
12071 guerimand 43
	!bound job within $joblist,delprep,deluser,recover,transfer,userlist default userlist
9361 guerimand 44
    !endif
23 reyssat 45
!endif
46
 
8333 guerimand 47
!read adm/class/classlang
48
 
49
!if $cmd=help
50
 !exit
51
!endif
52
 
53
 
8320 guerimand 54
wims_module_log=$job
55
!changeto $job.proc
4223 bpr 56
 
1587 bpr 57