Subversion Repositories wimsdev

Rev

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

Rev 14788 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 
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
 22 
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
10 
d2=!text select char 0123456789 in $wims_now
 23 
d2=!text select char 0123456789 in $wims_now
11 
d2=!char 1 to 12 of $d2
 24 
d2=!char 1 to 12 of $d2
12 
d3=!text select char 0123456789 in $(soldate)$(timesoldate)
 25 
d3=!text select char 0123456789 in $(soldate)$(timesoldate)