vB Journal | vba CMPS module: latest entries

This hack is for [vB 3.0.3] - vB Journal for vBulletin 3.0.3(v1.0.0) and [vB 3.0.3]

Hi,
this is the Brahm's vbindex conversion for vba CMPS: this module will show latest journal entries in a box in your CMPS system.

demo:
http://www.wellage.net



Here we go:

touch /path_to_your_forum_dir/modules/journalentries.php
-----------------------------------------

PHP Code:

<?php
// ######################### Latest Forum Topics #########################
$getlateste= $DB_site->query("
            SELECT journal_entries.entrytitle,journal_entries.entrydate,
            journal_entries.entry_id,journal_entries.entrytext,
            journal_entries.journal_id,journals.journalist,journals.journalist_id
            FROM ".TABLE_PREFIX."journal_entries AS journal_entries
            LEFT JOIN ".TABLE_PREFIX."journals AS journals ON (journal_entries.journal_id=journals.journal_id)
            WHERE journal_entries.entry_active=1 AND journal_entries.private!=1 AND journals.private!=1
            ORDER BY journal_entries.entrydate DESC
            LIMIT 5
            ");
            $countlatest= $DB_site->num_rows($getlateste);
            $latestentrybits = "";
            if($countlatest>0)
            {
                while($latest= $DB_site->fetch_array($getlateste))
                {
                    $latestentrydate= vbdate($vboptions['dateformat'], $latest['entrydate'], 1);
                    $latestentrytime= vbdate($vboptions['timeformat'], $latest['entrydate']);
                    exec_switch_bg();
                    if(strlen($latest[entrytitle])>20)
                    {
                        $latest[entrytitle]= "".substr($latest[entrytitle],0,20)."...";
                    }
                    if(strlen($latest[entrytext])>150)
                    {
                        $latest[entrytext]= "".substr($latest[entrytext],0,150)."...";
                    }
                    eval('$latestentrybits .= "' . fetch_template('journal_latestentrybits') . '";');
                }
                $DB_site->free_result($lastest);
            }
            else
            {
                $latestentrybits=$vbphrase['adv_no_entries'];
            }


    eval('$home[$mods[\'modid\']][\'content\'] = "' . fetch_template('adv_portal_latestjournalentry') . '";');

    $DB_site->free_result($getlateste);
    unset($latestentrybits,$latest,$latestentrytime,$latestentrydate,$countlatest);

?>

then create template 'adv_portal_latestjournalentry'
-----------------------------------------

<table align="center" border="0" cellpadding="$stylevar[cellpadding]" cellspacing="$stylevar[cellspacing]" class="tborder" width="100%">
<thead>
 <tr>
  <td class="tcat">
<a style="float:$stylevar[right]" href="#top" onclick="return toggle_collapse('cmps_pagesmenu')"><img id="collapseimg_cmps_pagesjournal" src="$stylevar[imgdir_button]/collapse_thead$vbcollapse[collapseimg_cmps_pagesjournal].gif" alt="" border="0" /></a>
    <span class="smallfont"><strong>$vbphrase[adv_latest_journalentries]</strong></span>
  </td>
 </tr>
</thead>
<tbody id="collapseobj_cmps_pagesjournal" style="$vbcollapse[collapseobj_cmps_pagesjournal];text-align:$stylevar[left]">
$latestentrybits
</tbody>
</table>
<br />

Now add 2 GLOBAL phrases:
$vbphrase[adv_latest_journalentries] = "Latest Journal Entries"
$vbphrase[adv_no_entries] = "No Journal Entries"



Then create a new module:
Module Title: Journal Latest Entries
File to include: journalentries.php
Active: yes... -.-'
Column: right|left
Templates Used: adv_portal_latestjournalentry, journal_latestentrybits


Have fun and don't forget to :-)





UPDATE (10/17/2004):
- added 2 modified version of 'journal_latestentrybits' for right|left or center block (thanx to Billbensen for center version) - see attachments [ billbensen__centered_block.txt]
- Valentino Rossi Wins! :devious:

UPDATE (10/20/2004):
- patched template collapse id, please change your old template with new version. (thx to memobug for debugging)




thx to
AN-net for his Journal hack
Brahm for the vBindex version of this module.
Billbensen for modified version of journal_latestentrybits template

[Moya]

Hi Bolas,

Thanks for this hack. There is something that I don't understand. This module causes a blank page when I tried to open my main page with Firefox. It works fine when I open it with IE

[Bolas]

d'oh! I'm under Debian (unstable) and I use to browse ONLY with mozilla-firefox (now 0.9.x) ...
Also Epiphany, IE ( lol... ), Konqueror, lynx... and I don't have blank pages...
Try opening my vbulletin: http://www.wellage.net: te module is loaded on the bottom-right of the home page and works fine.
The module is just a chunk of php code and some html.. just a blank page? vBulletin in case of minor error (like a error in a module) doesn't stop his execution ( = blank page).

A) Does the needed template exists in the style you are using?

