Subversion Repositories wimsdev

Rev

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

Rev 11459 Rev 13594
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Bernadette, Perrin-Riou
 5 
slib_author=Bernadette, Perrin-Riou
6 
slib_title=Date
 6 
slib_title=Date
7 
slib_parms=2\
 7 
slib_parms=2\
Line 44... Line 44...
44 
!else
 44 
!else
45 
  slib_date1=!text expand $slib_date1 using 01101101111
 45 
  slib_date1=!text expand $slib_date1 using 01101101111
46 
  slib_date2=!text expand $slib_date2 using 01101101111
 46 
  slib_date2=!text expand $slib_date2 using 01101101111
47 
  slib_date1=!exec date.pl 1 $slib_date1
 47 
  slib_date1=!exec date.pl 1 $slib_date1
48 
  slib_date2=!exec date.pl 1 $slib_date2
 48 
  slib_date2=!exec date.pl 1 $slib_date2
49 
!! not always an integer because of the time change
 49 
  !! not always an integer because of the time change
50 
  slib_out=$[round(($slib_date2 - $slib_date1)/86400)]
 50 
  slib_out=$[round(($slib_date2 - $slib_date1)/86400)]
51 
!endif
 51 
!endif