Subversion Repositories wimsdev

Rev

Rev 14298 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14298 Rev 14567
Line 7... Line 7...
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
!goto $record
 9 
!goto $record
10 
 
 10 
 
11 
:date
 11 
:date
- 
 
 12 
 
12 
!set c_date=!nospace __$_year/$_month/$_day __
 13 
!set c_date=!nospace __$_day/$_month/$_year __
13 
!set c_date=!replace internal __/ by in $c_date
 14 
!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
15 
!set c_date_out=!replace internal __ by in $c_date_out
 16 
!set c_date_out=!replace internal __ by in $c_date_out
16 
 
 17 
 
17 
!set l_m=!item $_month of $months
 18 
!set l_m=!item $_month of $months
18 
!set l_date_out=$_year, $l_m, $_date
 19 
!set l_date_out=$_day $l_m $_year
19 
 
 20 
 
20 
!exit
 21 
!exit
21 
 
 22 
 
22 
:months
 23 
:months
23 
!exit
 24 
!exit