new module

I just recently have created a new module.

Basically what this would do is display in a block latest postings on a particular taxonomy.

There're lot of things need to be done:
1. put more link
2. select what node types to display on the block
3. include related terms and synonyms on that block

here's the code, feel free to test and comment on it. thanks...

[%
function taxonomy_block_link($type, $node = 0, $main = 0) {
if ($type == "system") {
drupal_set_html_head("
rel=\"stylesheet\"
href=\"modules/taxonomy_block/taxonomy_block.css\" />\n"
);
}
}

function taxonomy_block_help($section = "admin/help#taxonomy_block") {
$output = "";

switch ($section) {
case 'admin/help#taxonomy_block':
$output = "

Display list items from taxonomy in a block.

";
break;
case 'admin/system/modules#description':
$output = t("Display in a block the list of items/nodes from taxonomy.");
break;
}

return $output;
}

function taxonomy_block_block($op = "list", $delta = 0) {
if ($op == "list") {
$vocabularies = taxonomy_get_vocabularies();
$ctr = 0;
foreach ($vocabularies as $vocabulary) {
if (variable_get("taxonomy_block_show_" . $vocabulary->vid, 0)) {
$vocab_tree = taxonomy_get_tree($vocabulary->vid, 0);
foreach ($vocab_tree as $term) {
if (($term->parents[0] == 0)) {
$blocks[$term->tid]["info"] = t($vocabulary->name.": ". $term->name);
$ctr++;
}
}
}
}
}
elseif (user_access("access content")) {
$taxonomy->str_tids = check_query($delta);
$term = taxonomy_get_term($delta);
$tree = taxonomy_get_tree($term->vid, $delta);
if (is_array($tree)) {
foreach ($tree as $t) {
$taxonomy->str_tids .= check_query(",".$t->tid);
}
}
$taxonomy->operator = "or";
$taxonomy->tids = explode(",", $taxonomy->str_tids);

$result = taxonomy_select_nodes($taxonomy, 0);
$output = array();
while ($node = db_fetch_object($result)) {
$nodeterms = (taxonomy_node_get_terms($node->nid));
/*
* TODO
* get related terms and synonyms
*/
if (is_array($nodeterms)) {
foreach ($nodeterms as $t) {
if ($t->tid != $delta) {
$temp[] = l($t->name, "taxonomy/page/or/$t->tid");
}
}
}
$terms = $temp;
$temp = array();
$output[] = ($terms ? "".
theme("links", ", ", $terms).": " : "").
l("$node->title", "node/view/$node->nid");
}
if (!empty($output)) {
$content .= theme("block_list", $output);
$blocks["subject"] = t($term->name);
$blocks["content"] = $content;
}
/*
* TODO
* ?create "more" link
* ?points to the taxonomy page of the first level or
* ?points to the taxonomy page plus its children
* ?or points to article module
*/
//$blocks['content'] .= "

";
}

return $blocks;
}

function taxonomy_block_settings() {

$output = "

If a vocabulary is checked, first level taxonomy
can be displayed as a block
(see block configuration)
and list all the nodes under it including nodes of the child taxonomy.";

foreach (taxonomy_get_vocabularies() as $vocabulary) {
$output .= form_checkbox(t("Create blocks for terms of '%vocab'",
array("%vocab" => t($vocabulary->name))),
"taxonomy_block_show_" . $vocabulary->vid, 1,
variable_get("taxonomy_block_show_" . $vocabulary->vid, 0));
}

return $output;
} // taxonomy_block_settings

function theme_block_list($items = array()) {
$output = "

";

return $output;
}
%]