Rev 17751 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 17751 | Rev 17753 | ||
|---|---|---|---|
| Line 223... | Line 223... | ||
| 223 | !setdef wims_fwlistexo=$wims_fwlistexo\ |
223 | !setdef wims_fwlistexo=$wims_fwlistexo\ |
| 224 | wims_fwminscore=$[$(param$(stype_)$[($zone_-1)*5+3])*$(param$(stype_)$[($zone_-1)*5+4])] in wimshome/sessions/$wims_session/var.stat |
224 | wims_fwminscore=$[$(param$(stype_)$[($zone_-1)*5+3])*$(param$(stype_)$[($zone_-1)*5+4])] in wimshome/sessions/$wims_session/var.stat |
| 225 | !exit |
225 | !exit |
| 226 | 226 | ||
| 227 | :displayread |
227 | :displayread |
| 228 | !! keep track if student |
228 | !! keep track if student opens the task (so that teacher |
| 229 | !! can view his/her work) |
229 | !! can view his/her work) |
| 230 | !if $wims_user!=$empty and $wims_user!= supervisor |
230 | !if $wims_user!=$empty and $wims_user!= supervisor |
| 231 | !let |
231 | !let touchfname=log/classes/$wims_class/freeworksdata/$freework/work/$wims_user-wimsopen.$(zone_) |
| - | 232 | test=!fileexists wimshome/$touchfname |
|
| - | 233 | !if $test!=yes |
|
| 232 | !sh touch $touchfname |
234 | !sh touch $wims_home/$touchfname |
| - | 235 | !endif |
|
| 233 | !endif |
236 | !endif |
| 234 | nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework |
237 | nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework |
| 235 | !read tabletheme |
238 | !read tabletheme |
| 236 | !if $codownload=1 and $firstsee=1 |
239 | !if $codownload=1 and $firstsee=1 |
| 237 | !! in case of first lecture after codownload=1 ; change statut for solution/feedback |
240 | !! in case of first lecture after codownload=1 ; change statut for solution/feedback |