Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
2413 bpr 1
!distribute items $wims_read_parm into record,_year,_month,_day
2
!bound record within date,months default $
1755 bpr 3
!set months=janvier,février,mars,avril,mai,juin,juillet,août,septembre,octobre,novembre,décembre
2413 bpr 4
!if $record=$empty
5
  !exit
6
!endif
7
 
8
!goto $record
9
 
10
:date
11
 
12
!set c_date=!nospace __$_day/$_month/$_year __
13
!set c_date=!replace internal __/ by in $c_date
14
!set c_date_out=!replace internal /__ by in $c_date
15
!set c_date_out=!replace internal __ by in $c_date_out
16
 
17
!set l_m=!item $_month of $months
18
!set l_date_out=$_day $l_m $_year
19
 
20
!exit
21
 
22
:months
23
!exit