Subversion Repositories wimsdev

Rev

Rev 17780 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17780 Rev 18179
Line 71... Line 71...
71 
               find * -newermt '$deadline $timedeadline' 2> /dev/null | sort | uniq;
 71 
               find * -newermt '$deadline $timedeadline' 2> /dev/null | sort | uniq;
72 
!!        n2=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$fw_/co
 72 
!!        n2=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$fw_/co
73 
      !endif
 73 
      !endif
74 
      n1=!lines2items $n1
 74 
      n1=!lines2items $n1
75 
      n1=!listintersection $n1 and $ulist
 75 
      n1=!listintersection $n1 and $ulist
76 
      nbcopies=!itemcnt $n1
 - 
 
77 
      n2=!lines2items $n2
 76 
      n2=!lines2items $n2
78 
      n2=!listintersection $n2 and $ulist
 77 
      n2=!listintersection $n2 and $ulist
- 
 
 78 
      !! at this point n1 is the set of "consigned" works and n2 is
- 
 
 79 
      !! the set of "corrected" works (corresponding to real students
- 
 
 80 
      !! in $ulist). We need to check that n1 is a subset of n2 (can
- 
 
 81 
      !! happen that teachers writes comment to not consigned works)
- 
 
 82 
      testn=!listintersection $n1 and $n2
- 
 
 83 
      nbcopies=!itemcnt $n1
79 
      nbcorrectedcopies=!itemcnt $n2
 84 
      nbcorrectedcopies=!itemcnt $testn
80 
    !else
 85 
    !else
81 
      nbcorrectedcopies=0
 86 
      nbcorrectedcopies=0
82 
      nbcopies=0
 87 
      nbcopies=0
83 
    !endif
 88 
    !endif
84 
    notcorrected=$[$nbcopies-$nbcorrectedcopies]
 89 
    notcorrected=$[$nbcopies-$nbcorrectedcopies]