Subversion Repositories wimsdev

Rev

Rev 14298 | 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
14298 guerimand 2
!set lang_exists=yes
2413 bpr 3
!bound record within date,months default $
1755 bpr 4
!set months=gennaio,febbraio,marzo,aprile,maggio,giugno,luglio,agosto,settembre,ottobre,novembre,dicembre
2413 bpr 5
!if $record=$empty
6
  !exit
7
!endif
8
 
9
!goto $record
10
 
11
:date
14567 czzmrn 12
 
13
!set c_date=!nospace __$_day/$_month/$_year __
2413 bpr 14
!set c_date=!replace internal __/ by in $c_date
15
!set c_date_out=!replace internal /__ by in $c_date
16
!set c_date_out=!replace internal __ by in $c_date_out
17
 
18
!set l_m=!item $_month of $months
14567 czzmrn 19
!set l_date_out=$_day $l_m $_year
2413 bpr 20
 
21
!exit
22
 
23
:months
24
!exit