F:\WEBSITES\testbed\zipped\yabb_svn_new\branches\2.5.2\cgi-bin\yabb2\Sources\Memberlist.pl F:\WEBSITES\testbed\zipped\yabb_svn_new\trunk\cgi-bin\yabb2\Sources\Memberlist.pm
############################################################################### ###############################################################################
# Memberlist.pl                                                               # # Memberlist.pm                                                               #
  # $Date: 01.05.16 $                                                           #
############################################################################### ###############################################################################
# YaBB: Yet another Bulletin Board                                            # # YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               # # Open-Source Community Software for Webmasters                               #
# Version:        YaBB 2.5.2                                                  # # Version:        YaBB 2.6.12                                                 #
# Packaged:       October 21, 2012                                            # # Packaged:       January 5, 2016                                             #
# Distributed by: http://www.yabbforum.com                                    # # Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== # # =========================================================================== #
# Copyright (c) 2000-2012 YaBB (www.yabbforum.com) - All Rights Reserved.     # # Copyright (c) 2000-2016 YaBB (www.yabbforum.com) - All Rights Reserved.     #
# Software by:  The YaBB Development Team                                     # # Software by:  The YaBB Development Team                                     #
#               with assistance from the YaBB community.                      # #               with assistance from the YaBB community.                      #
############################################################################### ###############################################################################
  # use strict;
  #use warnings;
  #no warnings qw(uninitialized once redefine);
  use CGI::Carp qw(fatalsToBrowser);
  our $VERSION = '2.6.12';
   
  $memberlistpmver = 'YaBB 2.6.12 $Revision: 1710 $';
  if ( $action eq 'detailedversion' ) { return 1; }
   
  if ( $iamguest && $ML_Allowed ) { fatal_error('no_access'); }
  if ( $ML_Allowed == 2 && !$staff ) {
     fatal_error('no_access');
  }
  if (   ( $ML_Allowed == 3 && !$iamadmin && !$iamgmod )
     || ( $ML_Allowed == 4 && !$iamadmin && !$iamgmod && !$iamfmod ) )
  {
     fatal_error('no_access');
  }
   
$memberlistplver = 'YaBB 2.5.2 $Revision: 1.0 $';  LoadLanguage('MemberList'); 
if ($action eq 'detailedversion') { return 1; }  get_micon(); 
  get_template('Memberlist');
if ($iamguest && $ML_Allowed) { &fatal_error('no_access'); }  
if ($ML_Allowed  == 2 && !$iamadmin && !$iamgmod && !$iammod) { &fatal_error('no_access'); }  
if ($ML_Allowed  == 3 && !$iamadmin && !$iamgmod) { &fatal_error('no_access'); }  
   
&LoadLanguage('MemberList');  
   
$MembersPerPage = $TopAmmount; $MembersPerPage = $TopAmmount;
$maxbar = 100; $maxbar         = 100;
$dr_warning = '';  $dr_warning     = q{}; 
$forumstart = $forumstart ? &stringtotime($forumstart) : "1104537600";  $forumstart     = $forumstart ? stringtotime($forumstart) : '1104537600'; 
   
   
sub Ml { sub Ml {
# Decides how to sort memberlist, and gives default sort order  
   
   if (!$barmaxnumb) { $barmaxnumb = 500; }     # Decides how to sort memberlist, and gives default sort order 
   if ($barmaxdepend == 1) {  
       $barmax = 1;  
       &ManageMemberinfo("load");  
       while (($key, $value) = each(%memberinf)) {  
           (undef, undef, undef, $memposts) = split(/\|/, $value);  
           if ($memposts > $barmax) { $barmax = $memposts; }  
       }  
       undef %memberinf;  
   } else {  
       $barmax = $barmaxnumb;  
   }  
   
   $FORM{'sortform'} ||= $INFO{'sortform'}; # Fix for Javascript disabled  
   if ($INFO{'sort'} eq "" && $FORM{'sortform'} eq "") { $INFO{'sort'} = $defaultml; $FORM{'sortform'} = $defaultml; }  
   
   if ($FORM{'sortform'} eq "username" || $INFO{'sort'} eq "mlletter" || $INFO{'sort'} eq "username") {  
       $page     = "a";  
       $showpage = "A";  
       while ($page ne "z") {  
           $LetterLinks .= qq(<a href="$scripturl?action=ml;sort=mlletter;letter=$page" class="catbg a"><b>$showpage&nbsp;</b></a> );  
           $page++;  
           $showpage++;  
       }  
               $LetterLinks .= qq(<a href="$scripturl?action=ml;sort=mlletter;letter=z" class="catbg a"><b>Z</b></a>  <a href="$scripturl?action=ml;sort=mlletter;letter=other" class="catbg a"><b>$ml_txt{'800'}</b></a> );  
   }  
   
   if ($INFO{'start'} eq "") { $start = 0; }  
   else { $start = "$INFO{'start'}"; }  
   if ($FORM{'sortform'} eq "posts" || $INFO{'sort'} eq "posts") { $selcPost .= qq( selected="selected"); $selPost .= qq(class="windowbg"); }  
   else { $selPost .= qq(class="windowbg2"); }  
   if ($FORM{'sortform'} eq "regdate" || $INFO{'sort'} eq "regdate") { $selcReg .= qq( selected="selected"); $selReg .= qq(class="windowbg"); }  
   else { $selReg .= qq(class="windowbg2"); }  
   if ($FORM{'sortform'} eq "position" || $INFO{'sort'} eq "position") { $selcPos .= qq( selected="selected"); $selPos .= qq(class="windowbg"); }  
   else { $selPos .= qq(class="windowbg2"); }  
   if ($FORM{'sortform'} eq "username" || $INFO{'sort'} eq "mlletter" || $INFO{'sort'} eq "username") { $selcUser .= qq( selected="selected"); $selUser .= qq(class="windowbg"); }  
   else { $selUser .= qq(class="windowbg2"); }  
   
   if ($FORM{'sortform'} eq "posts"    || $INFO{'sort'} eq "posts")    { &MLTop; }  
   if ($FORM{'sortform'} eq "regdate"  || $INFO{'sort'} eq "regdate")  { &MLDate; }  
   if ($FORM{'sortform'} eq "position" || $INFO{'sort'} eq "position") { &MLPosition; }  
   if ($FORM{'sortform'} eq "memsearch" || $INFO{'sort'} eq "memsearch") { &FindMembers; }  
   if ($INFO{'sort'} eq "" || $INFO{'sort'} eq "mlletter" || $INFO{'sort'} eq "username") { &MLByLetter; }  
   
     if ( !$barmaxnumb ) { $barmaxnumb = 500; }
     if ( $barmaxdepend == 1 ) {
         $barmax = 1;
         ManageMemberinfo('load');
         while ( ( $key, $value ) = each %memberinf ) {
             ( undef, undef, undef, $memposts ) = split /\|/xsm, $value;
             if ( $memposts > $barmax ) { $barmax = $memposts; }
         }
         undef %memberinf;
     }
     else {
         $barmax = $barmaxnumb;
     }
   
     $FORM{'sortform'} ||= $INFO{'sortform'};    # Fix for Javascript disabled
     if ( $INFO{'sort'} eq q{} && $FORM{'sortform'} eq q{} ) {
         $INFO{'sort'}     = $defaultml;
         $FORM{'sortform'} = $defaultml;
     }
   
     if (   $FORM{'sortform'} eq 'username' 
         || $INFO{'sort'} eq 'mlletter' 
         || $INFO{'sort'} eq 'username' )
     {
         $page     = 'a';
         $showpage = 'A';
         while ( $page ne 'z' ) {
             $LetterLinks .=
  qq(<a href="$scripturl?action=ml;sort=mlletter;letter=$page" class="$letterclass"><b>$showpage&nbsp;</b></a> );
             $page++;
             $showpage++;
         }
         $LetterLinks .=
  qq(<a href="$scripturl?action=ml;sort=mlletter;letter=z" class="$letterclass"><b>Z</b></a>  <a href="$scripturl?action=ml;sort=mlletter;letter=other" class="$letterclass"><b>$ml_txt{'800'}</b></a> );
     }
   
     if   ( $INFO{'start'} eq q{} ) { $start = 0; }
     else                           { $start = "$INFO{'start'}"; }
     if ( $FORM{'sortform'} eq 'posts' || $INFO{'sort'} eq 'posts' ) {
         $selcPost .= q~ selected="selected"~;
         $selPost  .= qq~class="$header_class_selected"~;
     }
     else { $selPost .= qq~class="$header_class"~; }
     if ( $FORM{'sortform'} eq 'regdate' || $INFO{'sort'} eq 'regdate' ) {
         $selcReg .= q~ selected="selected"~;
         $selReg  .= qq~class="$header_class_selected"~;
     }
     else { $selReg .= qq~class="$header_class"~; }
     if ( $FORM{'sortform'} eq 'position' || $INFO{'sort'} eq 'position' ) {
         $selcPos .= q~ selected="selected"~;
         $selPos  .= qq~class="$header_class_selected"~;
     }
     else { $selPos .= qq~class="$header_class"~; }
     if (   $FORM{'sortform'} eq 'username' 
         || $INFO{'sort'} eq 'mlletter' 
         || $INFO{'sort'} eq 'username' )
     {
         $selcUser .= q~ selected="selected"~;
         $selUser  .= qq~class="$header_class_selected"~;
     }
     else { $selUser .= qq~class="$header_class"~; }
   
     if ( $FORM{'sortform'} eq 'posts' || $INFO{'sort'} eq 'posts' ) { MLTop(); }
     if ( $FORM{'sortform'} eq 'regdate' || $INFO{'sort'} eq 'regdate' ) {
         MLDate();
     }
     if ( $FORM{'sortform'} eq 'position' || $INFO{'sort'} eq 'position' ) {
         MLPosition();
     }
     if ( $FORM{'sortform'} eq 'memsearch' || $INFO{'sort'} eq 'memsearch' ) {
         FindMembers();
     }
     if (   $INFO{'sort'} eq q{}
         || $INFO{'sort'} eq 'mlletter' 
         || $INFO{'sort'} eq 'username' )
     {
         MLByLetter();
     }
     return;
} }
   
