Subversion Repositories wimsdev

Rev

Rev 17593 | Rev 17634 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17593 Rev 17606
Line 28... Line 28...
28
studentfile_ztype=file
28
studentfile_ztype=file
29
 
29
 
30
!! applets that do not appear in the student zone
30
!! applets that do not appear in the student zone
31
nostudent_ztype=wimsexo
31
nostudent_ztype=wimsexo
32
nostudent_ztype=wimsexo,randfile
32
nostudent_ztype=wimsexo,randfile
-
 
33
 
-
 
34
!! applets that do not appear in student zone but have random elements
-
 
35
!! so teacher has to be able to see student assignment
-
 
36
studentlist_ztype=wimsexo
-
 
37
studentlist_ztype=wimsexo,randfile
33
 
38
 
34
!! file number to read in function of type
39
!! file number to read in function of type
35
lpara_type=1,1,3,1
40
lpara_type=1,1,3,1
36
lpara_type=1,1,3,1,3
41
lpara_type=1,1,3,1,3
37
 
42
 
38
nbztype=!itemcnt $listfilename_ztype
43
nbztype=!itemcnt $listfilename_ztype
-
 
44
 
-
 
45
!if $type=2
-
 
46
  showstudlist=yes
-
 
47
!else
-
 
48
  showstudlist=no
-
 
49
!endif
39
 
50
 
40
!! check access
51
!! check access
41
!if $statutfreework!=open
52
!if $statutfreework!=open
42
  error=notallowedmodule
53
  error=notallowedmodule
43
  notallowed=1
54
  notallowed=1
Line 208... Line 219...
208
      test=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
219
      test=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
209
      test=!line 1 of $test
220
      test=!line 1 of $test
210
      !distribute word $test into s,z
221
      !distribute word $test into s,z
211
      !if $s=file and $z=student
222
      !if $s=file and $z=student
212
        !increase numberfilezone
223
        !increase numberfilezone
-
 
224
      !endif
-
 
225
      !! do we have to show users' list?
-
 
226
      !if $s isitemof $studentlist_ztype or $z=student
-
 
227
        !set showstudlist=yes
213
      !endif
228
      !endif
214
    !next k
229
    !next k
215
    !if $numberfilezone=0
230
    !if $numberfilezone=0
216
      sizelimitfile=$empty
231
      sizelimitfile=$empty
217
    !endif
232
    !endif