Subversion Repositories wimsdev

!!no more use !
!!input :user, class, sheet (optional), exo (optional)
!!output:
!! script_out: lines for each exo in sheet coming from exostat
!!  should put only the best things ??
!! script_best: best result (depending on the required points)
!! script_p3 (average of best result, only in the case sheet and exo are empty
!! should be the third word of the result of !getscorepercent

!distribute items $wims_read_parm into sc_user,sc_class,sc_sheet,sc_exo
!reset script_out script_best script_percent3
!if $sc_exo!=$empty
  !set script_out=!sh export exostat_dirbase exostat_types exostat_classes exostat_user exostat_sheet\
        exostat_dirbase=$wims_home/log/classes\
        exostat_types="score"\
        exostat_classes="$sc_class"\
        exostat_user="$sc_user"\
        exostat_sheet="$sc_sheet"\
        $wims_home/bin/exostat
  !set sc_best_=!getopt $(sc_sheet)_$(sc_exo) in $script_out
  !set sc_best_=!nonempty items $(sc_best_[2;])
  !set sc_best_=!sort reverse numeric items $sc_best_
  !if $sc_best_!=$empty
    !set sc_req=!getscorerequire sheet=$sc_sheet exo=$(sc_exo)
    !set sc_req=$[ceil(min(10,$sc_req/10))]
    !set sc_best=!replace internal , by + in $(sc_best_[1..$sc_req])
    !set script_best=$[$sc_best]
  !endif
  !goto end
!endif

!if $sc_sheet!=$empty

  !reset script_out
  !set sc_sheet=!words2items $sc_sheet
  !reset sc_best
  !set sc_sheet_cnt=!itemcnt $sc_sheet
  !for sc_s=1 to $sc_sheet_cnt
    !set sc_sh=$(sc_sheet[$sc_s])
    !set script_out=!sh export exostat_dirbase exostat_types exostat_classes exostat_user exostat_sheet\
        exostat_dirbase=$wims_home/log/classes\
        exostat_types="score"\
        exostat_classes="$sc_class"\
        exostat_user="$sc_user"\
        exostat_sheet="$sc_sh"\
        $wims_home/bin/exostat

    !if $script_out!=$empty
      !set script_p3=0
      !set sc_wg=0
      !set sc_require=!getscorerequire sheet=$sc_sh
      !set sc_weight=!getscoreweight sheet=$sc_sh
      !set sc_d=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sc_sh
      !reset script_best
      !for sc_ex=1 to $sc_d
        !set sc_best_=!getopt $(sc_sh)_$(sc_ex) in $script_out
        !set sc_best_=!nonempty items $(sc_best_[2;])
        !set sc_best_=!sort reverse numeric items $sc_best_
        !if $sc_best_!=$empty
          !set sc_req=!word $(sc_ex) of $sc_require
          !set sc_req=$[ceil(min(10,$sc_req/10))]
          !set sc_best_=!replace internal , by + in $(sc_best_[1..$sc_req])
          !set sc_best_=$[round(10*($sc_best_)/$sc_req)/10]
          !set sc_w=!word $(sc_ex) of $sc_weight
          !set sc_wg=$[$sc_wg + $sc_w]
          !set script_p3=$script_p3 + $sc_w*$sc_best_
        !endif
        !!leave the empty items
        !set sc_best=$sc_best$sc_best_,
      !next exo

      !set script_best=!append line $sc_best to $script_best
      !set script_percent3=!append line $[ceil(100*($script_p3)/$sc_wg)/1000] to $script_percent3\
      !set script_out=!append line $script_out_ to $script_out
    !else
      !set script_best=!append line 0 to $script_best
      !set script_percent3=!append line 0 to $script_percent3
    !endif
  !next sheet
!endif
:end