| /trunk/wims/public_html/modules/adm/class/freework/proc/mkglobalvar.proc |
|---|
| 41,10 → 41,15 |
| !endif |
| n1=!lines2items $n1 |
| n1=!listintersection $n1 and $ulist |
| nbcopies=!itemcnt $n1 |
| n2=!lines2items $n2 |
| n2=!listintersection $n2 and $ulist |
| nbcorrectedcopies=!itemcnt $n2 |
| !! 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 |
| /trunk/wims/public_html/scripts/adm/freework/mkfwglobvar.proc |
|---|
| 73,10 → 73,15 |
| !endif |
| n1=!lines2items $n1 |
| n1=!listintersection $n1 and $ulist |
| nbcopies=!itemcnt $n1 |
| n2=!lines2items $n2 |
| n2=!listintersection $n2 and $ulist |
| nbcorrectedcopies=!itemcnt $n2 |
| !! 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 |