Subversion Repositories wimsdev

Rev

Rev 2413 | Rev 14298 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2413 Rev 2559
Line 1... Line 1...
1 
!distribute items $wims_read_parm into record,_year,_month,_day
 1 
!distribute items $wims_read_parm into record,_year,_month,_day
2 
 
 - 
 
- 
 
 2 
!bound record within date,months default $
3 
!set months=Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sept,Oct,Nov,Dec
 3 
!set months=Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sept,Oct,Nov,Dec
- 
 
 4 
!if $record=$empty
- 
 
 5 
  !exit
- 
 
 6 
!endif
- 
 
 7 
 
4 
!goto $record
 8 
!goto $record
5 
 
 9 
 
6 
:date
 10 
:date
7 
!set c_date=!nospace __$_year/$_month/$_day __
 11 
!set c_date=!nospace __$_year/$_month/$_day __
8 
!set c_date=!replace internal __/ by in $c_date
 12 
!set c_date=!replace internal __/ by in $c_date