sub MLByLetter { sub MLByLetter {
   $letter = lc($INFO{'letter'});     $letter = lc $INFO{'letter'}; 
   $i      = 0;    $i      = 0;
   &ManageMemberinfo("load");     ManageMemberinfo('load'); 
   foreach $membername (sort { lc $memberinf{$a} cmp lc $memberinf{$b} } keys %memberinf) {     foreach my $membername ( 
       ($memrealname, $mememail, undef, undef) = split(/\|/, $memberinf{$membername});         sort { lc $memberinf{$a} cmp lc $memberinf{$b} } 
       if ($letter) {         keys %memberinf 
           $SearchName = lc(substr($memrealname, 0, 1));       ) 
           if ($SearchName eq $letter) { $ToShow[$i] = $membername; $i++; }     { 
           elsif ($letter eq "other" && (($SearchName lt "a") || ($SearchName gt "z"))) { $ToShow[$i] = $membername; $i++; }         ( $memrealname, $mememail, undef, undef ) = 
       } else {           split /\|/xsm, $memberinf{$membername}; 
           $ToShow[$i] = $membername;         if ($letter) { 
           $i++;             $SearchName = lc( substr $memrealname, 0, 1 ); 
       }            if ( $SearchName eq $letter ) { $ToShow[$i] = $membername; $i++; }
   }             elsif ( $letter eq 'other' 
   undef %memberinf;                 && ( ( $SearchName lt 'a' ) || ( $SearchName gt 'z' ) ) ) 
   $memcount = @ToShow;             { 
   if (!$memcount && $letter) {                 $ToShow[$i] = $membername; 
       $pageindex1 = qq~<span class="small" style="float: left; height: 21px; margin: 0px; margin-top: 2px;"><img src="$imagesdir/index_togl.gif" border="0" alt="" style="vertical-align: middle;" /></span>~;                 $i++; 
       $pageindex2 = qq~<span class="small" style="float: left; height: 21px; margin: 0px; margin-top: 2px;"><img src="$imagesdir/index_togl.gif" border="0" alt="" style="vertical-align: middle;" /></span>~;             } 
   } else {         } 
       &buildIndex;         else { 
   }             $ToShow[$i] = $membername; 
   &buildPages(1);             $i++; 
   $b        = $start;         } 
   $numshown = 0;     } 
   if ($memcount) {     undef %memberinf; 
       while ($numshown < $MembersPerPage) {     $memcount = @ToShow; 
           &showRows($ToShow[$b]);     if ( !$memcount && $letter ) { 
           $numshown++;         $pageindex1 = 
           $b++;             q~<span ~ 
       }           . $pgindex_class 
   } else {           . qq~><img src="$index_togl{'index_togl'}" alt="" /></span>~; 
       if ($letter) { $yymain .= qq~<tr><td class="windowbg" colspan="$headercount" align="center"><br /><b>$ml_txt{'760'}</b><br /><br /></td></tr>~; }         $pageindex2 = 
   }             q~<span ~ 
   undef @ToShow;           . $pgindex_class 
   &buildPages(0);           . qq~><img src="$index_togl{'index_togl'}" alt="" /></span>~; 
   $yytitle = "$ml_txt{'312'} $numshow";     } 
   &template;     else { 
         buildIndex();
     }
     buildPages(1);
     $bb       = $start;
     $numshown = 0;
     if ($memcount) {
         while ( $numshown < $MembersPerPage ) {
             showRows( $ToShow[$bb] );
             $numshown++;
             $bb++;
         }
     }
     else {
         if ($letter) {
             $yymain .= $my_letter;
             $yymain =~ s/{yabb headercount}/$headercount/sm;
         }
     }
     undef @ToShow;
     buildPages(0);
     $yytitle = "$ml_txt{'312'} $numshow";
     template();
     return;
} }
   
