Rev 17299 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 17299 | Rev 17318 | ||
---|---|---|---|
Line 8... | Line 8... | ||
8 | error=bad_class |
8 | error=bad_class |
9 | !exit |
9 | !exit |
10 | !endif |
10 | !endif |
11 | 11 | ||
12 | !! ----------- analyse d'une demande de modification du jour de démarrage de la période d'affichage |
12 | !! ----------- analyse d'une demande de modification du jour de démarrage de la période d'affichage |
- | 13 | jdate=!text select char 0123456789 in $jdate |
|
- | 14 | jdate2=!text select char 0123456789 in $jdate2 |
|
13 | jyear=!char 1 to 4 of $jdate |
15 | jyear=!char 1 to 4 of $jdate |
14 | jmonth=!char |
16 | jmonth=!char 5 to 6 of $jdate |
15 | jday=!char |
17 | jday=!char 7 to 8 of $jdate |
16 | jyear2=!char 1 to 4 of $jdate2 |
18 | jyear2=!char 1 to 4 of $jdate2 |
17 | jmonth2=!char |
19 | jmonth2=!char 5 to 6 of $jdate2 |
18 | jday2=!char |
20 | jday2=!char 7 to 8 of $jdate2 |
19 | 21 | ||
20 | !if $jday!=$empty and $jyear!=$empty and $jyear!=$empty |
22 | !if $jday!=$empty and $jyear!=$empty and $jyear!=$empty |
21 | jmonth=!char 2,3 of $[abs(floor($jmonth))+100] |
23 | jmonth=!char 2,3 of $[abs(floor($jmonth))+100] |
22 | !if $[$jday]=0 |
24 | !if $[$jday]=0 |
23 | tst=1 |
25 | tst=1 |