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