Subversion Repositories wimsdev

Rev

Rev 2413 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2413 Rev 15469
Line 1... Line 1...
1
!! if wims_read_parm is empty, read the variable months
1
!! if wims_read_parm is empty, read the variable months
2
!! (list of months in suitable language). If it is non empty,
2
!! (list of months in suitable language). If it is non empty,
3
!! gives the date of the form 13 janvier 2009 (according to language)
3
!! gives the date of the form 13 janvier 2009 (according to language)
4
!! to be completed
4
!! to be completed
5
!!return c_date_out , l_date_out or $months
5
!!return c_date_out , l_date_out or $months
6
 
6
 
Line 13... Line 13...
13
!if $_month$_day=$empty
13
!if $_month$_day=$empty
14
 !let _day=!char 7 to 8 of $wims_read_parm
14
 !let _day=!char 7 to 8 of $wims_read_parm
15
 !let _month=!char 5 to 6 of $wims_read_parm
15
 !let _month=!char 5 to 6 of $wims_read_parm
16
 !let _year=!char 1 to 4 of $wims_read_parm
16
 !let _year=!char 1 to 4 of $wims_read_parm
17
!endif
17
!endif
18
 !read adm/lang/date.phtml.$lang date,$_year,$_month,$_day
18
!read adm/lang/date.phtml.$lang date,$_year,$_month,$_day