Subversion Repositories wimsdev

Rev

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

Rev 1823 Rev 2413
Line 4... Line 4...
4 
!! to be completed
 4 
!! to be completed
- 
 
 5 
!!return c_date_out , l_date_out or $months
5 
 
 6 
 
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
 7 
!if $wims_read_parm=months or $wims_read_parm=$empty
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
 8 
  !read adm/lang/date.phtml.$lang months
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
 9 
  !exit
19 
 !endif
 - 
 
20 
 
 - 
 
21 
 !set l_date=$year, $l_m, $day
 - 
 
22 
!else
 - 
 
23 
 !read adm/lang/date.phtml.$lang
 - 
 
24 
!endif
 10 
!endif
- 
 
 11 
!distribute items $wims_read_parm into 1_,_year,_month,_day
25 
 
 12 
 
26 
 
 - 
 
- 
 
 13 
!if $_month$_day=$empty
- 
 
 14 
 !let _day=!char 7 to 8 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
27 
 
 17 
!endif
- 
 
 18 
 !read adm/lang/date.phtml.$lang date,$_year,$_month,$_day