Subversion Repositories wimsdev

Rev

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

Rev 8142 Rev 9598
Line 2... Line 2...
2 
!distribute items $wims_read_parm into r_
 2 
!distribute items $wims_read_parm into r_
3 
!if $r_ isitemof 5
 3 
!if $r_ isitemof 5
4 
  !distribute items $wims_read_parm into r_,date_
 4 
  !distribute items $wims_read_parm into r_,date_,option_
5 
  !goto $r_
 5 
  !goto $r_
6 
!endif
 6 
!endif
7 
!if $r_ isitemof 6
 7 
!if $r_ isitemof 6
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_
Line 36... Line 36...
36 
 
 36 
 
37 
:5
 37 
:5
38 
!let day=!char 7 to 8 of $date_
 38 
!let day=!char 7 to 8 of $date_
39 
!let month=!char 5 to 6 of $date_
 39 
!let month=!char 5 to 6 of $date_
40 
!let year=!char 1 to 4 of $date_
 40 
!let year=!char 1 to 4 of $date_
41 
!if $cdt_nbmonth>12
41 
!if withyear isin $option_
42 
 $day/$month/$year
 42 
 $day/$month/$year
43 
!else
43 
!else
44 
 $day/$month
 44 
 $day/$month
45 
!endif
 45 
!endif
46 
!exit
 46 
!exit