# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1354159498 -32400
# Node ID 8b8cb30b78faf51d9d4f359823bf74c084d036cc
# Parent  6a0c2f85faa348e6ee8f0ee8ff294f50494230e1
1 day should be 3600*24 secs.

diff -r 6a0c2f85faa3 -r 8b8cb30b78fa after5.rb
--- a/after5.rb	Thu Nov 29 10:21:21 2012 +0900
+++ b/after5.rb	Thu Nov 29 12:24:58 2012 +0900
@@ -4,7 +4,7 @@
 # Associative Scheduling Table - after5
 # (C)2003, 2004, 2006, 2008, 2012 by HIROSE Yuuji [yuuji<at>gentei.org]
 # $Id: after5.rb,v 1.19 2012/04/01 11:52:25 yuuji Exp yuuji $
-# Last modified Thu Nov 29 10:17:51 2012 on firestorm
+# Last modified Thu Nov 29 12:24:14 2012 on firestorm
 # See http://www.gentei.org/~yuuji/software/after5/
 # このスクリプトはEUCで保存してください。
 $hgid = <<_HGID_.split[1..-2].join(" ")
@@ -1847,7 +1847,7 @@
     ## p day, last
     while column <= last
       @O.print @H.elementln("tr", nil){
-        sunday = first + (column-1)*3600
+        sunday = first + (column-1)*3600*24
 	(column..column+6).collect{|d|
 	  todayp = (day.year==todayy && day.month==todaym && d==todayd)
 	  wd=d-column