blob: 34e23972379885f6fb7bb52412495853f802e64a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
#!/usr/bin/env ruby
load "/home/ben/src/lib.rb/pphtml.rb"
require "pp"
require "date"
require "poll"
class DatePoll < Poll
def head_to_html
ret = "<tr><td></td>\n"
monthhead = Hash.new(0)
@head.sort.each{|curdate,curdescription|
monthhead["#{curdate.year}-#{curdate.mon.to_s.rjust(2,"0")} "] += 1
}
monthhead.sort.each{|title,count|
year, month = title.split("-").collect{|e| e.to_i}
ret += "<th colspan='#{count}'>#{Date::ABBR_MONTHNAMES[month]} #{year}</th>\n"
}
ret += "</tr><tr><td></td>\n"
@head.sort.each{|curdate,curdescription|
ret += "<th>#{Date::ABBR_DAYNAMES[curdate.wday]}, #{curdate.day}</th>\n"
}
ret += "<th>Last Edit</th>\n"
ret += "</tr>\n"
ret
end
def add_remove_column_htmlform
if $cgi.include?("add_remove_column_month")
begin
startdate = Date.parse("#{$cgi["add_remove_column_month"]}-1")
rescue ArgumentError
olddate = $cgi.params["add_remove_column_month"][1]
case $cgi["add_remove_column_month"]
when YEARBACK
startdate = Date.parse("#{olddate}-1")-365
when MONTHBACK
startdate = Date.parse("#{olddate}-1")-1
when MONTHFORWARD
startdate = Date.parse("#{olddate}-1")+31
when YEARFORWARD
startdate = Date.parse("#{olddate}-1")+366
end
startdate = Date.parse("#{startdate.year}-#{startdate.month}-1")
end
else
startdate = Date.parse("#{Date.today.year}-#{Date.today.month}-1")
end
ret = <<END
<div id='add_remove_column'>
<fieldset><legend>add/remove column</legend>
<form method='post' action='.'>
<div>
<table><tr>
END
def navi val
"<th style='padding:0px'>" +
"<input class='navigation' type='submit' name='add_remove_column_month' value='#{val}' />" +
"</th>"
end
[YEARBACK,MONTHBACK].each{|val| ret += navi(val)}
ret += "<th colspan='3'>#{Date::ABBR_MONTHNAMES[startdate.month]} #{startdate.year}</th>"
[MONTHFORWARD, YEARFORWARD].each{|val| ret += navi(val)}
ret += "</tr><tr>\n"
7.times{|i| ret += "<th>#{Date::ABBR_DAYNAMES[(i+1)%7]}</th>" }
ret += "</tr><tr>\n"
(startdate.wday-1).times{
ret += "<td></td>"
}
d = startdate
while (d.month == startdate.month) do
klasse = "notchoosen"
klasse = "disabled" if d < Date.today
klasse = "choosen" if @head.include?(d)
ret += "<td class='calendarday'><input class='#{klasse}' type='submit' name='add_remove_column' value='#{d.day}' /></td>\n"
ret += "</tr><tr>\n" if d.wday == 0
d = d.next
end
ret += <<END
</tr></table>
<input type='hidden' name='add_remove_column_month' value='#{startdate.strftime("%Y-%m")}' />
</div>
</form>
</fieldset>
</div>
END
ret
end
def add_remove_column name,description
begin
parsed_name = Date.parse("#{$cgi["add_remove_column_month"]}-#{name}")
rescue ArgumentError
return false
end
add_remove_parsed_column(parsed_name,CGI.escapeHTML(description))
end
end
if __FILE__ == $0
require 'test/unit'
class DatePollTest < Test::Unit::TestCase
def setup
@poll = DatePoll.new
end
def teardown
File.delete("#{SITE}.yaml") if File.exists?("#{SITE}.yaml")
end
def test_add_remove_column
# how to test cgi class?
# assert(!@poll.add_remove_column("bla"))
# assert(!@poll.add_remove_column("31-02-2001"))
# assert(@poll.add_remove_column("2008-02-20"))
# assert_equal(Date,@poll.head[0].class)
# assert(@poll.add_remove_column(" 2008-02-20 "))
# assert(@poll.head.empty?)
end
end
end
|
