Subversion Repositories wimsdev

Rev

Rev 17639 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17639 Rev 17883
Line 5... Line 5...
5 
  emptypage=yes
 5 
  emptypage=yes
6 
  !exit
 6 
  !exit
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
!! ---- check techvar access
 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_
 10 
!readproc proc/checktechvars.proc
16 
!endif
 - 
 
17 
!if $output=no
 11 
!if $fwaccess=no
18 
  !exit
 12 
  !exit
19 
!endif
 13 
!endif
20 
!! ---- end check techvar access
 14 
!! ---- end check techvar access
21 
 
 15 
 
22 
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
 16 
d1=!text select char 0123456789 in $(deadline)$(timedeadline)