connect week_day position on content

master
Mailkov 2015-12-26 12:19:58 +00:00
parent c6463eb22a
commit 3c32602a3a
2 changed files with 20 additions and 47 deletions

View File

@ -99,8 +99,11 @@ sub format_result {
# Skip to the first day of the week
$rText .= " " x $first_day_num;
# $rHtml .= "<td>&nbsp;</td>" x $first_day_num;
my $weekDayNum = $first_day_num;
my @weeks;
my @week_day = (" ") x $first_day_num;
my $weekDayNum = $first_day_num;
# Printing the month
for (my $dayNum = 1; $dayNum <= $lastDay; $dayNum++) {
my $padded_date = sprintf('%2s', $dayNum);
@ -111,16 +114,20 @@ sub format_result {
$rText .= ' ' . $padded_date . ' ';
# $rHtml .= "<td>$dayNum</td>";
}
push @week_day, $dayNum;
# next row after 7 cells
$weekDayNum++;
if ($weekDayNum == 7) {
$weekDayNum = 0;
$rText .= "\n";
push @weeks, [@week_day];
$weekDayNum = 0;
undef @week_day;
$rText .= "\n";
# $rHtml .= "</tr><tr>";
}
}
if (@week_day ne "") {
push @weeks, [@week_day];
}
$rText .= "\n";
# $rHtml .="</tr></table>";
@ -132,6 +139,7 @@ sub format_result {
month_year => $firstDay->strftime("%B %Y"),
previous_month => $previous->strftime("%B %Y"),
next_month => $next->strftime("%B %Y"),
weeks => \@weeks,
},
templates => {
group => 'text',

View File

@ -25,46 +25,11 @@
<th>F</th>
<th>S</th>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>1</td>
<td>2</td>
<td>3</td>
<td>4</td>
<td>5</td>
</tr>
<tr>
<td>6</td>
<td>7</td>
<td>8</td>
<td>9</td>
<td>10</td>
<td>11</td>
<td>12</td>
</tr>
<tr>
<td>13</td>
<td>14</td>
<td>15</td>
<td>16</td>
<td>17</td>
<td>18</td>
<td>19</td>
</tr>
<tr>
<td>20</td>
<td>21</td>
<td>22</td>
<td>23</td>
<td>24</td>
<td>25</td>
<td>26</td>
</tr>
<tr>
<td>27</td>
<td>28</td>
<td>29</td>
<td>30</td>
</tr>
{{#each weeks}}
<tr>
{{#each this}}
<td>{{this}}</td>
{{/each}}
</tr>
{{/each}}
</table>