Subversion Repositories wimsdev

Rev

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

Rev 5252 Rev 8142
Line 8... Line 8...
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
 
11
 
12
!distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year
12
!distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year
-
 
13
!let $parm_day=$[$($parm_day)]
-
 
14
!let $parm_month=$[$($parm_month)]
-
 
15
!let $parm_year=$[$($parm_year)]
13
 
16
 
14
!goto $r_
17
!goto $r_
15
:1
18
:1
16
!formselect $parm_day from 1 to 31
19
!formselect $parm_day from 1 to 31
17
!formselect $parm_month from 1 to 12 prompt $months
20
!formselect $parm_month from 1 to 12 prompt $months