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 |