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 35... Line 35...
35 
 
 35 
 
36 
:5
 36 
:5
37 
!let day=!char 7 to 8 of $date_
 37 
!let day=!char 7 to 8 of $date_
38 
!let month=!char 5 to 6 of $date_
 38 
!let month=!char 5 to 6 of $date_
39 
!let year=!char 1 to 4 of $date_
 39 
!let year=!char 1 to 4 of $date_
40 
!if $cdt_nbmonth>12
40 
!if withyear isin $option_
41 
 $year/$month/$day
 41 
 $year/$month/$day
42 
!else
42 
!else
43 
 $month/$day
 43 
 $month/$day
44 
!endif
 44 
!endif
45 
!exit
 45 
!exit