Calendar: Difference between revisions
Content added Content deleted
(added perl6) |
m (minor fix) |
||
| Line 950: | Line 950: | ||
$date = DateTime.new(year => $year, month => $month, day => $day); |
$date = DateTime.new(year => $year, month => $month, day => $day); |
||
$str ~= " " if $week-day < 8; |
$str ~= " " if 1 < $week-day < 8; |
||
if $week-day == 8 { |
if $week-day == 8 { |
||
$str ~= "\n"; |
$str ~= "\n"; |
||