Weekly archive module

I thought a BBCode-like [php] would do it, but...

I have absolutely given up trying to colorize this code.

This module now has two options in the settings page:

1. Sort the block in chronological or reverse chronological order
2. Automatically paginate the output or not

function week_help($section) {
switch($section) {
case "admin/system/modules/week":
$output = "";
break;
case "admin/system/modules#description":
$output = "Create block containing a list of weekly archives.";
break;
default:
$output = "";
break;
}
return $output;
}

function week_perm(){
return array("administer week");
}

function week_settings(){
if (!user_access("administer week")){
return message_access();
}

$op = $_POST["op"];
$config_values = $_POST["edit"];

if ($op){
switch ($op) {
case "Save configuration":
foreach($config_values as $key => $value){
variable_set($key, $value);
}
break;
case "Reset to defaults":
variable_set("rev_chronsort", 0);
variable_set("paginate", 1);
break;
}
}
$output .= form_checkbox (t("Sort block in chronological order"), "rev_chronsort", 1, variable_get("rev_chronsort", 0),
t("If checked the list of archive links will be sorted from oldest to newest. ".
"Otherwise it will be sorted from newest to oldest"));
$output .= form_checkbox (t("Paginate archive page"), "paginate", 1, variable_get("paginate", 1),
t("If checked the output will be split into pages. ".
"The number of posts will respect the global nodes per page setting."));

$output = form_group(t("Configure weekly archives"), $output);

return $output;
}

function _archive_param(){
// node report or blog/book/whatever?
$page_type = arg(0);
switch ($page_type){
case 'week':
$node_type = arg(1);
if (arg(3)){
$user_no = arg(2);
}
break;
case 'blog':
$node_type = $page_type;
if(arg(1)) {
if (arg(1) !== 'add')
$user_no = arg(1);
}
case 'node':
case 'story':
$node_type = $page_type;
if (arg(2)){
$start_node = arg(2);
} elseif(arg(1)) {
if (arg(1) !== 'add')
$user_no = arg(1);
}
break;
default:
return;
break;
}
$request_params= array("page_type" => $page_type, "node_type" => $node_type, "user_no" => $user_no);
return $request_params;
}

function _week_block_params($param_array){

$output = $param_array["node_type"] ? $param_array["node_type"] != "node" ? 'type = "'.$param_array["node_type"].'"':"":"";
$output .= !empty($output)&&!empty($param_array["user_no"])? ' AND ':'';
$output .= $param_array["user_no"] ? 'uid = '.$param_array["user_no"] :"";
return $output;
}

function _week_path_builder($param_array){
$output = 'week/';
$output .= $param_array["node_type"].'/';
$output .= !empty($param_array["user_no"]) ? $param_array["user_no"].'/':'';
return $output;
}

function week_block($op='list', $delta=0) {

// listing of blocks, such as on the admin/system/block page
if ($op == "list") {
$block[0]["info"] = t("Weekly Archives");
return $block;
} else {
// our block content
$block_content = '';
$block['subject'] = t("Weekly Archives");

// first post for node type (and user?)
$sql_params = _archive_param();
if (!empty($sql_params["node_type"])){
$sql_selector = _week_block_params($sql_params);
$query = 'SELECT MIN(created) AS created, MAX(created) AS max_created from {node}';
$query .= empty($sql_selector) ? '':' WHERE '.$sql_selector;

$query_result = db_fetch_object(db_query($query));
$first_post_date = $query_result->created;
$last_post_date = $query_result->max_created;
$start_day = variable_get('default_firstday', 0);

$date_data = getdate($first_post_date);
$start_date = mktime(0,0,0, $date_data["mon"], $date_data["mday"] - ($date_data["wday"] - $start_day), $date_data["year"]);

$date_data = getdate($last_post_date);
$end_date = mktime(0,0,0, $date_data["mon"], $date_data["mday"] + (6 -($date_data["wday"] - $start_day)), $date_data["year"]);

$arc_path = _week_path_builder($sql_params);
while ($start_date < $end_date) {
// make anchor
$block_content[] = l(t(date('m/d/y',$start_date).' - '.date('m/d/y',$start_date+ 518400)),
$arc_path.$start_date).'
';

// decrement $start_date by a week
$start_date += (604800); // a week of seconds
}
// set up the block
$rev_chronsort = variable_get("rev_chronsort", 0);
if (!$rev_chronsort){
$block_content = array_reverse($block_content);
}
$block['content'] = theme_links($block_content, '');
}
return $block;
}
}

function _weekly_contentQuery($query_date, $param_array){
$date_data = getdate($query_date);
$start_date = mktime(0,0,0,$date_data['mon'], $date_data['mday'], $date_data['year']);
$end_date = mktime(23, 59, 59, $date_data['mon'],($date_data['mday'] + 6), $date_data['year']);
$sql_selector = _week_block_params($param_array);
// create the SQL for the query
$query_info[0] = 'SELECT n.nid from node n where (created >= '.$start_date.') and (created <= '.$end_date.') AND (status = 1)';
$query_info[0] .= $sql_selector ? ' AND '.$sql_selector:'';
$query_info[0] .= ' ORDER BY n.created DESC';
$query_info[1] = $start_date;
$query_info[2] = $end_date;
return $query_info;
}

function _weekly_page() {

global $base_url;

$paginate = variable_get("paginate", 1);
if (arg(3)){
$arcdate = arg(3);
} else {
$arcdate = arg(2);
}
// create the appropriate query
$param_array = _archive_param();
$query = _weekly_contentQuery($arcdate, $param_array);

if ($paginate){
$query_result = pager_query($query[0], variable_get("default_nodes_main", 10));
} else{
$query_result = db_query($query[0]);
}

// for each node returned by the query, theme the node and append it to the output string
while ($outnode = db_fetch_object($query_result)){
$output .= node_view(node_load(array("nid" => $outnode->nid)), 1);
}

if ($paginate){
$output .= theme('pager', NULL, variable_get("default_nodes_main", 20));
}

// if there's no output, don't let them stare at a blank page
$output = $output? $output:t("Sorry, there are no entries for this week.");
// return the output string
print theme('page', $output, t('Week of '.date('F d, Y', $query[1]).' to '.date('F d, Y', $query[2])));
}

function week_link($type, $node=0) {
if (($type == "system")) {
menu('week', t("Weekly Archive List"), "_weekly_page", NULL, 1);
}
}