sub MLTop { sub MLTop {
   %top_list = ();    %top_list = ();
   &ManageMemberinfo("load");     ManageMemberinfo('load'); 
   while (($membername, $value) = each(%memberinf)) {    while ( ( $membername, $value ) = each %memberinf ) {
       ($memrealname, undef, undef, $memposts) = split(/\|/, $value);         ( $memrealname, undef, undef, $memposts ) = split /\|/xsm, $value; 
       $memposts = sprintf("%06d", (999999 - $memposts));         $memposts = sprintf '%06d', ( 999_999 - $memposts ); 
       $top_list{$membername} = qq~$memposts|$memrealname~;        $top_list{$membername} = qq~$memposts|$memrealname~;
   }    }
   undef %memberinf;    undef %memberinf;
   my @toplist = sort { lc $top_list{$a} cmp lc $top_list{$b} } keys %top_list;    my @toplist = sort { lc $top_list{$a} cmp lc $top_list{$b} } keys %top_list;
   $memcount = @toplist;    $memcount = @toplist;
   &buildIndex;     buildIndex(); 
   &buildPages(1);     buildPages(1); 
   $b        = $start;    $bb       = $start;
   $numshown = 0;    $numshown = 0;
   
   while ($numshown < $MembersPerPage) {    while ( $numshown < $MembersPerPage ) {
       &showRows($toplist[$b]);         showRows( $toplist[$bb] ); 
       $numshown++;        $numshown++;
       $b++;         $bb++; 
   }    }
   undef @toplist;    undef @toplist;
   &buildPages(0);     buildPages(0); 
   $yytitle = "$ml_txt{'313'} $ml_txt{'314'} $numshow";    $yytitle = "$ml_txt{'313'} $ml_txt{'314'} $numshow";
   &template;     template(); 
     return;
} }
   
sub MLPosition { sub MLPosition {
   %TopMembers = ();    %TopMembers = ();
   &ManageMemberinfo("load");     ManageMemberinfo('load'); 
   
   my %nopostorder;    my %nopostorder;
   for (my $i = 0; $i < @nopostorder; $i++) { $nopostorder{$nopostorder[$i]} = $i;}     for my $i ( 0 .. $#nopostorder ) { 
         $nopostorder{ $nopostorder[$i] } = $i;
   memberposition: while (($membername, $value) = each(%memberinf)) {     } 
       ($memberrealname, undef, $memposition, $memposts) = split(/\|/, $value);  
       $memposts = 9999999999 - $memposts;   MEMBERPOSITION: while ( ( $membername, $value ) = each %memberinf ) { 
         ( $memberrealname, undef, $memposition, $memposts ) =
       foreach (keys %Group) {           split /\|/xsm, $value; 
           if ($memposition eq $_) {         $memposts = 9_999_999_999 - $memposts; 
               if ($_ eq "Administrator") {  
                   $TopMembers{$membername} = "a$memposts$memberrealname";         foreach ( keys %Group ) { 
                   next memberposition;             if ( $memposition eq $_ ) { 
               } elsif ($_ eq "Global Moderator") {                if ( $_ eq 'Administrator' ) {
                   $TopMembers{$membername} = "b$memposts$memberrealname";                     $TopMembers{$membername} = "a$memposts$memberrealname"; 
                   next memberposition;                     next MEMBERPOSITION; 
               }                }
           }                 elsif ( $_ eq 'Global Moderator' ) { 
       }                     $TopMembers{$membername} = "b$memposts$memberrealname"; 
                     next MEMBERPOSITION;
       foreach (keys %NoPost) {                 } 
           if ($_ == $memposition) {                elsif ( $_ eq 'Mid Moderator' ) {
               $memposition = sprintf("%06d", $nopostorder{$_});                     $TopMembers{$membername} = "bc$memposts$memberrealname"; 
               $TopMembers{$membername} = "d$memposition$memposts$memberrealname";                     next MEMBERPOSITION; 
               next memberposition;                 } 
           }            }
       }        }
   
       $TopMembers{$membername} = "e$memposts$memberrealname";         foreach ( keys %NoPost ) { 
   }             if ( $_ == $memposition ) { 
   my @toplist = sort { lc($TopMembers{$a}) cmp lc($TopMembers{$b})} keys %TopMembers;                 $memposition = sprintf '%06d', $nopostorder{$_}; 
   $memcount = @toplist;                 $TopMembers{$membername} = 
   &buildIndex;                   "d$memposition$memposts$memberrealname"; 
   &buildPages(1);                 next MEMBERPOSITION; 
   $b        = $start;             } 
   $numshown = 0;         } 
   while ($numshown < $MembersPerPage) {  
       &showRows($toplist[$b]);         $TopMembers{$membername} = "e$memposts$memberrealname"; 
       $numshown++;     } 
       $b++;     my @toplist = 
   }       sort { lc( $TopMembers{$a} ) cmp lc $TopMembers{$b} } keys %TopMembers; 
   undef @toplist;    $memcount = @toplist;
   undef %memberinf;     buildIndex(); 
   &buildPages(0);     buildPages(1); 
   $yytitle = "$ml_txt{'313'} $ml_txt{'4'} $ml_txt{'87'} $numshow";     $bb       = $start; 
   &template;     $numshown = 0; 
     while ( $numshown < $MembersPerPage ) {
         showRows( $toplist[$bb] );
         $numshown++;
         $bb++;
     }
     undef @toplist;
     undef %memberinf;
     buildPages(0);
     $yytitle = "$ml_txt{'313'} $ml_txt{'4'} $ml_txt{'87'} $numshow";
     template();
     return;
} }
   
