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,addcsvclass,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

!!! $auth_method_list ?? was working for cas before without that ?
!if $auth_method isitemof php
  login=$user_auth
!endif


!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
    !endif
  !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