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 |