Subversion Repositories wimsdev

Rev

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 6 to 7 of $jdate
 16 
jmonth=!char 5 to 6 of $jdate
15 
jday=!char 9 to 10 of $jdate
 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 6 to 7 of $jdate2
 19 
jmonth2=!char 5 to 6 of $jdate2
18 
jday2=!char 9 to 10 of $jdate2
 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