Subversion Repositories wimsdev

 dl=!replace $t $ by $t in $dl

  dl=!replace $t $ by $t in $dl

  !for i in $activexams

!for i in $activexams

    !if examexo$i iswordof $dl

  !if examexo$i iswordof $dl

      tmp=!select $exe where column 1 = $i

    tmp=!select $exe where column 1 = $i

      dl=!replace word examexo$i by $(tmp[2..-1]) in $dl

    dl=!replace word examexo$i by $(tmp[2..-1]) in $dl

      dl=!replace word examexo$i by  in $dl

    dl=!replace word examexo$i by  in $dl

    !endif

  !endif

  !next i

!next i

   dl4=!replace , by ,user_ in user_$dl_v

  dl4=!replace , by ,user_ in user_$dl_v

   dl4=$sep$dl4

  dl4=$sep$dl4

   dl5=$sep$dl5

  dl5=$sep$dl5

   dl=$dl$sep$dl_var

  dl=$dl$sep$dl_var

 dl4=!replace , by $(quote),$(quote) in $(quote)$dl4$(quote)

  dl4=!replace , by $(quote),$(quote) in $(quote)$dl4$(quote)

 dl4=!char 3 to -1 of $dl4

  dl4=!char 3 to -1 of $dl4

 dl5=!replace user_ by $$name_user_ in $dl4

  dl5=!replace user_ by $$name_user_ in $dl4

 dl4=!replace user_ by $$user_ in $dl4

  dl4=!replace user_ by $$user_ in $dl4

 dl5=$empty

  dl5=$empty

 scores=yes

  scores=yes

