22 |
td { |
td { |
23 |
font-family:sans-serif; |
font-family:sans-serif; |
24 |
vertical-align: top; |
vertical-align: top; |
25 |
|
background: #eee; |
26 |
} |
} |
27 |
|
|
28 |
,hour { |
th,odd { |
29 |
border-top: 1px dashed #ccc; |
background: #eef; |
30 |
|
} |
31 |
|
|
32 |
|
th.even { |
33 |
|
background: #fcc; |
34 |
} |
} |
35 |
|
|
36 |
.hhmm { |
.hhmm { |
44 |
</head> |
</head> |
45 |
<body> |
<body> |
46 |
|
|
47 |
<table border=1 > |
<table> |
48 |
<tr><td></td> |
<tr><td></td> |
49 |
|; |
|; |
50 |
|
|
103 |
} |
} |
104 |
} |
} |
105 |
|
|
106 |
my ($th,$class) = ('',''); |
my $class = $hh % 2 == 0 ? 'even' : 'odd'; |
107 |
($th,$class) = ( "<th rowspan=60>$hh</th>", ' class="hour"' ) if $mm == 0; |
|
108 |
print qq|<tr$class>$th|, join('', @td), qq|</tr>\n|; |
my $th = ''; |
109 |
|
$th = qq|<th rowspan=60 class=$class>$hh</th>| if $mm == 0; |
110 |
|
|
111 |
|
print qq|<tr>$th|, join('', @td), qq|</tr>\n|; |
112 |
} |
} |
113 |
} |
} |
114 |
|
|