sub MLDate { sub MLDate {
   ($memcount, undef) = &MembershipGet;     ( $memcount, undef ) = MembershipGet(); 
   &buildIndex;     buildIndex(); 
   &buildPages(1);     buildPages(1); 
   fopen(MEMBERLISTREAD, "$memberdir/memberlist.txt");     fopen( MEMBERLISTREAD, "$memberdir/memberlist.txt" ); 
   $counter = 0;    $counter = 0;
   while ($counter < $start && ($buffer = <MEMBERLISTREAD>)) { $counter++; }     while ( $counter < $start && ( $buffer = <MEMBERLISTREAD> ) ) { 
   for ($counter = 0; $counter < $MembersPerPage && ($buffer = <MEMBERLISTREAD>); $counter++) {         $counter++; 
       chomp $buffer;     } 
       if ($buffer) {    foreach my $counter ( 0 .. ( $MembersPerPage - 1 ) ) {
           ($membername, undef) = split(/\t/, $buffer, 2);         if ( $buffer = <MEMBERLISTREAD> ) { 
           &showRows($membername);             chomp $buffer; 
       }             if ($buffer) { 
   }                 ( $membername, undef ) = split /\t/xsm, $buffer, 2; 
   fclose(MEMBERLISTREAD);                 showRows($membername); 
   &buildPages(0);             } 
   $yytitle = "$ml_txt{'313'} $ml_txt{'4'} $ml_txt{'233'} $numshow";         } 
   &template;     } 
     fclose(MEMBERLISTREAD);
     buildPages(0);
     $yytitle = "$ml_txt{'313'} $ml_txt{'4'} $ml_txt{'233'} $numshow";
     template();
     return;
} }
   
sub showRows { sub showRows {
   my ($user) = $_[0];     my ($user) = @_; 
   my ($wwwshow);  
   if ($user ne '') {     my $wwwshow = qq~<img src="$imagesdir/$ml_trans" width="15" alt="" />~; 
       &LoadUser($user);     if ( $user ne q{} ) { 
       if (${$uid.$user}{'realname'} eq "") { ${$uid.$user}{'realname'} = $user; }         LoadUser($user); 
       if (!$minlinkweb) { $minlinkweb = 0; }         my $group_stars = q{}; 
       if (${$uid.$user}{'weburl'} && (${$uid.$user}{'postcount'} >= $minlinkweb || ${$uid.$user}{'position'} eq 'Administrator' || ${$uid.$user}{'position'} eq 'Global Moderator')) { $wwwshow = qq~<a href="${$uid.$user}{'weburl'}" target="_blank"><img src="$imagesdir/www.gif" border="0" alt="${$uid.$user}{'webtitle'}" title="${$uid.$user}{'webtitle'}" /></a>~; }         if ($group_stars_ml) { 
       $barchart = ${$uid.$user}{'postcount'};             if ( $user eq $username ) { LoadMiniUser($user); } 
       $bartemp  = (${$uid.$user}{'postcount'} * $maxbar);             $memberstar{$user} =~ s/<br \/>//gsm; 
       $barwidth = ($bartemp / $barmax);             $group_stars = qq~<br />$memberstar{$user}~; 
       $barwidth = ($barwidth + 0.5);         } 
       $barwidth = int($barwidth);         if ( ${ $uid . $user }{'realname'} eq q{} ) { 
       if ($barwidth > $maxbar) { $barwidth = $maxbar }             ${ $uid . $user }{'realname'} = $user; 
       if ($barchart < 1) { $Bar = ''; }        }
       else { $Bar = qq~<img src="$imagesdir/bar.gif" width="$barwidth" height="10" alt="" border="0" />~; }        if ( !$minlinkweb ) { $minlinkweb = 0; }
       if ($Bar eq "") { $Bar = "&nbsp;"; }         if ( 
       my $additional_tds = $extendedprofiles ? &ext_memberlist_tds($user) : '';             ${ $uid . $user }{'weburl'} 
             && (   ${ $uid . $user }{'postcount'} >= $minlinkweb
       $dr_regdate = '';                 || ${ $uid . $user }{'position'} eq 'Administrator' 
       if(${$uid.$user}{'regtime'}) {                 || ${ $uid . $user }{'position'} eq 'Global Moderator' 
           $dr_regdate = &timeformat(${$uid.$user}{'regtime'});                 || ${ $uid . $user }{'position'} eq 'Mid Moderator' ) 
           $dr_regdate =~ s~(.*)(, 1?[0-9]):[0-9][0-9].*~$1~;           ) 
           if($iamadmin && ${$uid.$user}{'regtime'} < $forumstart) {        {
               $dr_regdate = qq~<span style="color: #AA0000;">$dr_regdate *</span>~;             $wwwshow = 
               $dr_warning = qq~$ml_txt{'dr_warning'} <a href="$boardurl/AdminIndex.$yyaext?action=newsettings;page=main">$ml_txt{'dr_warnurl'}</a>~;  qq~<a href="${$uid.$user}{'weburl'}" target="_blank"><img src="$micon_bg{'www'}" alt="${$uid.$user}{'webtitle'}" title="${$uid.$user}{'webtitle'}" /></a>~; 
           }        }
       }         $barchart = ${ $uid . $user }{'postcount'}; 
         $bartemp  = ( ${ $uid . $user }{'postcount'} * $maxbar );
       $yymain .= qq~         $barwidth = ( $bartemp / $barmax ); 
       <tr>         $barwidth = ( $barwidth + 0.5 ); 
       <td class="windowbg">$link{$user}</td>         $barwidth = int $barwidth; 
       ~;         if ( $barwidth > $maxbar ) { $barwidth = $maxbar } 
       if (${$uid.$user}{'hidemail'} && !$iamadmin && $allow_hide_email == 1) {         if ( $barchart < 1 )       { $Bar      = q{}; } 
           $yymain .= qq~         else { 
           <td align="center" class="windowbg2"><img src="$imagesdir/lockmail.gif" alt="$ml_txt{'308'}" title="$ml_txt{'308'}" /></td>             $Bar = 
       ~;  qq~<img src="$imagesdir/$ml_bar" width="$barwidth" height="10" alt="" />~; 
       } else {         } 
           if (!$iamguest){         if ( $Bar eq q{} ) { $Bar = '&nbsp;'; } 
               $yymain .= qq~         my $additional_tds = 
               <td align="center" class="windowbg2">~ . &enc_eMail(qq~<img src="$imagesdir/email.gif" border="0" alt="$img_txt{'69'}" title="~ . ($iamadmin ? ${$uid.$user}{'email'} : $img_txt{'69'}) . qq~" />~,${$uid.$user}{'email'},'','') . qq~</td>           $extendedprofiles ? ext_memberlist_tds($user) : q{}; 
           ~;  
           } else {         $dr_regdate = q{}; 
               $yymain .= qq~         if ( ${ $uid . $user }{'regtime'} ) { 
               <td align="center" class="windowbg2"><img src="$imagesdir/lockmail.gif" alt="$ml_txt{'308'}" title="$ml_txt{'308'}" /></td>             $dr_regdate = timeformat( ${ $uid . $user }{'regtime'} ); 
           ~;             $dr_regdate =~ s/(.*)(, 1?[0-9]):[0-9][0-9].*/$1/sm; 
           }             if ( $iamadmin && ${ $uid . $user }{'regtime'} < $forumstart ) { 
       }                 $dr_regdate = 
       $yymain .= qq~                   qq~<span style="color: #AA0000;">$dr_regdate *</span>~; 
       <td align="center" class="windowbg2">$wwwshow</td>                 $dr_warning = 
       <td class="windowbg">$memberinfo{$user}&nbsp;</td>  qq~$ml_txt{'dr_warning'} <a href="$boardurl/AdminIndex.$yyaext?action=newsettings;page=main">$ml_txt{'dr_warnurl'}</a>~; 
       <td class="windowbg2" width="5%" align="center">~ . &NumberFormat(${$uid.$user}{'postcount'}) . qq~&nbsp;</td>             } 
       <td class="windowbg" width="18%">$Bar</td>         } 
       <td class="windowbg">$dr_regdate &nbsp;</td>  
       $additional_tds         if ( $showuserpicml && $allowpics ) { 
       </tr>~;             ${ $uid . $user }{'userpic'} ||= $my_blank_avatar; 
   }             $my_userpic = q~<img src="~ 
               . (
                   ${ $uid . $user }{'userpic'} =~ m/\A[\s\n]*https?:\/\//ism
                 ? ${ $uid . $user }{'userpic'}
                 : ( $default_avatar
                       && ${ $uid . $user }{'userpic'} eq $my_blank_avatar )
                 ? "$imagesdir/$default_userpic" 
                 : "$facesurl/${$uid.$user}{'userpic'}" 
               ) . q~" id="avatarml_img_resize" alt="" style="display:none" />~;
             if ( !$iamguest ) {
                 $my_userpic =
  qq~<a href="$scripturl?action=viewprofile;username=$useraccount{$user}">$my_userpic</a>~;
             }
             $userpic = $my_userpic_td;
             $userpic =~ s/{yabb my_userpic}/$my_userpic/sm;
         }
         else {
             $userpic = q{};
         }
         if (   ${ $uid . $user }{'hidemail'}
             && !$iamadmin
             && $allow_hide_email == 1 )
         {
             $lock = qq~
             <img src="$micon_bg{'lockmail'}" alt="$ml_txt{'308'}" title="$ml_txt{'308'}" />~;
         }
         else {
             if ( !$iamguest ) {
                 $lock = enc_eMail(
  qq~<img src="$micon_bg{'email'}" alt="$img_txt{'69'}" title="~
                       . (
                         $iamadmin ? ${ $uid . $user }{'email'} : $img_txt{'69'}
                       )
                       . q~" />~,
                     ${ $uid . $user }{'email'},
                     q{}, q{}
                 );
             }
             else {
                 $lock = qq~
                 <img src="$micon_bg{'lockmail'}" alt="$ml_txt{'308'}" title="$ml_txt{'308'}" />~;
             }
         }
   
         $yypostcount = NumberFormat( ${ $uid . $user }{'postcount'} );
   
         $yymain .= $my_memrow;
         $yymain =~ s/{yabb add_tds}/$additional_tds/sm;
         $yymain =~ s/{yabb userpic}/$userpic/sm;
         $yymain =~ s/{yabb userlink}/$link{$user}/sm;
         $yymain =~ s/{yabb lock}/$lock/sm;
         $yymain =~ s/{yabb wwwshow}/$wwwshow/sm;
         $yymain =~ s/{yabb meminfo}/$memberinfo{$user}$group_stars/sm;
         $yymain =~ s/{yabb bar}/$Bar/sm;
         $yymain =~ s/{yabb postcount}/$yypostcount/sm;
         $yymain =~ s/{yabb dr_regdate}/$dr_regdate/sm;
  ## Mod Hook ##
     }
     return $yymain;
} }
   