B) does your account have privis to receive that page? ( I mean... Are you logged with the same account of IE - check cookies - in Firefox? )

Without error messages I can't imagine what happens, but don't worry: we will find a solution!




...


C) just to be sure... when you set unactive my module all works fine?

[Wordplay]

sorry but i'm really slow with hacking. what are you supposed to place as the variables name when creating the phrases?

is it:
VARIABLES NAME: adv_latest_journalentries
TEXT: Latest Journal Entries

[Bolas]

in /admincp, in the menu on the left:

Languages & Phrases
open section

Phrase Manager
click

on the right frame click Add New Phrase

in the new page (Add New Phrase)

Phrase Type: choose 'GLOBAL'
Varname: insert 'adv_latest_journalentries'
text: insert 'Latest Journal Entries' (and if you got another language installed fill it with right translation

SAVE



Say me if you need screenshot to follow step by step the single action!

bye!

[Wordplay]

i have a little problem with this, the module shows up and it even includes the correct subjects of the latest journal entries, but the link is wrong for some reason. how can it pick out the right info but the wrong link?

the link will just be www.xxx.com/journal.php instead of www.xxx.com/forum/journal.php, how can i fix this?

[Bolas]

open admincp/

choose your style (or default) and show template list.
open 'journal_latestentrybits'

find (or similar code.. the template is very little..)

PHP Code:

href="forum/journal.php 


replace it with

PHP Code:

href="journal.php 


[Wordplay]

thanks alot! it was set to journal.php, i set it to the full link now it works!

[billbensen]

for those of you that want this to be used in the center block.

This is the journal_latestentrybits

<tr>
<td class="$bgclass"><div class="smallfont"><a href="$vboptions[bburl]/journal.php?do=showentry&e=$latest[entry_id]" title="$latest[entrytext]">$latest[entrytitle]</a> - ($latestentrydate at <span class="time">$latestentrytime</span>)<br /><span style="cursor:pointer" onclick="window.open('member.php?u=$latest[journalist_id]')">$latest[journalist]</span></div></td>
<tr><td class="$bgclass"><div class="smallfont">$latest[entrytext]<a href="$vboptions[bburl]/journal.php?do=showentry&e=$latest[entry_id]" title="$latest[entrytext]">more</a></div></td></tr>
</tr>

It will display the short blurb of the journal entry and add a "more" link at the end.

[Bolas]

I like it and make a different version insiperd of your version.
I updated the thread with your and mine versions (See attachments!)

Thank you!

[memobug]

Greetings

1. It looks like this is a typo, should probably be "latest"

}
$DB_site->free_result($lastest);
}

2. It is necessary to use stripslashes in a couple of places to prevent escaped quotes, i.e., Fred\'s Comment
Just inside the while loop add:

	 $latest[entrytitle]="".stripslashes($latest[entrytitle]);
	 $latest[entrytext]="".stripslashes($latest[entrytext]);

Don't ask me what the "". part is about, I'm just making it consistent with the existing code.

3. I added in a count of the comments in both the query and the templatebits

4. It would be very helpful if the hack installation instructions identify specifically (by link) which Journal it is intended for use. I think I have found about three threads that claim to be vbJournal and several versions of some.

At any rate it looks like it's incompatible with my version of "vbJournal" - now I have to figure out which version that is. Some port of Ryangel's hack I found on vbtemplates.org, I think.

5. I was able to modify the query and get everything to work with my version of the Journal, with the exception of this one parameter:

$latest[journalist], (journals.journalist), because that is a field I don't have in my database. I'm assuming that is the proper name of the Journal keeper, but I am a little surprised to see it in the journal table and not derived from the user table. If it were the username, it would be redundant and not necessarily subject to update if the username were changed.

:ermm:
Regards,

Matt