Rev 1823 |
Go to most recent revision |
Blame |
Compare with Previous |
Last modification |
View Log
| RSS feed
!! if wims_read_parm is
empty, read the variable months
!! (list of months in suitable language
). If it is non
empty, !! gives the
date of the form
13 janvier
2009 (according to language
) !! to be completed
!!return c_date_out , l_date_out or $months
!if $wims_read_parm=months or $wims_read_parm=$empty
!read adm
/lang
/date.phtml
.$lang months
!endif
!distribute items $wims_read_parm into 1_,_year,_month,_day
!if $_month$_day=$empty
!let _day=!char 7 to 8 of $wims_read_parm
!let _month=!char 5 to 6 of $wims_read_parm
!let _year=!char 1 to 4 of $wims_read_parm
!endif
!read adm
/lang
/date.phtml
.$lang date,$_year,$_month,$_day