Subversion Repositories wimsdev

Rev

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

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