Subversion Repositories wimsdev

!read adm/language lang/names.phtml

!read adm/levelname.phtml

!if robot isin $wims_session

 error=bad_sheet

 !exit

!endif

wims_trustfile=primitives/target.phtml

wims_prefix=class user tmp techvar

wims_prefix2=$wims_prefix

!set wims_backslash_insmath=yes

wims_nw=deps prcnt empty job class_header data\

  imagedir Imagedir Class_header wims_prefix wims_prefix2

!default prcnt=0

authscoresuspend=!defof class_authscoresuspend in wimshome/log/classes/$wims_class/.def

wims_class_exolog=!defof class_exolog in wimshome/log/classes/$wims_class/.def

!default authscoresuspend=yes

!setdef wims_authscoresuspend=$authscoresuspend in wimshome/sessions/$wims_session/var.stat

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

!set severity=!line $sh+1 of $severity

!distribute words $severity into severity_w,severity_s,severity_ss

!set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf

!distribute words $tmp into tmp_w,tmp_s,tmp_ss

!bound severity_w between 0 and 100000 default $tmp_w

!bound severity_s between integer 0 and 6 default $tmp_s

!bound severity_ss between integer 0 and 2 default $tmp_ss

!reset tmp tmp_w tmp_s tmp_ss

!set severity=$severity_w,$severity_s,$severity_ss

!setdef wims_severity=$severity in wimshome/sessions/$wims_session/var.stat

!if $authscoresuspend=yes

  !if $job=suspend

    wims_scorereg=suspend

  !endif

  !if $job=reopen

    wims_scorereg=$empty

  !endif

  !if ($job=suspend or $job=reopen) and $exo!=$empty

    !let limit=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sh

    !bound exo between 1 and $limit default 0

    !if $exo!=0

      !set ex=!record $exo of wimshome/log/classes/$wims_class/sheets/.sheet$sh

      !distribute lines $ex into di,pa,require,we,ti,de

      !setdef w_wims_scorereg=$wims_scorereg in wimshome/sessions/$wims_session/var

      !restart module=$di&cmd=new&worksheet=$public$sh&$pa

    !endif

  !endif

!else

  wims_scorereg=$empty

  !setdef w_wims_scorereg=$empty in wimshome/sessions/$wims_session/var

!endif

!if $seq!=

  !set wims_sequence=$seq

!endif

!bound job within read,raw,import,print default read

c=!char 1 of $sh

!if $c=P or $wims_class=$empty or / isin $sh

  public=P

  !if $c=P

    sh=!char 2 to -1 of $sh

  !endif

!endif

!if $job iswordof raw import and ($public!=P or $wims_user!=supervisor)

  job=read

!endif

!if $public!=P

  !bound sh between integer 1 and 1024 default 0

  !if $sh=0

    :badsheet

    error=bad_sheet

    !exit

  !endif

  data=wimshome/log/classes/$wims_class/sheets/.sheet$sh

  sheet=!record $sh of wimshome/log/classes/$wims_class/sheets/.sheets

  !if $wims_user!=supervisor

    !! ------test if sheet is hidden for this user

    h_=!line 9 of $sheet

    !if $h_!=$empty

      !readproc adm/vfilter/ishiddensheet.proc $h_

      !if $hidden_sheet=1

        error=sheet_hidden

        !exit

      !endif

    !endif

    !! -----end test

  !endif

  !distribute lines $sheet into sheet_active,sheet_expiration,sheet_title,sheet_desc,sheet_docpage

  !if $wims_user != supervisor and $sheet_active notin 12

    !distribute items $ into sheet_active,sheet_expiration,sheet_title,sheet_desc,sheet_docpage

    !if $job=print

      job=read

    !endif

  !endif

  sheet_docpage=!word 1 of $sheet_docpage

  !if $sheet_docpage!=$empty

    docdef=wimshome/log/classes/$wims_class/doc/$sheet_docpage.def

    doctit=!getdef titb in $docdef

    !if $doctit=$empty

     !reset docdef sheet_docpage

    !endif

  !endif

  requires=!getscorerequire sheet=$sh

  scores=!getscore sheet=$sh

  means=!getscoremean sheet=$sh

  bests=!getscorebest sheet=$sh

  levels=!getscorelevel sheet=$sh

  alltries=!getscorealltries sheet=$sh

  !if $sheet_active=$empty

    n=0

  !else

    n=!recordcnt $data

  !endif

  !if $job=read and $n>0

    !read adm/mkdepsheet.proc $sh

  !endif

  exolog=!filelist $wims_home/$wims_sesdir/exolog.$sh.*

!else

  dd=!record 0 of wimshome/$wims_sesdir/.sheets

  !if / isin $sh

    test=!positionof line $sh in $dd

    !if $test=$empty

      !appendfile wimshome/$wims_sesdir/.sheets $sh

      shn=!linecnt $dd

      !advance shn

    !else

      shn=!item 1 of $test

    !endif

  !else

    !bound sh between integer 1 and 1024 default 0

    !if $sh=0

      !goto badsheet

    !endif

    shn=$sh

    sh=!line $shn of $dd

    sh=!trim $sh

    !if $sh=$empty

      !goto badsheet

    !endif

  !endif

  data=wimshome/public_html/bases/sheet/$sh.def

  sheet=!record 0 of $data

  sheet=!trim $sheet

  !distribute lines $sheet into sheet_title, sheet_desc, sheet_duration,\

    sheet_severity, sheet_level, sheet_domain, sheet_keywords

  !!sheet_remark=!lines 10 to -1 of $sheet

  !distribute words $sheet_duration into sheet_duration,sheet_year

  sheet_active=1

  n=!recordcnt $data

!endif

!!setdef wims_sheettitle=$sheet_title in wimshome/sessions/$wims_session/var.stat

maxexo=!recordcnt $data

!setdef wims_sheetmax=$maxexo in wimshome/sessions/$wims_session/var.stat

!reset exofeedback

!for e=1 to $maxexo

  redir=!record $e of wimshome/log/classes/$wims_class/sheets/.sheet$sh

  redir=!line 9 of $redir

  !if $redir!=$empty

    redir=[$redir]

  !endif

  !if $e=1

    exofeedback=$redir

  !else

    exofeedback=$exofeedback;$redir

  !endif

!next

!setdef wims_exofeedback=$exofeedback in wimshome/sessions/$wims_session/var.stat

!if $job iswordof print import

  !read $job.proc

!endif