Subversion Repositories wimsdev

quote="

fbase=data-$wims_class

fbase=!translate internal / to _ in $fbase

fname=wimshome/$wims_sesdir/spreadsheet.$csvformat

dl=!singlespace $csvdownload

!! no needed because no keyword are now directly writing and incompatible with techvar code name

!!dl=!lower $dl

!if login notin $dl

  dl=login,$dl

!endif

!for t in average,sheet,exam,manual

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

!next t

dl=!items2words $dl

dl=!replace word names by name in $dl

dl=!replace grade by manual in $dl

dl=!replace word allscores by allscore in $dl

dl=!replace word name by lastname firstname in $dl

dl=!replace word allscore by averages sheets exams manuals in $dl

dl_tmp=$dl

!readproc csv/keyword.proc

tmp=!column 2 to -1 of $se

tmp=!lines2words $tmp

tmp=!items2words $tmp

tmp=!singlespace $tmp

good=$basic $av $sh $ex $ma $examduration $tmp $basic2 $basic3

tmp=!column 2 to -1 of $exe

tmp=!lines2words $tmp

tmp=!items2words $tmp

tmp=!singlespace $tmp

good=$good $tmp

dl=!replace word averages by $av in $dl

dl=!replace word sheets by $sh in $dl

dl=!replace word exams by $ex in $dl

dl=!replace word manuals by $ma in $dl

!if sheetexos isin $dl

  tmp=!column 2 to -1 of $se

  tmp=!lines2words $tmp

  dl=!replace word sheetexos by $tmp in $dl

!else

  !for i in $activesh

    !if sheetexo$i iswordof $dl

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

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

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

    !endif

  !next i

!endif

!! aoption all for examexos, non active

!!!if examexos isin $dl

!! tmp=!column 2 to -1 of $exe

!! tmp=!lines2words $tmp

!! dl=!replace word examexos by $tmp in $dl

!!!else

!for i in $activexams

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

  !set nb_ses$i=!line 3 of $(nb_ses$i)

  !set nb_ses$i=!word 2 of $(nb_ses$i)

  !if examexo$i iswordof $dl

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

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

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

  !endif

!next i

!!!endif

dl=!words2items $dl

dl=!listuniq $dl

good=!words2items $good,$regvarlist

!! only techvar should be in dl_v other variable have to stay in good

!! (generic traitement for name)

dl_v =!listcomplement $good in $dl

!if $dl_v!=

  dl_var=$empty

  !for k in $dl_v

    realname=!replace internal techvar_ by $empty in $k

    dl_var=!append item $(code_user_techvar_$(realname)) to $dl_var

  !next k

!endif

dl=!listintersect $dl and $good

dl=!nospace $dl

dl_var=!nospace $dl_var

dl_v=!nospace $dl_v

dlcnt=!itemcnt $dl

!if $dlcnt=0

  !exit

!endif

sep_csv=,

sep_ods=;

sep_xls=;

sep_tsv=$	$

sep=$(sep_$csvformat)

dl2=!replace , by ,user_ in user_$dl

dl2=!translate , to $sep in $dl2

!if $dl_var!=$empty

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

  dl4=$sep$dl4

  dl5=$sep$dl5

  dl=$dl$sep$dl_var

!endif

tit=!translate , to $sep in $dl

!for i=1 to $examcnttot

  tmp=!makelist : for x=1 to $(nb_ses$i)

  tmp=!items2words $tmp

  tit=!replace internal exam$i by exam$i$tmp$ in $tit

!next

!! quote the values (case of word groups)

!for n in login,password,lastname,firstname,email,regnum,comments,\

  participate,supervise,supervisable,external_auth,average0,average1,average2

  dl2=!replace user_$n by $(quote)user_$n$quote in $dl2

!next n

!if $regvarlist!=$empty

  !for n in $regvarlist

    dl2=!replace user_$n by $(quote)user_$n$quote in $dl2

  !next n

!endif

dl4r=!items2words $dl4

!if $dl4!=$empty

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

  dl4=!char 3 to -1 of $dl4

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

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

!else

  dl5=$empty

