Subversion Repositories wimsdev

Rev

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

Rev 9598 Rev 10706
Line 6... Line 6...
6 
!endif
 6 
!endif
7 
!if $r_ isitemof 6
 7 
!if $r_ isitemof 6
8 
  !distribute items $wims_read_parm into r_,parm_hour,parm_min
 8 
  !distribute items $wims_read_parm into r_,parm_hour,parm_min
9 
  !goto $r_
 9 
  !goto $r_
10 
!endif
 10 
!endif
- 
 
 11 
!if $r_ iswordof 1 3
- 
 
 12 
  !if NaN isin $expyear
- 
 
 13 
    !set expyear=!char 1 to 4 of $wims_now
- 
 
 14 
  !endif
- 
 
 15 
  !if NaN isin $creyear
- 
 
 16 
    !set creyear=!char 1 to 4 of $wims_now
- 
 
 17 
  !endif
11 
 
 18 
!endif
12 
!distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year,parm_dday,parm_dmonth,parm_dyear
 19 
!distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year,parm_dday,parm_dmonth,parm_dyear
13 
!let $parm_day=$[$($parm_day)]
 20 
!let $parm_day=$[$($parm_day)]
14 
!let $parm_month=$[$($parm_month)]
 21 
!let $parm_month=$[$($parm_month)]
15 
!let $parm_year=$[$($parm_year)]
 22 
!let $parm_year=$[$($parm_year)]
16 
 
 23 
 
Line 28... Line 35...
28 
!exit
 35 
!exit
29 
 
 36 
 
30 
:4
 37 
:4
31 
!formselect $parm_day list 0,$v prompt ---,$v
 38 
!formselect $parm_day list 0,$v prompt ---,$v
32 
!formselect $parm_month from 0 to 12 prompt ---,$months
 39 
!formselect $parm_month from 0 to 12 prompt ---,$months
33 
!formselect $parm_year list 0,$v1 prompt ---,$v1
40 
!formselect $parm_year list 0,$v1 prompt ---,$v1
34 
!exit
 41 
!exit
35 
 
 42 
 
36 
:5
 43 
:5
37 
!let day=!char 7 to 8 of $date_
 44 
!let day=!char 7 to 8 of $date_
38 
!let month=!char 5 to 6 of $date_
 45 
!let month=!char 5 to 6 of $date_