Subversion Repositories wimsdev

Rev

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

Rev 17598 Rev 17639
Line 3... Line 3...
3
!if $activetest!=1 and $activetest!=2
3
!if $activetest!=1 and $activetest!=2
4
  error=badallows
4
  error=badallows
5
  emptypage=yes
5
  emptypage=yes
6
  !exit
6
  !exit
7
!endif
7
!endif
-
 
8
 
-
 
9
!! ---- check techvar access
-
 
10
!readproc adm/class/checkuserscorecondition F$freework
-
 
11
!! $beginning_ is undocumented (but defined by checkuserscorecondition)
-
 
12
!if $beginning_!=$empty
-
 
13
  begh_=!char 9 to 10 of $beginning_
-
 
14
  begm_=!char 11 to 12 of $beginning_
-
 
15
  !readproc adm/date.phtml $beginning_
-
 
16
!endif
-
 
17
!if $output=no
-
 
18
  !exit
-
 
19
!endif
-
 
20
!! ---- end check techvar access
8
 
21
 
9
!set appletnum=0
22
!set appletnum=0
10
 
23
 
11
!! ----- check of authorisation for student to modify his work (studentmode=0 no studentmode=1 yes)
24
!! ----- check of authorisation for student to modify his work (studentmode=0 no studentmode=1 yes)
12
!set studentmode=1
25
!set studentmode=1