Vbadvanced Recent Thread pagination

[felixthekat85]

This is one modification I made to recenthread.php to display a pagination as news.php

I'm no expert on this, in fact. I do not know anything. I'm sure someone with more knowledge, can upgrade.

Sorry my bad english

Modules/recentthreads.php
Find
if ($mod_options['portal_threads_maxthreads'])
{
Add after

/////PAGINATION By Felixthekat////////////
$perpage = 10;
$itemcount = $db->query_first("SELECT count(thread.threadid) as itemcount FROM " . TABLE_PREFIX . "thread as thread
$rthread_join
WHERE open != 10
AND thread.visible = 1 " .
iif($mod_options['portal_threads_cutoffdate'],
'AND thread.lastpost > ' . (TIMENOW - $mod_options['portal_threads_cutoffdate'] * 86400)
) .
iif($ignusers,
' AND thread.postuserid NOT IN(' . $ignusers . ')'
) . "$vba_threads_condition");

$pagenumber = $vbulletin->input->clean_gpc('r', 'pagenumber', TYPE_UINT);
sanitize_pageresults($itemcount['itemcount'], $pagenumber, $perpage,$perpage,$perpage);
$limitlower = ($pagenumber - 1) * $perpage + 1;
$limitupper = $pagenumber * $perpage;

if ($limitupper > $itemcount['itemcount'])
{
$limitupper = $itemcount['itemcount'];
if ($limitlower > $itemcount['itemcount'])
{
$limitlower = $itemcount['itemcount'] - $perpage;
}}

if ($limitlower <= 0)
{
$limitlower = 1;
}

$pagenav = construct_page_nav($pagenumber, $perpage, $itemcount['itemcount'], 'index.php?');
/////////////////////////////////

Find
LIMIT $mod_options[portal_threads_maxthreads]
Replace
LIMIT " . ($limitlower - 1) . ", $perpage

Go to Admincp > Styles and Templates > Your template > Templates of vbadvanced CMPS > adv_portal_recthreads_exp_head
add to the end
<tr>
<td>
$pagenav
</td>
</tr>

Enjoy!!

Screenshot

[v123shine]

Good idea...like it bro :)

[vijayninel]

Nice mod... :)

[Lustikus]

can anybody pls update to vb 4.x ???

[too_cool_3]

Anyone capable of updating this to work in vB4? Would be much appreciated.

[mahmo0od]

thank u friend
good job

[matrex722]

Wow thanks for this
i think i gonna use it

[al2thero]

i will try it

[al2thero]

thank u friend

[viper357]

This seems to only be partially working on vb 3.8.5 and vba 3.2.1. The pagenav is not showing up, just a blank line.

Is there anybody out there that can have a look and provide a fix? Pretty please? :)

[RELAX13]

Good Id :D