Hitorigoto?

my $days_in_month = days_in($m, $y);
my $pad_start = wday_from_ts($y, $m, 1);
my $pad_end = 6 - wday_from_ts($y, $m, $days_in_month);
my $iter = MT::Entry->load_iter({ blog_id => $blog_id,

赤字部分を下記青字のように変更。

my $days_in_month = days_in($m, $y);
my ($sdow);
$sdow = 0 unless ($sdow = $args->{sdow});
my $pad_start = (wday_from_ts($y, $m, 1) + 7 - $sdow) % 7;
my $pad_end = 6 - (wday_from_ts($y, $m, $days_in_month) + 7 - $sdow) % 7;
my $iter = MT::Entry->load_iter({ blog_id => $blog_id,

・通常の日曜始まり
<table summary="<MTArchiveDate format="%Y/%m">">
<tr>
<th abbr="Sunday" class="sunday">Sun</th>
<th abbr="Monday">Mon</th>
<th abbr="Tuesday">Tue</th>
<th abbr="Wednesday">Wed</th>
<th abbr="Thursday">Thu</th>
<th abbr="Friday">Fri</th>
<th abbr="Saturday" class="saturday">Sat</th>
</tr>
<MTCalendar month="this" sdow="1">
<MTCalendarWeekHeader><tr></MTCalendarWeekHeader>

赤字部分を下記青字のように書き換え。

・今回変更する月曜始まり
<table summary="<MTArchiveDate format="%Y/%m">">
<tr>
<th abbr="Monday">Mon</th>
<th abbr="Tuesday">Tue</th>
<th abbr="Wednesday">Wed</th>
<th abbr="Thursday">Thu</th>
<th abbr="Friday">Fri</th>
<th abbr="Saturday" class="saturday">Sat</th>
<th abbr="Sunday" class="sunday">Sun</th>
</tr>
<MTCalendar month="this" sdow="1">
<MTCalendarWeekHeader><tr></MTCalendarWeekHeader>