Code:
sub {
my ($yyyy,$mm,$dd) = split /\-/, GT::Date::date_get();
my @week_nums;
$week_nums[0] = undef; # should really start here - but thought it would be crearer like this :)
$week_nums[1] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[2] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[3] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[4] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[5] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[6] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[7] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[8] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[9] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[10] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[11] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[12] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[13] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[14] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[15] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[16] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[17] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[18] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[19] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[20] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[21] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[22] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[23] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[24] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[25] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[26] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[27] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[28] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[29] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[30] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[31] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[32] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[33] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[34] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[35] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[36] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[37] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[38] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[39] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[40] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[41] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[42] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[43] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[44] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[45] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[46] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[47] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[48] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[49] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[50] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[51] = "http://www.yoursite.com/Detailed/12343.html";
$week_nums[52] = "http://www.yoursite.com/Detailed/12343.html";
use Date::Calc;
my ($week_num,$year) = Week_of_Year($yyyy,$mm,$dd);
return $week_nums[$week_num];
}
This will return the current weeks detailed page (probably easier to create a new category in GLinks, and then add an entry for each of these pages). Alternativly, you could use my PageCreator plugin which will let you create those pages without placing them in the general categories. This would also give you more flexability over the general layout of the pages.