Subversion Repositories wimsdev

Rev

Rev 10820 | Rev 12982 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10820 Rev 12618
Line 8... Line 8...
8 
classdir1=wimshome/log/classes/$wims_superclass
 8 
classdir1=wimshome/log/classes/$wims_superclass
9 
classdir2=$wims_home/log/classes/$wims_superclass
 9 
classdir2=$wims_home/log/classes/$wims_superclass
10 
supertype=!defof class_type in $classdir1/.def
 10 
supertype=!defof class_type in $classdir1/.def
11 
!if $supertype!=4 or $wims_user!=supervisor or \
 11 
!if $supertype!=4 or $wims_user!=supervisor or \
12 
	../$wims_superclass/ notin ../$wims_class/
 12 
	../$wims_superclass/ notin ../$wims_class/
13 
 error=bad_access
 13 
  error=bad_access
14 
 !exit
 14 
  !exit
15 
!endif
 15 
!endif
16 
 
 16 
 
17 
!read adm/class/config.auth
 17 
!read adm/class/config.auth
18 
!if $error!=$empty or $jobt=auth
 18 
!if $error!=$empty or $jobt=auth
19 
 error=unsecure
 19 
  error=unsecure
20 
 !exit
 20 
  !exit
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
!bound passhow within yes,no default no
 23 
!bound passhow within yes,no default no
24 
!if $passhow=yes
 24 
!if $passhow=yes
25 
 pass2=$pass
 25 
  pass2=$pass
26 
 passs2=$passs
 26 
  passs2=$passs
27 
!endif
 27 
!endif
28 
job1=first,addlevel,dellevel,user,\
 28 
job1=first,addlevel,dellevel,user,\
29 
	teacher,addteacher,modteacher,delteacher
 29 
	teacher,addteacher,modteacher,delteacher
30 
#	student,addstudent,modstudent,delstudent
 30 
#	student,addstudent,modstudent,delstudent
31 
default1=first
 31 
default1=first
32 
job2=level,addclass,addcsvclass,delclass,addprog,delprog
 32 
job2=level,addclass,addcsvclass,delclass,addprog,delprog
33 
default2=level
 33 
default2=level
34 
job3=class,prog,course,addcourse,delcourse,addtest,deltest,\
 34 
job3=class,prog,course,addcourse,delcourse,addtest,deltest,\
35 
	icourse,addicourse,progshare
 35 
	icourse,addicourse,progshare
36 
!if $wims_class=$wims_superclass
 36 
!if $wims_class=$wims_superclass
37 
 lv=1
 37 
  lv=1
38 
 jobs=$job1,$job2
 38 
  jobs=$job1,$job2
39 
!else
 39 
!else
40 
 csub=!replace internal ../$wims_superclass/ by in ../$wims_class
 40 
  csub=!replace internal ../$wims_superclass/ by in ../$wims_class
41 
 lc=!translate internal / to , in $wims_class
 41 
  lc=!translate internal / to , in $wims_class
42 
 lv=!itemcnt $lc
 42 
  lv=!itemcnt $lc
43 
 !if $lv>3 or $lv<2
 43 
  !if $lv>3 or $lv<2
44 
  error=bad_access
 44 
    error=bad_access
45 
  !exit
 45 
    !exit
46 
 !endif
 46 
  !endif
47 
 !if $lv=2
 47 
  !if $lv=2
48 
  level=$csub
 48 
    level=$csub
49 
  jobs=$job2
 49 
    jobs=$job2
50 
  parent=gateway
 50 
    parent=gateway
51 
 !else
 - 
 
52 
  test=$(lc[-1])
 - 
 
53 
  !if $test>199
 - 
 
54 
   default3=prog
 - 
 
55 
   prog=$csub
 - 
 
56 
   parent=level
 - 
 
57 
   level=$(lc[2])
 - 
 
58 
  !else
 51 
  !else
- 
 
 52 
    test=$(lc[-1])
- 
 
 53 
    !if $test>199
- 
 
 54 
      default3=prog
- 
 
 55 
      prog=$csub
- 
 
 56 
      parent=level
- 
 
 57 
      level=$(lc[2])
- 
 
 58 
    !else
59 
   default3=class
 59 
      default3=class
60 
   class=$csub
 60 
      class=$csub
61 
   parent=level
 61 
      parent=level
62 
   level=$(lc[2])
 62 
      level=$(lc[2])
- 
 
 63 
    !endif
- 
 
 64 
    jobs=
63 
  !endif
 65 
  !endif
64 
  jobs=
 - 
 
65 
 !endif
 - 
 
66 
!endif
 66 
!endif
67 
 
 67 
 
68 
jobs=!nonempty items $jobs,$job3,backstruct
 68 
jobs=!nonempty items $jobs,$job3,backstruct
69 
!bound job within $jobs default $(default$lv)
 69 
