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