Subversion Repositories wimsdev

# Variable calculations should be done in this file.
# It is read and interpreted by wims for all valid calls to the module.
!readproc adm/whoconnect
wims_prefix=class user tmp n sharing sharable
!read adm/class/authchars
max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf
title_limit=80
desc_limit=4000
!!use for avoid the variable_overflow
TOO_BIG=320
!read tabletheme
wims_helper=chapter=3
userdir=!item -1 of $wims_superclass
!default userdir=$wims_class
sclassdir=log/classes/$userdir
userdir=log/classes/$userdir/.users

shweights=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity

!if $wims_user=$empty
  error=not_supervisor
  !exit
!endif

!if $cmd=help
  !read adm/class/classlang
  !exit
!endif

!if $wims_user!=supervisor
  !reset deluser,formula,getraw,delprep
  !bound job within getuser,examcheck,getraw default getuser
  getuser=$wims_user
!else
  !readproc adm/vfilter/listvarfilter.proc
  !readproc adm/vfilter/varfilter proc
  !bound job within getuser,userprop,examcheck,getraw,userexam,userexamclose,showsheet,csv,formula,sheets,$empty default $empty
!endif
!read adm/class/classlang

!if $cmd=reply && $job=examcheck
  !changeto var.proc.examcheck
!endif

!if $job=showsheet
  show_tmp=!words2items $show
  !!no comma in the first field of the line for oneitem.phtml
  !set wims_ariane=!append line sheet $show,1,cmd=reply&job=sheets&showsheet=$show_tmp\
to $wims_ariane

  !changeto var.proc.showsheet
!endif

deluser=!word 1 of $deluser
!if $job=sheets
  show=!translate , to $ $ in $showsheet
!else
  showsheet=!words2items $show
!endif
mean_per=0
mean_av=0
!set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
!set tmp=!word 1 of $tmp
!for i in $showsheet
  !distribute item 0,0,0 into per_$i, av_$i, cnt_$i
!next i
sheetcnt=!itemcnt $showsheet
!if $activesheets=$empty
  scoremax=!line 1 of $shweights
  !default scoremax=10
  defaultformula=!line 2 to -1 of $shweights
  examweights=!record 0 of wimshome/log/classes/$wims_class/exams/.eseverity
  n=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
  !distribute item $ into activevars,activesh

  seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def
  !set seq_=!record 0 of wimshome/log/classes/$wims_class/seq/.sequences
  !set seq_cnt=!line 1 of $seq_
  !if $seq_open!=yes or $seq_cnt= or $seq_cnt=0
    !for i=1 to $n
      s=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
      !distribute lines $s into a,e,t,d,bl,bl,bl,bl,hi,indiv
            !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$getuser
      !set tmp_sheetstatusgen=!getsheetstatus sheet=$i user=no
      !if $tmp_sheetstatus<3 or $tmp_sheetstatusgen=3
        shw=!line $i+1 of $shweights
        shw=!word 1 of $shw
        !bound shw between 0 and 100000 default $tmp
        !if $tmp_sheetstatus>0 and ($tmp_sheetstatus=1 or $wims_user=supervisor or $shw>0)
          ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
          activesheets=!append line $i,$ec,$indiv,$t to $activesheets
          activesh=!append item $i to $activesh
        !endif
      !endif
    !next i
  !else
    !!!for sequences
    !set seq_reverse=!defof sequence_reverse in wimshome/log/classes/$wims_class/seq/.def
    !if $wims_user=supervisor
      listshowseq=!values 1 for v=1 to $seq_cnt
    !else
      listshowseq=!values 0 for v=1 to $seq_cnt
    !endif
    !!!!!! for compatibility. Will be remove in the definitive version
    !read adm/class/sheetindex
    !!!!!!
    !for ii=1 to $seq_cnt
      !if $seq_reverse=yes
        !set iii=$[$seq_cnt+2-$ii]
      !else
        !set iii=$[$ii+1]
      !endif
      riii=$[$iii-1]
      !!  ----- test if sequence is active and not hidden for user
      !if $wims_user!=supervisor and $job=getuser
        tmp=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$riii
        tmp=!line 4 of $tmp
        !if $tmp=1
          !readproc adm/class/checkuserscorecondition S$riii
        !else
          output=no
        !endif
      !else
        output=yes
      !endif
      !if $output=yes
         listshowseq=!replace item number $riii by 1 in $listshowseq
      !endif
      n=!itemcnt $(seq_[$iii;])
      !for j=2 to $n
        !if sheet isin $(seq_[$iii;$j])
          i=!word 2 of $(seq_[$iii;$j])
          s=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
          !distribute lines $s into a,e,t,d,bl,bl,bl,bl,hi,indiv
          !! ------test status of sheet for this user
          !if $wims_user=supervisor and $job=getuser
            !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$getuser
          !else
            !set tmp_sheetstatus=!getsheetstatus sheet=$i
          !endif
          !if $tmp_sheetstatus<3
            shw=!line $i+1 of $shweights
            shw=!word 1 of $shw
            !bound shw between 0 and 100000 default $tmp
            !if $tmp_sheetstatus>0 and ($tmp_sheetstatus=1 or $wims_user=supervisor or $shw>0)
              ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
              activesheets=!append line $i,$ec,$indiv,$riii,$t to $activesheets
              activesh=!append item $i to $activesh
            !endif
          !endif
        !endif
      !next j
    !next ii
  !endif seq_open
  !reset activexams
  ecnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  !for i=1 to $ecnt
    e=!record $i of wimshome/log/classes/$wims_class/exams/.exams
    e=!word 1 of $e
    !if $e>0
      activexams=!append item $i to $activexams
    !endif
  !next i
!endif activesheets=$empty
activecnt=!linecnt $activesheets
eactivecnt=!itemcnt $activexams

!bound job_affi within notes,points,quality,best,level default notes
!if $showsheet=$empty and $job_affi!=notes
  showsheet=$activesh
  !for i in $showsheet
    !distribute item 0,0,0 into per_$i, av_$i, cnt_$i
  !next i
!endif

!!! allow the definition of the sheet calculation formula f_$i
!read var.proc.weights
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist

job=!word 1 of $job
!if $job iswordof getuser getraw delprep deluser userexam userexamclose
  logname=$getuser$getraw$delprep$deluser
  !read adm/class/userdef classes,$wims_class,$logname
  !defread $userdef
  lastname=$user_lastname
  firstname=$user_firstname
!endif

!if $job=$empty or $job iswordof sheets csv
  m=!record 1 of wimshome/log/classes/$wims_class/.grades
  !distribute lines $m into manual,titles,weights
  gcnt=!itemcnt $titles
  gcnt=$[$gcnt-2]
  !if $gcnt<1
    manual=0
  !else
    mwtot=0
    !for g=1 to $gcnt
      w$g=!item $g+2 of $weights
      mwtot=$[$mwtot+$(w$g)]
    !next g
  !endif
  !if $gcnt>0
    uucnt=!recordcnt wimshome/log/classes/$wims_class/.grades
    !for i=2 to $uucnt
      l=!record $i of wimshome/log/classes/$wims_class/.grades
      n=!item 1 of $l
      g=!item 3 to -1 of $l
      n=!hex $n
      Manual_$n=$g
      mm=0
      !for j=1 to $gcnt
        g_=!item $j of $g
        !if $g_!=$empty
          mm=$[$mm+($(w$j))*($g_)]
        !endif
      !next j
      manual_$n=$[rint(100*$mm/$mwtot)/100]
    !next i
  !endif
!endif
!if $job!=$empty
  wims_module_log=$job
  !read var.proc.$job
!endif
!reset tmp