my $weekarrayjs='';
my $count = 0;
+# FIXME - This assumes first pub date of today().
+# You can't enter past-date irregularities.
my ($year, $month, $day) = Today;
my $firstday = Day_of_Year($year,$month,$day);
my ($wkno,$yr) = Week_of_Year($year,$month,$day); # week starting monday
my $weekno = $wkno;
for(my $i=$firstday;$i<($firstday+365);$i=$i+7){
- $count = $i;
- if($wkno > 52){$year++; $wkno=1;}
- if($count>365){$count=$i-365;}
- my ($y,$m,$d) = Add_Delta_Days(1,1,1,$i - 1);
-
+ #$count = $i;
+ #if($wkno > 52){$year++; $wkno=1;}
+ #if($count>365){$count=$i-365;}
+ my ($y,$m,$d) = Add_Delta_Days($year,1,1,$i - 1);
+#warn "$y-$m-$d";
#BUGFIX padding add_delta_days() date
- my $output = sprintf("%04d-%02d-%02d",$y , $m, $d );
-
- $weekarrayjs .= "'Wk $wkno: ".format_date($output)."',";
+ my $output = sprintf("%04d-%02d-%02d",$y , $m, $d );
+ $weekarrayjs .= "'Wk $wkno: ". format_date($output) ."',";
$wkno++;
}
chop($weekarrayjs);