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 |