!endif

dl3=!replace user_ by $$name_ in $dl2

dl2=!replace user_ by $$user_ in $dl2

scores=no

!if average isin $dl or manual isin $dl or sheet isin $dl or exam isin $dl

  scores=yes

!endif

!read csv/csvnames

!writefile $fname $tit\

$dl3$dl5\

!reset data_scores

!for u=1 to $usercnt

  !! reinitialise variables of type user_

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

      user_external_auth,user_supervise,user_participate,user_supervisable

  !for n in $regvarlist

    !reset user_$n

  !next

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

  user_login=!item 3 of $l

  uu=$user_login

  uuu=!hex $uu

  !reset $basic,$dl4r

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

  !defread $userdef

  user_participate=!items2words $user_participate

  user_supervise=!items2words $user_supervise

  !if $scores=yes

    !read adm/class/userscore $uu

    user_average1=$per

    user_average2=$(manual_$uuu)

    !if average0 isitemof $dl

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

    !endif

    !for i=1 to $sheetcnttot

      !if sheet$i isitemof $dl and $i isitemof $activesh

        p_=!line $i of $percents

        !distribute words $p_ into p1,p2,p3,p4

        !if $p2!=$empty

          ###f_$i is defined by var.proc.weights

          !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_

          !set ff_$i=!mathsubst Q=$y_ in $(f_$i)

          !for sev=0 to 2

            !set ff_$i=!mathsubst I$sev=$(x$(sev)_) in $(ff_$i)

          !next

          !! adm/class/userscore/getuser.phtml

          !! home/sequence.phtml

          !! themes/_widgets/usersheet.phtml

          user_sheet$i=$[rint(100*$scoremax*$(ff_$i))/100]

        !else

          user_sheet$i=0

        !endif

      !endif

    !next i

    !for i=1 to $sheetcnttot

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

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

        !for k_ = 1 to $e_

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

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

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

          b_=!getscorebest 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_)_I0=$[ceil(100*$d_/$dd_)]

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

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

        !next k_

      !endif

    !next

    !if _exexo_ isin $dl or examduration isin $dl or exam isin $dl

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

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

      checksessions=!words2items $checksessions

      !read adm/class/userscore1 $uu

    !endif

    !for i=1 to $examcnttot

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

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

        !set tmp=!listuniq $(sess_$i)

        !for j in $tmp

          !set user_exam$i=$(user_exam$i):$[rint(10*$scoremax*$(score$(j)_$i))/100]

        !next

        !set tmp=!itemcnt $tmp

        !for j= $tmp+1 to $(nb_ses$i)

          !set user_exam$i=$(user_exam$i):

        !next

      !endif

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

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

      !endif

      !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=!line 3 of $nb_ses

        !set nb_ses=!word 2 of $nb_ses

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

        !set checksessions_cnt=!itemcnt $checksessions

        !for k_ = 1 to $e_

          !reset t_

          !set n_ses=0

          !for ses=1 to $checksessions_cnt

            !if $i isitemof $(exam_$ses)

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

            !set t_=$t_$(tmp[$k_]),

            !increase n_ses

            !endif

          !next

          !set t_=$(t_[1..-2])

          !if $nb_ses>$n_ses

            !set oo=!makelist $ $ for x=1 to $[$nb_ses-$n_ses-1]

            !! leave the space ! useful for some spreadsheet

            !set t_=$t_ ,$oo

          !endif

          !set user_exam$(i)_exexo_$(k_)=!replace internal , by : in $t_

        !next

      !endif

    !next i

    !for i=1 to $gcnt

      !if manual$i isitemof $dl

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

!!        !default user_manual$i=0    can have no score and don't replace by 0

      !endif

    !next i

  !endif

  tmp=!trim $dl4

  !appendfile $fname $dl2$tmp

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

!next u

infile=spreadsheet.$csvformat

outfile=$fbase.$csvformat

!if $csvformat iswordof ods

  !! it is format ods

  !mexec csv/mkODS.py

!else

  !! it is format csv/tsv/xls

  !mexec csv/getprep.sh

!endif