hey very nice hack!
I was playing with get 5 latest journals on my vBa CMPS indexpage!.. can't get it totally to work so was wondering if there allready an add-on out there or if someone can help me?
I have made a new module witch calls the following phpfile "latestjournals":
PHP Code:
<?php
// ++=========================================================================++
// || vBadvanced CMPS v2.0.0 (vB 3.5) - ****
// || ? 2003-2004 vBadvanced.com & PlurPlanet, LLC - All Rights Reserved
// || This file may not be redistributed in whole or significant part.
// || http://vbadvanced.com
// || Downloaded --
// ||
// ++ ========================================================================++
$getlatestj= $db->query_read("SELECT journalname,journalist,journalist_id,journal_id,journaldate,journaldesc FROM " . TABLE_PREFIX . "journals
WHERE active=1
AND (journalist_id=" . $vbulletin->userinfo['userid'] . " OR private != 1 OR FIND_IN_SET('" . $vbulletin->userinfo['userid'] . "', allowedusers))
ORDER BY journaldate
DESC LIMIT 5");
$countlatestj= $db->num_rows($getlatestj);
if($countlatestj>0)
{
while($latestj= $db->fetch_array($getlatestj))
{
$journaldate= vbdate($vbulletin->options['dateformat'], $latestj['journaldate'], 1);
$journaltime= vbdate($vbulletin->options['timeformat'], $latestj['journaldate']);
exec_switch_bg();
// TODO: fetch_trimmed_title()
if(strlen($latestj['journaldesc'])>200)
{
$latestj['journaldesc']= "".substr($latestj['journaldesc'],0,200)."...";
}
eval('$latestjournalbits .= "' . fetch_template('journal_latestjournalbits') . '";');
}
$db->free_result($lastestj);
}
else
{
$latestjournalbits="There are no journals.";
}
eval('$home["$mods[modid]"][\'content\'] = "' . fetch_template('journal_latestjournalbits') . '";');
?>
As you probably can see this isn't sufficient or even good but I am still a tottaly noob with a willing to learn more..
Thanks in advance!