/home/a/aquarion/sites/www.aquarionics.com/epistula/chapters/writing.inc.php
All my code (That is, anything not in the "Others" list on the right) is BSD licenced.
You can also view this page as text/plain or colour-coded source
<?PHP
/*******************************************************************************
Chapter - Writing
********************************************************************************
"Page" clone, Display the item of this type, or a list of recent items
$Id: writing.inc.php,v 1.1.1.1 2004/05/16 17:39:13 aquarion Exp $
$log$
*******************************************************************************/
/* Weblog.inc. Display the writing section of Epistula
26/11/2002 - aq - First version.
*/
#array_shift($wanted);
$file = implode("/",$wanted);
$page->title = "Writings";
$types = array("writing");
$display = "single";
$limit = 10;
$localnav = array(
array("link" => "/writing/", "name" => "All by Category"),
array("link" => "/writing/recent", "name" => "Last 10"),
array("link" => "/archive/writing/", "name" => "By Date")
);
$page->localnav = $page->subheading("More Writing:").$page->menu($localnav);
$page->localnav .= $page->ulink("/meta/writing.rss2", $page->image("/assets/images/buttons/rss2.gif", "[RSS Icon]"), "Aquarionics ".$page->chapter." RSS Feed")."<br>";
$page->localnav .= $page->ulink("/meta/writing.esf", $page->image("/assets/images/buttons/esf.gif", "[ESF Icon]"), "Aquarionics ".$page->chapter." ESF Feed")."<br>";
$page->localnav .= $page->ulink("/meta/writing.cdf", $page->image("/assets/images/buttons/cdf.gif", "[CDF Icon]"), "Aquarionics ".$page->chapter." CDF Channel");
switch ($wanted[1]){
case "id":
if (!is_numeric($wanted[2])){
$page->status = 404;
} else {
$return = showItem($page,"writing.id = ".$wanted[2],"writing",$display);
if ($return){
$page->content .= $return[1];
$page->localnav .= $page->subheading($_EP['nameforQV']).getQV($page,$return[0],"writing");
} else {
$page->status = 404;
}
}
break;
case "name":
$return = showItem($page,"title = \"".ep_decode($wanted[2])."\"","writing",$display);
if ($return){
$page->content .= $return[1];
$page->localnav .= $page->subheading($_EP['nameforQV']).getQV($page,$return[0],"writing");
} else {
$page->status = 404;
}
break;
case "recent":
$page->content .= buildIndex($types,$display,$limit);
case "":
$page->content .= $page->item(byCat("writing"));
break;
default:
$page->status = 404;
#$page->content .= buildIndex($types,$display,$limit);
}
#$page->content .= $page->item($c);
?>
Using a heavily customised version of Tom's PHPCode2ValidXHTML Thing