Subversion Repositories wimsdev

Rev

Rev 4407 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
485 guerimand 1
!distribute item $wims_read_parm into slib_don,slib_option
2
!default slib_don=$wims_now
3
!let slib_day=!char 7 to 8 of $slib_don
4
!let slib_month=!char 5 to 6 of $slib_don
5
!let slib_year=!char 1 to 4 of $slib_don
6
!let slib_hour=!char 10 to 17 of $slib_don
7
!if $module_language=fr
8
 !let slib_out=$slib_day/$slib_month/$slib_year
9
!else
10
 !let slib_out=$slib_year/$slib_month/$slib_day
11
!endif
12
!if notime notin $slib_option
13
 !let slib_out=$slib_out - $slib_hour
14
!endif
15
$slib_out