Subversion Repositories wimsdev

Rev

Rev 1755 | Rev 2413 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !! if wims_read_parm is empty, read the variable months
  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)
  4. !! to be completed
  5.  
  6. !if $wims_read_parm!=
  7.  !let day=!char 7 to 8 of $wims_read_parm
  8.  !let month=!char 5 to 6 of $wims_read_parm
  9.  !let year=!char 1 to 4 of $wims_read_parm
  10.  !set c_date=$year/$month/$day
  11.  !read adm/lang/date.phtml.$lang
  12.  !if $months=
  13.    !read adm/lang/date.phtml.en
  14.  !endif
  15.  !set l_m=!item $month of $months
  16.  !if $lang=fr
  17.   !set l_date=$day $l_m $year
  18.   !exit
  19.  !endif
  20.  
  21.  !set l_date=$year, $l_m, $day
  22. !else
  23.  !read adm/lang/date.phtml.$lang
  24. !endif
  25.  
  26.  
  27.