****************************************************************************** ****************************************************************************** * MOD NAME: Recent Visitors Stats [6.3.x] * ****************************************************************************** * DESCRIPTION: Displays PNTF stats in summary category * * * * * ****************************************************************************** * AUTHORS: havoq * * * * DATE: 08-28-2004 * ****************************************************************************** * COMPATABILITY: 6.3.x (6.7 Also Probably) * ****************************************************************************** * FILES MODIFIED: public_pntf_summary.pl * * * * * ------------------------- COPYRIGHT NOTICE ----------------------------------- Code contained in this archive may only be used if you are Infopop or an Infopop licensee only. Usage of code in this archive for coding purposes is restricted for UBB-related purposes only. Furthermore, users must obtain written permission of one of the 2 contributors to this hack before using code from this hack in any other hacks. You may freely add this hack to as many UBBs you own as long as you are licensed from Infopop to do so. Distribution either in part or in whole of this archive or any files thereof is not permitted. You may not remove any copyright notices displayed by this hack. The copyright must be visible to the human eye with little effort. If don't own a LEGAL license to UBB 6, you have NO RIGHT to use this hack. If you disagree to the conditions outlined above, you may not use this code at all. ### WARNING: BACK UP ALL FILES BEFORE APPLYING THIS MODFICATION. ### ########################################################################### ######################################################## ###Open public_pntf_summary.pl ######################################################## ######## # find # ######## sub QuickSummary { my $title = shift; my $qstring = shift; my $r = shift; my $colspan = shift || 1; my $string; ############## # Add Below: # ############## my @userstring; my $counter = 0; my @xa = @{ $r->{'sortorder'} }; my $diff = 0; $diff += scalar(@xa); @xa = (); $r->{"overflowit"} += $diff; @userstring = (); @xa = (); if($r->{"overflowit"} > 0) { if($userstring[0] =~ m/\d{8}/) { push(@userstring, qq($r->{"overflowit"} $vars_wordlets_pntf{pntf_more_logged_in_users})); } else { push(@userstring, qq($r->{"overflowit"} $vars_wordlets_pntf{pntf_logged_in_users})); } # end if } # end if ######## # find # ######## $title $vars_wordlets_pntf{pntf_simple_title} $r->{'raw_total'} ############### # Replace With # ############### $title $vars_wordlets_pntf{pntf_simple_title}   Members: $r->{"overflowit"} | Hidden: $r->{'hidden'} | Guests: $r->{"guests"} | Total: $r->{'raw_total'}   ######## That's It! Clear Your Cache Via The CP