!! reinitialise variables of type user_

  !! reinitialise variables of type user_

 !reset user_lastname,user_firstname,user_email,user_regnum,user_comments,\

  !reset user_lastname,user_firstname,user_email,user_regnum,user_comments,\

     user_external_auth,user_supervise,user_participate,user_supervisable

      user_external_auth,user_supervise,user_participate,user_supervisable

 !for n in $regvarlist

  !for n in $regvarlist

   !reset user_$n

    !reset user_$n

 !next

  !next

 l=!record $u of wimshome/log/classes/$wims_class/.userlist

  l=!record $u of wimshome/log/classes/$wims_class/.userlist

 user_login=!item 3 of $l

  user_login=!item 3 of $l

 uu=$user_login

  uu=$user_login

 uuu=!hex $uu

  uuu=!hex $uu

 !reset $basic,$dl4r

  !reset $basic,$dl4r

 !read adm/class/userdef classes,$wims_class,$user_login

  !read adm/class/userdef classes,$wims_class,$user_login

 !defread $userdef

  !defread $userdef

 user_participate=!items2words $user_participate

  user_participate=!items2words $user_participate

 user_supervise=!items2words $user_supervise

  user_supervise=!items2words $user_supervise

 !if $scores=yes

  !if $scores=yes

  !read adm/class/userscore $uu

    !read adm/class/userscore $uu

  user_average1=$per

    user_average1=$per

  user_average2=$(manual_$uuu)

    user_average2=$(manual_$uuu)

  !if average0 isitemof $dl

    !if average0 isitemof $dl

   user_average0=$[rint($manual*$user_average2+(100-$manual)*($per))/100]

      user_average0=$[rint($manual*$user_average2+(100-$manual)*($per))/100]

   !endif

      !endif

  !next i

    !next i

  !for i=1 to $sheetcnttot

    !for i=1 to $sheetcnttot

   !if sheet$(i)_exo isin $dl and $i isitemof $activesh

      !if sheet$(i)_exo isin $dl and $i isitemof $activesh

    !let e_=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i

        !let e_=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i

    !for k_ = 1 to $e_

        !for k_ = 1 to $e_

      d_=!getscore user=$uu sheet=$i work=$k_

          d_=!getscore user=$uu sheet=$i work=$k_

      dd_=!getscorerequire user=$uu sheet=$i work=$k_

          dd_=!getscorerequire user=$uu sheet=$i work=$k_

      m_=!getscoremean user=$uu sheet=$i work=$k_

          m_=!getscoremean user=$uu sheet=$i work=$k_

      b_=!getscorebest user=$uu sheet=$i work=$k_

          b_=!getscorebest user=$uu sheet=$i work=$k_

      l_=!getscorelevel user=$uu sheet=$i work=$k_

          l_=!getscorelevel user=$uu sheet=$i work=$k_

      user_sheet$(i)_exo_$(k_)_Q=$[$m_]

          user_sheet$(i)_exo_$(k_)_Q=$[$m_]

      user_sheet$(i)_exo_$(k_)_I0=$[ceil(100*$d_/$dd_)]

          user_sheet$(i)_exo_$(k_)_I0=$[ceil(100*$d_/$dd_)]

      user_sheet$(i)_exo_$(k_)_I1=$[ceil(100*$b_/$dd_)]

          user_sheet$(i)_exo_$(k_)_I1=$[ceil(100*$b_/$dd_)]

      user_sheet$(i)_exo_$(k_)_I2=$[$l_]

          user_sheet$(i)_exo_$(k_)_I2=$[$l_]

    !next k_

        !next k_

   !endif

      !endif

  !next

    !next

  !if _exexo_ isin $dl or examduration isin $dl

    !if _exexo_ isin $dl or examduration isin $dl

    logdir=$wims_home/log/classes/$wims_class/examlog/$uu

      logdir=$wims_home/log/classes/$wims_class/examlog/$uu

    checksessions=!sh if [ -d $logdir ]; then cd $logdir; ls -tr; fi

      checksessions=!sh if [ -d $logdir ]; then cd $logdir; ls -tr; fi

    checksessions=!words2items $checksessions

      checksessions=!words2items $checksessions

    !read adm/class/userscore1 $uu

      !read adm/class/userscore1 $uu

  !endif

    !endif

  !for i=1 to $examcnttot

    !for i=1 to $examcnttot

   !if exam$i isitemof $dl and $i isitemof $activexams

      !if exam$i isitemof $dl and $i isitemof $activexams

     user_exam$i=$[rint(10*$scoremax*$(es_$i))/100]

        user_exam$i=$[rint(10*$scoremax*$(es_$i))/100]

   !endif

      !endif

   !if examduration$i isitemof $dl and $i isitemof $activexams

      !if examduration$i isitemof $dl and $i isitemof $activexams

      user_examduration$i=!replace internal , by $ $ in $quote$(Dureeexam_$i)$quote

        user_examduration$i=!replace internal , by $ $ in $quote$(Dureeexam_$i)$quote

   !endif

      !endif

   !if exam$(i)_exexo isin $dl and $i isitemof $activexams

      !if exam$(i)_exexo isin $dl and $i isitemof $activexams

     !set nb_ses=!record $i of wimshome/log/classes/$wims_class/exams/.exams

        !set nb_ses=!record $i of wimshome/log/classes/$wims_class/exams/.exams

     !set nb_ses=!line 3 of $nb_ses

        !set nb_ses=!line 3 of $nb_ses

     !set nb_ses=!word 2 of $nb_ses

        !set nb_ses=!word 2 of $nb_ses

     !let e_=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$i

        !let e_=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$i

     !set checksessions_cnt=!itemcnt $checksessions

        !set checksessions_cnt=!itemcnt $checksessions

     !for k_ = 1 to $e_

        !for k_ = 1 to $e_

        !reset t_

          !reset t_

        !set n_ses=0

          !set n_ses=0

        !for ses=1 to $checksessions_cnt

          !for ses=1 to $checksessions_cnt

          !if $i isitemof $(exam_$ses)

            !if $i isitemof $(exam_$ses)

            !set tmp=$(Exam_$(i)_$ses)

              !set tmp=$(Exam_$(i)_$ses)

        !endif

      !endif

  !next i

   !next i

  !for i=1 to $gcnt

    !for i=1 to $gcnt

   !if manual$i isitemof $dl

      !if manual$i isitemof $dl

    user_manual$i=!item $i of $(Manual_$uuu)

        user_manual$i=!item $i of $(Manual_$uuu)

    !default user_manual$i=0

        !default user_manual$i=0

   !endif

      !endif

  !next i

    !next i

 !endif

  !endif

 tmp=!trim $dl4

  tmp=!trim $dl4

 !appendfile $fname $dl2$tmp

  !appendfile $fname $dl2$tmp

 data_scores=!append item $dl2$tmp to $data_scores

  data_scores=!append item $dl2$tmp to $data_scores

 !! it is format ods

  !! it is format ods

 !mexec csv/mkODS.py

  !mexec csv/mkODS.py

 !! it is format csv/tsv/xls

  !! it is format csv/tsv/xls

 !mexec csv/getprep.sh

  !mexec csv/getprep.sh