Subversion Repositories wimsdev

Rev

Rev 5220 | Rev 7562 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

# basic variable preparation.
!if robot isin $session
 !exit
!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 names.$lang
!read adm/search_engine/names.$lang
!read ./languages
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
 !readdef ./wimshome/log/classes/$wims_class/.def
 !default class_typename=class
!endif

!if $wims_user=$empty or $wims_user=supervisor or _tool isin $wims_session
 !read 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
 min_sheet_erasable=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
  !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/du $wims_home/log/classes/$wims_class
 !if $class_type=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
   class_parent=$wims_superclass/$parentcheck
  !endif
 !endif
 !if $class_type>=2
  !read adm/class/userdef logclasses,$wims_class,$wims_user
  supervisable=!defof user_supervisable in $userdef
  !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=3
   subclasses=!record 0 of wimshome/log/classes/$wims_class/courses
   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
 !readproc ./var.cdt
!endif