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