Subversion Repositories wimsdev

Rev

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

Rev 17323 Rev 17385
Line 11... Line 11...
11
!distribute line $wims_read_parm into default_,name_,date_
11
!distribute line $wims_read_parm into default_,name_,date_
12
!distribute item $date_ into mdate_,Mdate_
12
!distribute item $date_ into mdate_,Mdate_
13
 
13
 
14
!reset option_ y_ m_ d_
14
!reset option_ y_ m_ d_
15
!if $mdate_!=$empty
15
!if $mdate_!=$empty
-
 
16
  !set mdate_=!text select char 0123456789 in $mdate_
16
  !set y_=!char 1 to 4 of $mdate_
17
  !set y_=!char 1 to 4 of $mdate_
17
  !set m_=!char 5 to 6 of $mdate_
18
  !set m_=!char 5 to 6 of $mdate_
18
  !set d_=!char 7 to 8 of $mdate_
19
  !set d_=!char 7 to 8 of $mdate_
19
  !set option_=$option_ min="$y_-$m_-$d_"
20
  !set option_=$option_ min="$y_-$m_-$d_"
20
  !reset y_ m_ d_
21
  !reset y_ m_ d_
21
!endif
22
!endif
22
!if $Mdate_!=$empty
23
!if $Mdate_!=$empty
-
 
24
  !set Mdate_=!text select char 0123456789 in $Mdate_
23
  !set y_=!char 1 to 4 of $Mdate_
25
  !set y_=!char 1 to 4 of $Mdate_
24
  !set m_=!char 5 to 6 of $Mdate_
26
  !set m_=!char 5 to 6 of $Mdate_
25
  !set d_=!char 7 to 8 of $Mdate_
27
  !set d_=!char 7 to 8 of $Mdate_
26
  !set option_=$option_ max="$y_-$m_-$d_"
28
  !set option_=$option_ max="$y_-$m_-$d_"
27
  !reset y_ m_ d_
29
  !reset y_ m_ d_
28
!endif
30
!endif
29
!if $default_!=$empty
31
!if $default_!=$empty
-
 
32
  !set default_=!text select char 0123456789 in $default_
30
  !set y_=!char 1 to 4 of $default_
33
  !set y_=!char 1 to 4 of $default_
31
  !set m_=!char 5 to 6 of $default_
34
  !set m_=!char 5 to 6 of $default_
32
  !set d_=!char 7 to 8 of $default_
35
  !set d_=!char 7 to 8 of $default_
33
  !set option_=$option_ value="$y_-$m_-$d_"
36
  !set option_=$option_ value="$y_-$m_-$d_"
34
!endif
37
!endif