Subversion Repositories wimsdev

!set wims_backslash_insmath=yes
# basic variable preparation.
!if robot isin $session
  !exit
!endif
!set classification_open=!defof classification_open in wimshome/log/wims.conf
!if $classification_open=yes
  !setdef wims_classification_open=yes in wimshome/sessions/$wims_session/var.stat
!endif
!if $wims_user=supervisor or $wims_supconnectshowed=yes
  !readproc adm/whoconnect
!endif

!if $directworksheet!=$empty
  !changeto launchseries.proc
!endif

wims_prefix=class user tmp cdt search m
wims_writable=exolist titlelist exototal package lastsearch \
    titb keyw datm prev next upbl dat1 dat2 front_exist
wims_readable=session wims_session wims_class wims_user lang module cmd front_exist

!read ./tabletheme
!read ./formcolors
!read adm/search_engine/names.$lang
module_language=$lang
subclasscnt=0

test=!record 0 of wimshome/public_html/modules/adm/browse/index
!if $test!=$empty
  has_browse=yes
  browse_parm=job=$browse_job&parm=$browse_parm
!endif

!if $wims_user!=$empty and $wims_class!=$empty
  !readdef ./wimshome/log/classes/$wims_class/.def
  !default class_typename=class
  !set class_authidp=!defof class_authidp in wimshome/log/classes/$wims_superclass/.def
  !set auth_method_list=cas,ldap,php
  !set auth_method=$(class_authidp[1;])
  !if $(class_authidp[1;]) isitemof $auth_method_list
    !set ext_login=$wims_external_auth
  !endif
  !if $wims_user!=supervisor
    !default ext_login=$wims_user
  !else
    !default ext_login=$wims_realuser
    !default ext_login=$wims_user
    !default ext_login=supervisor
  !endif
!endif

!read names.$lang
!if $wims_user=$empty or $wims_user=supervisor or _tool isin $wims_session
  !read adm/search_engine/search.proc
  s_lang=$search_lang
  s_category=$search_category
  s_keywords=$search_keywords
  !if $s_keywords!=$empty and $s_category!=V and $readback!=yes
    c=$gotcnt
    !if $gottype!=search
      c=0
    !endif
    !read wimshome/$s2dir/home_lastsearch
    !if $s_lang,$s_category,$s_keywords!=$lastsearch
      wims_module_log=$(s_lang)_$s_category=$c: $s_keywords
      !writefile wimshome/$s2dir/home_lastsearch lastsearch=$s_lang,$s_category,$s_keywords
    !endif
  !endif
!endif

!if $wims_user=supervisor
  docpubliccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
  doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
  sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
  test=!defof allowed_optional_module in wimshome/log/wims.conf
  !if class/freework isitemof $test
    allowed_freework=yes
  !else
    !reset allowed_freework,freeworkcnt
  !endif
  !if $allowed_freework=yes
    freeworkcnt=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
    min_freework_erasable=0
    !for k=1 to $freeworkcnt
      t=!record $k of wimshome/log/classes/$wims_class/freeworks/.freeworks
      t=!line 1 of $t
      !if $t>0
        min_freework_erasable=$k
      !endif
    !next k
  !endif
  min_sheet_erasable=0
  sheet_inpreparation=0
  !for k=1 to $sheetcnt
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
    t=!line 1 of $t
    !if $t>0
      min_sheet_erasable=$k
    !else
      sheet_inpreparation=1
    !endif
  !next k
  examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  min_exam_erasable=0
  !for k=1 to $examcnt
    t=!record $k of wimshome/log/classes/$wims_class/exams/.exams
    t=!line 1 of $t
    !if $t>0
      min_exam_erasable=$k
    !endif
  !next k
  votecnt=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
  !read wimshome/log/classes/$wims_class/Exindex
  !read adm/class/quotafree.proc proc