!bound job within $jobs default $(default$lv)
70 
!read tabletheme
 70 
!read tabletheme
71 
!read adm/class/limits
 71 
!read adm/class/limits
72 
!read adm/class/authchars
 72 
!read adm/class/authchars
73 
 
 73 
 
74 
!read jobs/$job.proc
 74 
!read jobs/$job.proc
75 
 
 75 
 
76 
!if $default3!=$empty
 76 
!if $default3!=$empty
77 
 parent=$default3
 77 
 parent=$default3
78 
!endif
 78 
!endif
79 
 
 79 
 
80 
!if $job!=first
 80 
!if $job!=first
81 
 !default parent=gateway
 81 
  !default parent=gateway
82 
!endif
 82 
!endif
83 
!if $parent!=$empty
 83 
!if $parent!=$empty
84 
 addline=!defof class_institution in $classdir1/.def
 84 
  addline=!defof class_institution in $classdir1/.def
85 
 title_parent=!defof class_description in $classdir1/$level/.def
 85 
  title_parent=!defof class_description in $classdir1/$level/.def
86 
 !if $parent iswordof level class prog
 86 
  !if $parent iswordof level class prog
87 
  addline2=!defof class_description in $classdir1/$level/.def
 87 
    addline2=!defof class_description in $classdir1/$level/.def
88 
  addline=$addline\
 88 
    addline=$addline\
89 
$addline2
 89 
$addline2
90 
 !endif
 90 
  !endif
91 
 !if $parent iswordof class
 91 
  !if $parent iswordof class
92 
  addline2=!defof class_description in $classdir1/$class/.def
 92 
    addline2=!defof class_description in $classdir1/$class/.def
93 
  addline=$addline\
 - 
 
94 
$addline2
 - 
 
95 
  parm3=job=class&class=$class
 - 
 
96 
 !endif
 - 
 
97 
 !if $parent iswordof prog
 - 
 
98 
  addline2=!defof class_description in $classdir1/$prog/.def
 - 
 
99 
  addline=$addline\
 93 
    addline=$addline\
100 
$addline2
 94 
$addline2
- 
 
 95 
    parm3=job=class&class=$class
- 
 
 96 
  !endif
- 
 
 97 
  !if $parent iswordof prog
- 
 
 98 
    addline2=!defof class_description in $classdir1/$prog/.def
- 
 
 99 
    addline=$addline\
- 
 
 100 
$addline2
101 
  parm3=job=prog&prog=$prog
 101 
    parm3=job=prog&prog=$prog
102 
 !endif
 102 
  !endif
103 
!endif
 103 
!endif
104 
addparms=job=first,\
 104 
addparms=job=first,\
105 
job=level&level=$level,\
 105 
job=level&level=$level,\
106 
$parm3
 106 
$parm3
107 
 
 107 
 
108 
!set name_prog=$name_program
 108 
!set name_prog=$name_program
109 
!if $addline$thiscode$thistitle!=$empty
 109 
!if $addline$thiscode$thistitle!=$empty
110 
 !set l=!linecnt $addline
 110 
  !set l=!linecnt $addline
111 
 !for i=1 to $l
 111 
  !for i=1 to $l
112 
  !set l_=!line $i of $addline
 112 
    !set l_=!line $i of $addline
113 
  !set t_=!item $i of $addparms
 113 
    !set t_=!item $i of $addparms
114 
  !if $lv<=$i
 114 
    !if $lv<=$i
115 
   !set wims_ariane=!append line backgateway $l_,1,cmd=reply&$t_\
 115 
      !set wims_ariane=!append line backgateway $l_,1,cmd=reply&$t_\
116 
to $wims_ariane
 116 
to $wims_ariane
117 
 !next i
 117 
  !next i
118 
 !if $thiscode!=$empty
 118 
  !if $thiscode!=$empty
119 
  !if $thiscode!=$wims_superclass and $wims_superclass/$thiscode!=$wims_class
 119 
    !if $thiscode!=$wims_superclass and $wims_superclass/$thiscode!=$wims_class
120 
    !set wims_ariane=!append line backgateway $class_description,8,\
 120 
      !set wims_ariane=!append line backgateway $class_description,8,\
121 
to $wims_ariane
 121 
to $wims_ariane
- 
 
 122 
    !endif
122 
  !endif
 123 
  !endif
123 
 !endif
 - 
 
124 
!endif
 124 
!endif
125 
wims_ariane_self=no
 125 
wims_ariane_self=no
126 
!if $wims_ariane=$empty
 126 
!if $wims_ariane=$empty
127 
  !set wims_ariane=!append line backgateway $title_parent $thiscode,8,\
 127 
  !set wims_ariane=!append line backgateway $title_parent $thiscode,8,\
128 
to $wims_ariane
 128 
to $wims_ariane