Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
 
2
wims_prefix=class user tmp n sharing sharable
3
!readdef wimshome/log/classes/$wims_class/.def
4
class_defined=
5
!default wims_superclass=$wims_class
6
classdir1=wimshome/log/classes/$wims_superclass
7
classdir2=$wims_home/log/classes/$wims_superclass
8
supertype=!defof class_type in $classdir1/.def
9
!if $supertype!=4 or $wims_user!=supervisor or \
10
	../$wims_superclass/ notin ../$wims_class/
11
 error=bad_access
12
 !exit
13
!endif
14
 
15
!read adm/class/config.auth
16
!if $error!=$empty or $jobt=auth
17
 error=unsecure
18
 !exit
19
!endif
20
 
21
!bound passhow within yes,no default no
22
!if $passhow=yes
23
 pass2=$pass
24
 passs2=$passs
25
!endif
26
job1=first,addlevel,dellevel,user,\
27
	teacher,addteacher,modteacher,delteacher
28
#	student,addstudent,modstudent,delstudent
29
default1=first
30
job2=level,addclass,delclass,addprog,delprog
31
default2=level
32
job3=class,prog,course,addcourse,delcourse,addtest,deltest,\
33
	icourse,addicourse,progshare
34
!if $wims_class=$wims_superclass
35
 lv=1
36
 jobs=$job1,$job2
37
!else
38
 csub=!replace internal ../$wims_superclass/ by in ../$wims_class
39
 lc=!translate internal / to , in $wims_class
40
 lv=!itemcnt $lc
41
 !if $lv>3 or $lv<2
42
  error=bad_access
43
  !exit
44
 !endif
45
 !if $lv=2
46
  level=$csub
47
  jobs=$job2
48
  parent=gateway
49
 !else
50
  test=$(lc[-1])
51
  !if $test>199
52
   default3=prog
53
   prog=$csub
54
   parent=level
55
   level=$(lc[2])
56
  !else
57
   default3=class
58
   class=$csub
59
   parent=level
60
   level=$(lc[2])
61
  !endif
62
  jobs=
63
 !endif
64
!endif
65
 
66
jobs=!nonempty items $jobs,$job3,backstruct
67
!bound job within $jobs default $(default$lv)
68
!read tabletheme
69
!read adm/class/limits
70
!read adm/class/authchars
71
 
72
!read jobs/$job.proc
73
 
74
!if $default3!=$empty
75
 parent=$default3
76
!endif
77
 
78
!if $job!=first
79
 !default parent=gateway
80
!endif
81
!if $parent!=$empty
82
 addline=!defof class_institution in $classdir1/.def
83
 !if $parent iswordof level class prog
84
  addline2=!defof class_description in $classdir1/$level/.def
85
  addline=$addline\
86
$addline2
87
 !endif
88
 !if $parent iswordof class
89
  addline2=!defof class_description in $classdir1/$class/.def
90
  addline=$addline\
91
$addline2
92
  parm3=job=class&class=$class
93
 !endif
94
 !if $parent iswordof prog
95
  addline2=!defof class_description in $classdir1/$prog/.def
96
  addline=$addline\
97
$addline2
98
  parm3=job=prog&prog=$prog
99
 !endif
100
!endif
101
 
102
addparms=job=first,\
103
job=level&level=$level,\
104
$parm3
105