Subversion Repositories wimsdev

!set wims_backslash_insmath=yes
# basic variable preparation.
!if robot isin $session
  !exit
!endif
!set tmp=!defof classification_open\
allowed_optional_module in wimshome/log/wims.conf
!distribute line $tmp into classification_open,wims_allowed_optional_module
!reset tmp
!if $classification_open=yes
  !set tmp=wims_classification_open=yes
!endif
!if $wims_allowed_optional_module!=$empty
  !set tmp=!append line wims_allowed_optional_module=$wims_allowed_optional_module to $tmp
!endif
!if $tmp!=$empty
  !setdef $tmp 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 themes/_procs/frontmsg.proc

!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
  !if $ext_login=SUPERVISOR
    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
!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,user_forcechpwd in $userdef
  !distribute item $supervisable into supervisable forcechpwd
  authidp=!defof class_authidp in wimshome/log/classes/$wims_class/.def
  !if $wims_realuser!=supervisor and $forcechpwd=yes and $(authidp[1;])=$empty
    test=!fileexists wimshome/sessions/$wims_session/var
    !if $test!=yes
      !writefile wimshome/$wims_sesdir/var REMOTE_ADDR=$httpd_REMOTE_ADDR\
HTTP_REFERER=$httpd_HTTP_REFERER\
QUERY_STRING=\
HTTP_USER_AGENT=$httpd_HTTP_USER_AGENT\
HTTP_COOKIE=$httpd_HTTP_COOKIE\
w_cmd=new\
w_lang=$class_lang\
w_module=$module\
w_session=$session\
w_special_parm=\
w_special_parm2=\
w_useropts=$wims_useropts\
w_wims_session=$wims_session\
w_wims_subsession=$wims_subsession\
w_wims_window=$wims_window\
w_worksheet=\
w_wims_exo=\
w_wims_isexam=\
w_wims_ismanager=$wims_ismanager\
w_wims_mode=$wims_mode\
w_wims_module_start_time=\
w_wims_protocol=$wims_protocol\
w_wims_req_time=$wims_req_time\
w_wims_scorereg=\
w_wims_session_serial=$wims_session_serial\
w_wims_session_start_time=$wims_session_start_time\
w_wims_sheet=
    !endif
    !restart module=adm/class/passwd&+job=user
  !endif
  !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
!if $wims_class!=$empty
  !if / notin $wims_class and $wims_class<=9999
    !! swork is always close in example class (protection against bad parameters in example class .def
    swork_open=0
  !else
    swork_open=!defof swork_open in wimshome/log/classes/$wims_class/swork/.def
  !endif
!endif
!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