sub buildIndex { sub buildIndex {
   unless ($memcount == 0) {    if ( $memcount != 0 ) {
       if (!$iamguest) {        if ( !$iamguest ) {
           (undef, undef, $usermemberpage,undef ) = split(/\|/, ${$uid.$username}{'pageindex'});             ( undef, undef, $usermemberpage, undef ) = 
       }               split /\|/xsm, ${ $uid . $username }{'pageindex'}; 
         }
       # Build the page links list.  
       my ($pagetxtindex, $pagetextindex, $pagedropindex1, $pagedropindex2, $all, $allselected);         # Build the page links list. 
       $indexdisplaynum = 3;         my ( $pagetxtindex, $pagedropindex1, $pagedropindex2, $all, 
       $dropdisplaynum  = 10;             $allselected ); 
       if ($FORM{'sortform'} eq "") { $FORM{'sortform'} = $INFO{'sort'}; }         $indexdisplaynum = 3; 
       $postdisplaynum = 3;         $dropdisplaynum  = 10; 
       $startpage      = 0;         if ( $FORM{'sortform'} eq q{} ) { $FORM{'sortform'} = $INFO{'sort'}; } 
       $max            = $memcount;         $postdisplaynum = 3; 
       if ($SearchStr ne '') { $findmember = qq~;member=$SearchStr~; }         $startpage      = 0; 
       if ($INFO{'start'} eq "all") { $MembersPerPage = $max; $all = 1; $allselected = qq~ selected="selected"~; $start = 0 }         $max            = $memcount; 
       else { $start = $INFO{'start'} || 0; }        if ( $SearchStr ne q{} ) { $findmember = qq~;member=$SearchStr~; }
       $start    = $start > $memcount - 1 ? $memcount - 1 : $start;  
       $start    = (int($start / $MembersPerPage)) * $MembersPerPage;         if ( $INFO{'start'} eq 'all' ) { 
       $tmpa     = 1;             $MembersPerPage = $max; 
       $pagenumb = int(($memcount - 1) / $MembersPerPage) + 1;            $all            = 1;
             $allselected    = q~ selected="selected"~;
       if ($start >= (($postdisplaynum - 1) * $MembersPerPage)) {             $start          = 0; 
           $startpage = $start - (($postdisplaynum - 1) * $MembersPerPage);         } 
           $tmpa = int($startpage / $MembersPerPage) + 1;         else { $start = $INFO{'start'} || 0; } 
       }         $start    = $start > $memcount - 1 ? $memcount - 1 : $start; 
       if ($memcount >= $start + ($postdisplaynum * $MembersPerPage)) { $endpage = $start + ($postdisplaynum * $MembersPerPage); }         $start    = ( int( $start / $MembersPerPage ) ) * $MembersPerPage; 
       else { $endpage = $memcount }         $tmpa     = 1; 
       $lastpn     = int(($memcount - 1) / $MembersPerPage) + 1;        $pagenumb = int( ( $memcount - 1 ) / $MembersPerPage ) + 1;
       $lastptn    = ($lastpn - 1) * $MembersPerPage;  
       $pageindex1 = qq~<span class="small" style="float: left; height: 21px; margin: 0px; margin-top: 2px;"><img src="$imagesdir/index_togl.gif" border="0" alt="" style="vertical-align: middle;" /> $ml_txt{'139'}: $pagenumb</span>~;         if ( $start >= ( ( $postdisplaynum - 1 ) * $MembersPerPage ) ) { 
       $pageindex2 = qq~<span class="small" style="float: left; height: 21px; margin: 0px; margin-top: 2px;"><img src="$imagesdir/index_togl.gif" border="0" alt="" style="vertical-align: middle;" /> $ml_txt{'139'}: $pagenumb</span>~;             $startpage = $start - ( ( $postdisplaynum - 1 ) * $MembersPerPage ); 
       if ($pagenumb > 1 || $all) {             $tmpa = int( $startpage / $MembersPerPage ) + 1; 
         }
           if ($usermemberpage == 1 || $iamguest) {        if ( $memcount >= $start + ( $postdisplaynum * $MembersPerPage ) ) {
               $pagetxtindexst = qq~<span class="small" style="float: left; height: 21px; margin: 0px; margin-top: 2px;">~;             $endpage = $start + ( $postdisplaynum * $MembersPerPage ); 
               if (!$iamguest) { $pagetxtindexst .= qq~<a href="$scripturl?sort=$FORM{'sortform'};letter=$letter;start=$start;action=memberpagedrop$findmember"><img src="$imagesdir/index_togl.gif" border="0" alt="$ml_txt{'19'}" title="$ml_txt{'19'}" style="vertical-align: middle;" /></a> $ml_txt{'139'}: ~; }        }
               else { $pagetxtindexst .= qq~<img src="$imagesdir/xx.gif" border="0" alt="" style="vertical-align: middle;" /> $ml_txt{'139'}: ~; }        else { $endpage = $memcount }
               if ($startpage > 0) { $pagetxtindex = qq~<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter$findmember" style="font-weight: normal;">1</a>&nbsp;...&nbsp;~; }         $lastpn = int( ( $memcount - 1 ) / $MembersPerPage ) + 1; 
               if ($startpage == $MembersPerPage) { $pagetxtindex = qq~<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter$findmember" style="font-weight: normal;">1</a>&nbsp;~; }         $lastptn = ( $lastpn - 1 ) * $MembersPerPage; 
               for ($counter = $startpage; $counter < $endpage; $counter += $MembersPerPage) {         $pageindex1 = 
                   $pagetxtindex .= $start == $counter ? qq~<b>$tmpa</b>&nbsp;~ : qq~<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$counter$findmember" style="font-weight: normal;">$tmpa</a>&nbsp;~;             q~<span ~ 
                   $tmpa++;           . $pgindex_class 
               }           . qq~><img src="$index_togl{'index_togl'}" alt="" /> $ml_txt{'139'}: $pagenumb</span>~; 
               if ($endpage < $memcount - $MembersPerPage) { $pageindexadd = qq~...&nbsp;~; }         $pageindex2 = 
               if ($endpage != $memcount) { $pageindexadd .= qq~<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$lastptn$findmember" style="font-weight: normal;">$lastpn</a>~; }             q~<span ~ 
               $pagetxtindex .= qq~$pageindexadd~;           . $pgindex_class 
               $pageindex1 = qq~$pagetxtindexst$pagetxtindex</span>~;           . qq~><img src="$index_togl{'index_togl'}" alt="" /> $ml_txt{'139'}: $pagenumb</span>~; 
               $pageindex2 = qq~$pagetxtindexst$pagetxtindex</span>~;         if ( $pagenumb > 1 || $all ) { 
           } else {  
               $pagedropindex1 = qq~<span style="float: left; width: 350px; margin: 0px; margin-top: 2px; border: 0px;">~;             if ( $usermemberpage == 1 || $iamguest ) { 
               $pagedropindex1 .= qq~<span style="float: left; height: 21px; margin: 0; margin-right: 4px;"><a href="$scripturl?sort=$FORM{'sortform'};letter=$letter;start=$start;action=memberpagetext$findmember"><img src="$imagesdir/index_togl.gif" border="0" alt="$ml_txt{'19'}" title="$ml_txt{'19'}" /></a></span>~;                 $pagetxtindexst = q~<span ~ . $pgindex_class . q~>~; 
               $pagedropindex2 = $pagedropindex1;                 if ( !$iamguest ) { 
               $tstart         = $start;                     $pagetxtindexst .= 
               if (substr($INFO{'start'}, 0, 3) eq "all") { ($tstart, $start) = split(/\-/, $INFO{'start'}); }  qq~<a href="$scripturl?sort=$FORM{'sortform'};letter=$letter;start=$start;action=memberpagedrop$findmember"><img src="$index_togl{'index_togl'}" alt="$ml_txt{'19'}" title="$ml_txt{'19'}" /></a> $ml_txt{'139'}: ~; 
               $d_indexpages = $pagenumb / $dropdisplaynum;                 } 
               $i_indexpages = int($pagenumb / $dropdisplaynum);                 else { 
               if ($d_indexpages > $i_indexpages) { $indexpages = int($pagenumb / $dropdisplaynum) + 1; }                     $pagetxtindexst .= 
               else { $indexpages = int($pagenumb / $dropdisplaynum) }  qq~<img src="$micon_bg{'xx'}" alt="" /> $ml_txt{'139'}: ~; 
               $selectedindex = int(($start / $MembersPerPage) / $dropdisplaynum);                 } 
                 if ( $startpage > 0 ) {
               if ($pagenumb > $dropdisplaynum) {                     $pagetxtindex = 
                   $pagedropindex1 .= qq~<span style="float: left; height: 21px; margin: 0;"><select size="1" name="decselector1" id="decselector1" style="font-size: 9px; border: 2px inset;" onchange="if(this.options[this.selectedIndex].value) SelDec(this.options[this.selectedIndex].value, 'xx')">\n~;  qq~<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter$findmember"><span class="small">1</span></a>&nbsp;...&nbsp;~; 
                   $pagedropindex2 .= qq~<span style="float: left; height: 21px; margin: 0;"><select size="1" name="decselector2" id="decselector2" style="font-size: 9px; border: 2px inset;" onchange="if(this.options[this.selectedIndex].value) SelDec(this.options[this.selectedIndex].value, 'xx')">\n~;                 } 
               }                 if ( $startpage == $MembersPerPage ) { 
               for ($i = 0; $i < $indexpages; $i++) {                     $pagetxtindex = 
                   $indexpage  = ($i * $dropdisplaynum) * $MembersPerPage;  qq~<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter$findmember"><span class="small">1</span></a>&nbsp;~; 
                   $indexstart = ($i * $dropdisplaynum) + 1;                 } 
                   $indexend   = $indexstart + ($dropdisplaynum - 1);                 foreach my $counter ( $startpage .. ( $endpage - 1 ) ) { 
                   if ($indexend > $pagenumb)    { $indexend   = $pagenumb; }                     if ( $counter % $MembersPerPage == 0 ) { 
                   if ($indexstart == $indexend) { $indxoption = qq~$indexstart~; }                         $pagetxtindex .= 
                   else { $indxoption = qq~$indexstart-$indexend~; }                           $start == $counter 
                   $selected = "";                           ? qq~<b>[$tmpa]</b>&nbsp;~ 
                   if ($i == $selectedindex) {                           : qq~<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$counter$findmember"><span class="small">$tmpa</span></a>&nbsp;~; 
                       $selected    = qq~ selected="selected"~;                         $tmpa++; 
                       $pagejsindex = qq~$indexstart|$indexend|$MembersPerPage|$indexpage~;                     } 
                   }                }
                   if ($pagenumb > $dropdisplaynum) {                if ( $endpage < $memcount - $MembersPerPage ) {
                       $pagedropindex1 .= qq~<option value="$indexstart|$indexend|$MembersPerPage|$indexpage"$selected>$indxoption</option>\n~;                     $pageindexadd = q~...&nbsp;~; 
                       $pagedropindex2 .= qq~<option value="$indexstart|$indexend|$MembersPerPage|$indexpage"$selected>$indxoption</option>\n~;                 } 
                   }                 if ( $endpage != $memcount ) { 
               }                     $pageindexadd .= 
               if ($pagenumb > $dropdisplaynum) {  qq~<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$lastptn$findmember"><span class="small">$lastpn</span></a>~; 
                   $pagedropindex1 .= qq~</select>\n</span>~;                 } 
                   $pagedropindex2 .= qq~</select>\n</span>~;                 $pagetxtindex .= qq~$pageindexadd~; 
               }                 $pageindex1 = qq~$pagetxtindexst$pagetxtindex</span>~; 
               $pagedropindex1 .= qq~<span id="ViewIndex1" class="droppageindex" style="height: 14px; visibility: hidden">&nbsp;</span>~;                 $pageindex2 = qq~$pagetxtindexst$pagetxtindex</span>~; 
               $pagedropindex2 .= qq~<span id="ViewIndex2" class="droppageindex" style="height: 14px; visibility: hidden">&nbsp;</span>~;             } 
               $tmpMembersPerPage = $MembersPerPage;             else { 
               if (substr($INFO{'start'}, 0, 3) eq "all") { $MembersPerPage = $MembersPerPage * $dropdisplaynum; }                 $pagedropindex1 = q~<span class="pagedropindex">~; 
               $prevpage          = $start - $tmpMembersPerPage;                 $pagedropindex1 .= 
               $nextpage          = $start + $MembersPerPage;  qq~<span class="pagedropindex_inner"><a href="$scripturl?sort=$FORM{'sortform'};letter=$letter;start=$start;action=memberpagetext$findmember"><img src="$index_togl{'index_togl'}" alt="$ml_txt{'19'}" title="$ml_txt{'19'}" /></a></span>~; 
               $pagedropindexpvbl = qq~<img src="$imagesdir/index_left0.gif" height="14" width="13" border="0" alt="" style="margin: 0px; display: inline; vertical-align: middle;" />~;                 $pagedropindex2 = $pagedropindex1; 
               $pagedropindexnxbl = qq~<img src="$imagesdir/index_right0.gif" height="14" width="13" border="0" alt="" style="margin: 0px; display: inline; vertical-align: middle;" />~;                 $tstart         = $start; 
               if ($start < $MembersPerPage) { $pagedropindexpv .= qq~<img src="$imagesdir/index_left0.gif" height="14" width="13" border="0" alt="" style="display: inline; vertical-align: middle;" />~; }                 if ( substr( $INFO{'start'}, 0, 3 ) eq 'all' ) { 
               else { $pagedropindexpv .= qq~<img src="$imagesdir/index_left.gif" border="0" height="14" width="13" alt="$pidtxt{'02'}" title="$pidtxt{'02'}" style="display: inline; vertical-align: middle; cursor: pointer;" onclick="location.href=\\'$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$prevpage$findmember\\'" ondblclick="location.href=\\'$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=0$findmember\\'" />~; }                     ( $tstart, $start ) = split /\-/xsm, $INFO{'start'}; 
               if ($nextpage > $lastptn) { $pagedropindexnx .= qq~<img src="$imagesdir/index_right0.gif" border="0" height="14" width="13" alt="" style="display: inline; vertical-align: middle;" />~; }                }
               else { $pagedropindexnx .= qq~<img src="$imagesdir/index_right.gif" height="14" width="13" border="0" alt="$pidtxt{'03'}" title="$pidtxt{'03'}" style="display: inline; vertical-align: middle; cursor: pointer;" onclick="location.href=\\'$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$nextpage$findmember\\'" ondblclick="location.href=\\'$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$lastptn$findmember\\'" />~; }                 $d_indexpages = $pagenumb / $dropdisplaynum; 
               $pageindex1 = qq~$pagedropindex1</span>~;                 $i_indexpages = int( $pagenumb / $dropdisplaynum ); 
               $pageindex2 = qq~$pagedropindex2</span>~;                 if ( $d_indexpages > $i_indexpages ) { 
                     $indexpages = int( $pagenumb / $dropdisplaynum ) + 1;
               $pageindexjs = qq~                 } 
<script language="JavaScript1.2" type="text/javascript">                 else { $indexpages = int( $pagenumb / $dropdisplaynum ) } 
<!--                 $selectedindex = 
   function SelDec(decparam, visel) {                   int( ( $start / $MembersPerPage ) / $dropdisplaynum ); 
       splitparam = decparam.split("|");  
       var vistart = parseInt(splitparam[0]);                 if ( $pagenumb > $dropdisplaynum ) { 
       var viend = parseInt(splitparam[1]);                     $pagedropindex1 .= 
       var maxpag = parseInt(splitparam[2]);  qq~<span class="decselector"><select size="1" name="decselector1" id="decselector1" class="decselector_sel" onchange="if(this.options[this.selectedIndex].value) SelDec(this.options[this.selectedIndex].value, 'xx')">\n~; 
       var pagstart = parseInt(splitparam[3]);                     $pagedropindex2 .= 
       var allpagstart = parseInt(splitparam[3]);  qq~<span class="decselector"><select size="1" name="decselector2" id="decselector2" class="decselector_sel" onchange="if(this.options[this.selectedIndex].value) SelDec(this.options[this.selectedIndex].value, 'xx')">\n~; 
       if(visel == 'xx' && decparam == '$pagejsindex') visel = '$tstart';                 } 
       var pagedropindex = '<table border="0" cellpadding="0" cellspacing="0"><tr>';                 for my $i ( 0 .. ( $indexpages - 1 ) ) { 
       for(i=vistart; i<=viend; i++) {                     $indexpage  = ( $i * $dropdisplaynum ) * $MembersPerPage; 
           if(visel == pagstart) pagedropindex += '<td class="titlebg" height="14" style="height: 14px; padding-left: 1px; padding-right: 1px; font-size: 9px; font-weight: bold;">' + i + '</td>';                     $indexstart = ( $i * $dropdisplaynum ) + 1; 
           else pagedropindex += '<td height="14" class="droppages"><a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=' + pagstart + '$findmember">' + i + '</a></td>';                     $indexend   = $indexstart + ( $dropdisplaynum - 1 ); 
           pagstart += maxpag;                     if ( $indexend > $pagenumb ) { $indexend = $pagenumb; } 
       }                     if ( $indexstart == $indexend ) { 
       ~;                         $indxoption = qq~$indexstart~; 
       if ($showpageall) {                     } 
           $pageindexjs .= qq~                     else { $indxoption = qq~$indexstart-$indexend~; } 
           if (vistart != viend) {                     $selected = q{}; 
               if(visel == 'all') pagedropindex += '<td class="titlebg" height="14" style="height: 14px; padding-left: 1px; padding-right: 1px; font-size: 9px; font-weight: normal;"><b>$pidtxt{'01'}</b></td>';                     if ( $i == $selectedindex ) { 
               else pagedropindex += '<td height="14" class="droppages"><a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=all-' + allpagstart + '$findmember">$pidtxt{'01'}</a></td>';                         $selected = q~ selected="selected"~; 
           }                         $pagejsindex = 
           ~;                           qq~$indexstart|$indexend|$MembersPerPage|$indexpage~; 
       }                    }
       $pageindexjs .= qq~                     if ( $pagenumb > $dropdisplaynum ) { 
       if(visel != 'xx') pagedropindex += '<td height="14" class="small" style="height: 14px; padding-left: 4px;">$pagedropindexpv$pagedropindexnx</td>';                         $pagedropindex1 .= 
       else pagedropindex += '<td height="14" class="small" style="height: 14px; padding-left: 4px;">$pagedropindexpvbl$pagedropindexnxbl</td>';  qq~<option value="$indexstart|$indexend|$MembersPerPage|$indexpage"$selected>$indxoption</option>\n~; 
       pagedropindex += '</tr></table>';                         $pagedropindex2 .= 
       document.getElementById("ViewIndex1").innerHTML=pagedropindex;  qq~<option value="$indexstart|$indexend|$MembersPerPage|$indexpage"$selected>$indxoption</option>\n~; 
       document.getElementById("ViewIndex1").style.visibility = "visible";                     } 
       document.getElementById("ViewIndex2").innerHTML=pagedropindex;                 } 
       document.getElementById("ViewIndex2").style.visibility = "visible";                 if ( $pagenumb > $dropdisplaynum ) { 
       ~;                     $pagedropindex1 .= qq~</select>\n</span>~; 
               if ($pagenumb > $dropdisplaynum) {                     $pagedropindex2 .= qq~</select>\n</span>~; 
                   $pageindexjs .= qq~                 } 
       document.getElementById("decselector1").value = decparam;                 $pagedropindex1 .= 
       document.getElementById("decselector2").value = decparam;  q~<span id="ViewIndex1" class="droppageindex viewindex_hid">&nbsp;</span>~; 
       ~;                 $pagedropindex2 .= 
               }  q~<span id="ViewIndex2" class="droppageindex viewindex_hid">&nbsp;</span>~; 
               $pageindexjs .= qq~                 $tmpMembersPerPage = $MembersPerPage; 
   }                 if ( substr( $INFO{'start'}, 0, 3 ) eq 'all' ) { 
   document.onload = SelDec('$pagejsindex', '$tstart');                     $MembersPerPage = $MembersPerPage * $dropdisplaynum; 
   //-->                 } 
                 $prevpage = $start - $tmpMembersPerPage;
                 $nextpage = $start + $MembersPerPage;
                 $pagedropindexpvbl =
  qq~<img src="$index_togl{'index_left0'}" height="14" width="13" alt="" />~;
                 $pagedropindexnxbl =
  qq~<img src="$index_togl{'index_right0'}" height="14" width="13" alt="" />~;
                 if ( $start < $MembersPerPage ) {
                     $pagedropindexpv .=
  qq~<img src="$index_togl{'index_left0'}" height="14" width="13" alt="" />~;
                 }
                 else {
                     $pagedropindexpv .=
  qq~<img src="$index_togl{'index_left'}" height="14" width="13" alt="$pidtxt{'02'}" title="$pidtxt{'02'}" class="cursor" onclick="location.href=\\'$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$prevpage$findmember\\'" ondblclick="location.href=\\'$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=0$findmember\\'" />~;
                 }
                 if ( $nextpage > $lastptn ) {
                     $pagedropindexnx .=
  qq~<img src="$index_togl{'index_right0'}" height="14" width="13" alt="" />~;
                 }
                 else {
                     $pagedropindexnx .=
  qq~<img src="$index_togl{'index_right'}" height="14" width="13" alt="$pidtxt{'03'}" title="$pidtxt{'03'}" class="cursor" onclick="location.href=\\'$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$nextpage$findmember\\'" ondblclick="location.href=\\'$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=$lastptn$findmember\\'" />~;
                 }
                 $pageindex1 = qq~$pagedropindex1</span>~;
                 $pageindex2 = qq~$pagedropindex2</span>~;
   
                 $pageindexjs = qq~
  <script type="text/javascript">
     function SelDec(decparam, visel) {
         splitparam = decparam.split("|");
         var vistart = parseInt(splitparam[0]);
         var viend = parseInt(splitparam[1]);
         var maxpag = parseInt(splitparam[2]);
         var pagstart = parseInt(splitparam[3]);
         var allpagstart = parseInt(splitparam[3]);
         if(visel == 'xx' && decparam == '$pagejsindex') visel = '$tstart';
         var pagedropindex = '$visel_0';
         for(i=vistart; i<=viend; i++) {
             if(visel == pagstart) pagedropindex += '$visel_1a<b>' + i + '</b>$visel_1b';
             else pagedropindex += '$visel_2a<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$letter;start=' + pagstart + '$findmember">' + i + '</a>$visel_1b';
             pagstart += maxpag;
         }
         ~;
                 if ($showpageall) {
                     $pageindexjs .= qq~
             if (vistart != viend) {
                 if(visel == 'all') pagedropindex += '$visel_1a<b>$pidtxt{'01'}</b>$visel_1b';
                 else pagedropindex += '$visel_2a<a href="$scripturl?action=ml;sort=$FORM{'sortform'};letter=$