Subversion Repositories wimsdev

!! define global variable for a single freework

!! (cfr. adm/class/freework/proc/mkglobalvar.proc)

!!

!! input: freework number

fw_=!item 1 of $wims_read_parm

!!

!! ($wims_class must be defined)

!if $wims_class=$empty

  !debug error

!endif

!!

!! -------------- check right for download/upload participant file and etc... (see description below)

!! define variables :

!! loadwork=1 supervisor can download/see user work

!! nbcopies : number of student deposit work

!! nbcorrectedcopies : number of work corrected by supervisor

!! notcorrected : difference between last two values

!! putworkco=1 supervisor can modify/delete global correction file

!! putiworkco=1 supervisor can upload individual correction/remark/score

!! displaysolution=1 student can download general solution

!! codownload=1 student can view/download personal solution/marking

!! this variable can be use in subfile of each type

!!

!! fwtype

t_=!record $fw_ of wimshome/log/classes/$wims_class/freeworks/.freeworks

!distribute line $t_ into activetest,expdate,title,desc,comment,fwtype,deadline,soldate,sizelimitfile,scoring,seealltime,studentclose

nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist

!reset ulist

!for fwuu=1 to $nbuser

  u_=!record $fwuu of wimshome/log/classes/$wims_class/.userlist

  !distribute item $u_ into l_,f_,n_

  ulist=!append item $n_ to $ulist

!next fwuu

!for fwval in deadline,soldate

  t=!replace internal . by , in $($fwval)

  !distribute item $t into $fwval,time$fwval

  !default $fwval=$today

  !default time$fwval=00:00

!next fwval

!bound activetest between 0 and 3

!! end of work date

d1=!text select char 0123456789 in $(deadline)$(timedeadline)

!! show solution date

d2=!text select char 0123456789 in $(soldate)$(timesoldate)

now=!text select char 0123456789 in $wims_now

now=!char 1 to 12 of $now

!distribute item 0,0 into loadwork,putworkco

!if $activetest=1 and $fwtype>1 and ($now>$d1 or $seealltime=1)

  loadwork=1

!endif

!if $activetest>=1

  !if $activetest isitemof 1

    !distribute item 0,0,0,0 into putworkco,putiworkco,displaysolution,codownload

    !if $fwtype>=1

      !! ----- make directories in case of download an active freeworks in classe using module=config job=restore/save  

      !sh mkdir -p $wims_home/log/classes/$wims_class/freeworksdata/$fw_/work;\

          mkdir -p $wims_home/log/classes/$wims_class/freeworksdata/$fw_/co;

      !! ------- compute number of copies / corrected copies

      !if $fwtype=2

        n1=!sh dir -1 $wims_home/log/classes/$wims_class/freeworksdata/$fw_/work/ | cut -d. -f1;

        n2=!sh dir -1 $wims_home/log/classes/$wims_class/freeworksdata/$fw_/co/ | cut -d. -f1;

      !else

        n1=!sh dir -1 $wims_home/log/classes/$wims_class/freeworksdata/$fw_/work/ | cut -d- -f1 | sort | uniq;

        !! count correction by teachers (only count saved after deadline)

        n2=!sh cd $wims_home/log/classes/$wims_class/freeworksdata/$fw_/co;\

               find * -newermt '$deadline $timedeadline' 2> /dev/null | sort | uniq;

!!        n2=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$fw_/co

      !endif

      n1=!lines2items $n1

      n1=!listintersection $n1 and $ulist

      n2=!lines2items $n2

      n2=!listintersection $n2 and $ulist

      !! at this point n1 is the set of "consigned" works and n2 is

      !! the set of "corrected" works (corresponding to real students

      !! in $ulist). We need to check that n1 is a subset of n2 (can

      !! happen that teachers writes comment to not consigned works)

      testn=!listintersection $n1 and $n2

      nbcopies=!itemcnt $n1

      nbcorrectedcopies=!itemcnt $testn

    !else

      nbcorrectedcopies=0

      nbcopies=0

    !endif

    notcorrected=$[$nbcopies-$nbcorrectedcopies]

    !if $now<$d2

      putworkco=1

    !else

      displaysolution=1

    !endif

    !if ($notcorrected>0 or $now<$d2) and $fwtype>1 and $now>=$d1

        putiworkco=1

    !endif

    !if $now>=$d2 and $notcorrected=0 and $fwtype>1

        codownload=1

    !endif

  !else

    putworkco=0

    putiworkco=0

    loadwork=1

    displaysolution=1

    codownload=0

  !endif

  !! ---  general solution diffused if solutiondate pass or activetest>=2

  !if $now>$d2 or $activetest>=2

    displaysolution=1

  !endif

!endif

!if $activetest=0

  loadwork=0

  putworkco=1

  putiworkco=0

  displaysolution=0

  codownload=0

!endif

!! ------- globalcorrection can be modified all time:

putworkco=1