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