Subversion Repositories wimsdev

!read adm/class/classlang names.phtml

wims_prefix=class user tmp n sharing sharable
!read adm/class/initclass $wims_class, auth
!readdef wimshome/log/classes/$wims_class/.def
class_defined=
!default wims_superclass=$wims_class
classdir1=wimshome/log/classes/$wims_superclass
classdir2=$wims_home/log/classes/$wims_superclass
supertype=!defof class_type in $classdir1/.def
!if $supertype!=4 or $wims_user!=supervisor or \
        ../$wims_superclass/ notin ../$wims_class/
 error=bad_access
 !exit
!endif

!read adm/class/config.auth
!if $error!=$empty or $jobt=auth
 error=unsecure
 !exit
!endif

!bound passhow within yes,no default no
!if $passhow=yes
 pass2=$pass
 passs2=$passs
!endif
job1=first,addlevel,dellevel,user,\
        teacher,addteacher,modteacher,delteacher
#       student,addstudent,modstudent,delstudent
default1=first
job2=level,addclass,delclass,addprog,delprog
default2=level
job3=class,prog,course,addcourse,delcourse,addtest,deltest,\
        icourse,addicourse,progshare
!if $wims_class=$wims_superclass
 lv=1
 jobs=$job1,$job2
!else
 csub=!replace internal ../$wims_superclass/ by in ../$wims_class
 lc=!translate internal / to , in $wims_class
 lv=!itemcnt $lc
 !if $lv>3 or $lv<2
  error=bad_access
  !exit
 !endif
 !if $lv=2
  level=$csub
  jobs=$job2
  parent=gateway
 !else
  test=$(lc[-1])
  !if $test>199
   default3=prog
   prog=$csub
   parent=level
   level=$(lc[2])
  !else
   default3=class
   class=$csub
   parent=level
   level=$(lc[2])
  !endif
  jobs=
 !endif
!endif

jobs=!nonempty items $jobs,$job3,backstruct
!bound job within $jobs default $(default$lv)
!read tabletheme
!read adm/class/limits
!read adm/class/authchars

!read jobs/$job.proc

!if $default3!=$empty
 parent=$default3
!endif

!if $job!=first
 !default parent=gateway
!endif
!if $parent!=$empty
 addline=!defof class_institution in $classdir1/.def
 title_parent=!defof class_description in $classdir1/$level/.def
 !if $parent iswordof level class prog
  addline2=!defof class_description in $classdir1/$level/.def
  addline=$addline\
$addline2
 !endif
 !if $parent iswordof class
  addline2=!defof class_description in $classdir1/$class/.def
  addline=$addline\
$addline2
  parm3=job=class&class=$class
 !endif
 !if $parent iswordof prog
  addline2=!defof class_description in $classdir1/$prog/.def
  addline=$addline\
$addline2
  parm3=job=prog&prog=$prog
 !endif
!endif
addparms=job=first,\
job=level&level=$level,\
$parm3

!set name_prog=$name_program
!if $addline$thiscode$thistitle!=$empty
 !set l=!linecnt $addline
 !for i=1 to $l
  !set l_=!line $i of $addline
  !set t_=!item $i of $addparms
  !if $lv<=$i
   !set wims_ariane=!append line backgateway $l_,1,cmd=reply&$t_\
to $wims_ariane
 !next i
 !if $thiscode!=$empty
  !if $thiscode!=$wims_superclass and $wims_superclass/$thiscode!=$wims_class
    !set wims_ariane=!append line backgateway $class_description,8,\
to $wims_ariane
  !endif
 !endif
!endif
wims_ariane_self=no
!if $wims_ariane=$empty
  !set wims_ariane=!append line backgateway $title_parent $thiscode,8,\
to $wims_ariane
!endif