!!  !read ./adm/du $wims_home/log/classes/$wims_class
!!  !if $class_type iswordof 2 4 and $wims_superclass_quota!=$empty
!!    quota_free=$[$wims_superclass_quota-$du]
!!  !else
!!    quota_free=$[$wims_class_quota-$du]
!!  !endif
!endif

!if $wims_user!=$empty
  !if $wims_class_refcolor!=$empty
    wims_ref_bgcolor=$wims_class_refcolor
  !endif
  !read ./var.msgcnt
  !default class_type=0
  !if $class_type=2
    !exchange wims_institutionname, wims_classname
  !endif
  !if $class_type=1
    parentcheck=!defof user_class in wimshome/log/classes/$wims_class/.users/$wims_user
    !if $parentcheck!=$empty and $wims_superclass/ notin $parentcheck
      class_parent=$wims_superclass/$parentcheck
    !endif
  !endif
  !default wims_realuser=$wims_user
  !read adm/class/userdef logclasses,$wims_class,$wims_realuser
  supervisable=!defof user_supervisable in $userdef
  !if $class_type>=2
    !if $class_type=4
      subclasses=!record 0 of wimshome/log/classes/$wims_class/classes
      subclasses=!column 1 of $subclasses
      subclasses=!makelist $wims_class/x for x in $subclasses
      subclasscnt=!itemcnt $subclasses
      !if $wims_user=supervisor
        subclasscnt=0
      !endif
      subclass1=$wims_participate
    !endif
    !if $class_type isin 34
      !if $class_type=3
        subclasses=!record 0 of wimshome/log/classes/$wims_class/courses
      !else
        subclasses=!record 0 of wimshome/log/classes/$wims_class/classes
      !endif
      split=!translate internal / to , in $wims_class
      subclasset=!record 0 of wimshome/log/classes/$(split[1])/$(split[2])/icourses
      subclasses=!append line $subclasset to $subclasses
      subclasset=!record 0 of wimshome/log/classes/$(split[1])/icourses
      subclasses=!append line $subclasset to $subclasses
      subclasses=!column 1 of $subclasses
      subclasses=!listuniq $subclasses
      subclasses=!makelist $wims_superclass/x for x in $subclasses
      subclasscnt=!itemcnt $subclasses
      !if $wims_user=supervisor
        subclasscnt=0
      !endif
      subclass1=$class_ocourses
      subclass1=!makelist $wims_superclass/x for x in $subclass1
      upart=!listcomplement $wims_class in $wims_participate
      upart2=!defof user_courses in wimshome/log/classes/$wims_class/.users/$wims_user
      !if $upart2!=$empty
        upart2=!makelist $wims_superclass/x for x in $upart2
        upart=!append item $upart2 to $upart
      !endif
      subclass1=!listunion $subclass1 and $upart
    !endif
    !if $class_type=2
      subclasses=!sh cut -d, -f1 $wims_home/log/classes/$wims_class/.subclasses
      subclasses=!replace internal : by $ in $subclasses
      subclasses=!words2items $subclasses
      subcnt=!recordcnt wimshome/log/classes/$wims_class/.subclasses
      subclasscnt=!itemcnt $subclasses
      subclass1=$wims_participate
    !endif
    subclass1=!sort items $subclass1
    subclass2=!listcomplement $subclass1 in $subclasses
    !if $class_type iswordof 4 2
      subclass3=$wims_supervise
    !endif
    subclasscnt1=!itemcnt $subclass1
    subclasscnt2=!itemcnt $subclass2
    subclasscnt3=!itemcnt $subclass3
  !endif
!endif
!readproc ./var.cdt
!read ./otherclass.proc
!if $wims_sheet=$empty
  !!! should be on the complete home page
  !!distribute items no,no into wims_ariane_self,wims_ariane_home
  !set wims_ariane_self=no
!endif

!if $(class_actcolor)!=$empty
  !read adm/class/seqcolors
!endif