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 |