Subversion Repositories wimsdev

Rev

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

Rev 14788 Rev 14796
Line 19... Line 19...
19
    !increase nbrezone$u
19
    !increase nbrezone$u
20
    ztype$(u)$(nbrezone$u)=$t
20
    ztype$(u)$(nbrezone$u)=$t
21
    script_data=!line 2 to -1 of $dt
21
    script_data=!line 2 to -1 of $dt
22
    !readproc applet/$t pararead $u $(nbrezone$u)
22
    !readproc applet/$t pararead $u $(nbrezone$u)
23
    !! -- read display parameters for each zone
23
    !! -- read display parameters for each zone
24
    !if $u=teacher
24
!!    !if $u=teacher
-
 
25
!!      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
-
 
26
!!    !else
25
      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
27
      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
26
    !else
-
 
27
      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
-
 
28
    !endif
28
!!    !endif
29
  !endif
29
  !endif
30
!next k
30
!next k
31
!if $putiworkco=1
31
!if $putiworkco=1
32
  iedit_activated=1
32
  iedit_activated=1
33
!endif
33
!endif