Add More MemberGroups
Fix 2
Bugs fixed:
- "Search" hadn't searched from private categories where a user has access to
- "Show the last ... posts of this person" hadn't shown messages from private categories
a user has access to.
- Private Categories a user has access to weren't shown in the Jump Box.
(Think this is a Bug of YaBB - was same problem without the mod)
dOCda S!
http://gpu.hackers.sk/hacks/
Sources/Subs.pl
@data[1] =~ s/\n//g;
if(@data[1] ne "") {
if($settings[7] ne "Administrator" && $settings[7] ne "@data[1]") { next; }
}
$selecthtml .= "-----------------------------\n";
$selecthtml .= " @data[0]\n";
$selecthtml .= " -----------------------------\n";
foreach $line (@data) {
if($line ne "@data[0]" && $line ne "@data[1]") {
$line =~ s/\n//g;
fopen(FILE, "$boardsdir/$line.dat");
@newcatdata = ;
fclose(FILE);
if ($action eq "display" && $line eq $currentboard) { $selecthtml .= "- @newcatdata[0]\n"; }
else { $selecthtml .= " => @newcatdata[0]\n"; }
}
}
}
@boarddata = split( /,/, @data[1] );
@data[1] =~ s/\n//g;
foreach $tmpa (@boarddata) {
if(@data[1] ne "") {
if($settings[7] ne "Administrator" && $settings[7] ne "$tmpa") { next; }
}
$selecthtml .= "-----------------------------\n";
$selecthtml .= " @data[0]\n";
$selecthtml .= " -----------------------------\n";
foreach $line (@data) {
if($line ne "@data[0]" && $line ne "@data[1]") {
$line =~ s/\n//g;
fopen(FILE, "$boardsdir/$line.dat");
@newcatdata = ;
fclose(FILE);
if ($action eq "display" && $line eq $currentboard) { $selecthtml .= "- @newcatdata[0]\n"; }
else { $selecthtml .= " => @newcatdata[0]\n"; }
}
}
}
}
Sources/Search.pl
@membergroups = split( /,/, $cataccess{$curcat} );
foreach $tmpa (@membergroups) {
if( $tmpa eq $settings[7]) { $openmemgr{$curcat} = 1; last; }
}
if( ! $cataccess{$curcat} || $settings[7] eq 'Administrator' ) {
$openmemgr{$curcat} = 1;
}
unless( $openmemgr{$curcat} ) { next; }
my($mscount);
$mscount=0;
@membergroups = split( /,/, $cataccess{$curcat} );
foreach $tmpa (@membergroups) {
$tmpa =~ s/\n//g;
if( $settings[7] eq "$tmpa") { $openmemgr{$curcat} = 1; last; }
while($MemStat[$mscount]) {
if( $settings[6] >= $MemPostNum[$mscount] && $MemPostNum[$mscount] ne "x") {
$memberinfo = "$MemStat[$mscount]"; }
++$mscount;
}
if ( $memberinfo eq $tmpa ) { $openmemgr{$curcat} = 1; last; }
}
if( ! $cataccess{$curcat} || $settings[7] eq 'Administrator' ) {
$openmemgr{$curcat} = 1;
}
unless( $openmemgr{$curcat} ) { next; }
Sources/Profile.pl
@membergroups = split( /,/, $cataccess{$curcat} );
foreach $tmpa (@membergroups) {
if( $tmpa eq $settings[7]) { $openmemgr{$curcat} = 1; last; }
}
if( ! $cataccess{$curcat} || $settings[7] eq 'Administrator' ) {
$openmemgr{$curcat} = 1;
}
unless( $openmemgr{$curcat} ) { next; }
my($mscount);
$mscount=0;
@membergroups = split( /,/, $cataccess{$curcat} );
foreach $tmpa (@membergroups) {
$tmpa =~ s/\n//g;
if( $settings[7] eq "$tmpa") { $openmemgr{$curcat} = 1; last; }
while($MemStat[$mscount]) {
if( $settings[6] >= $MemPostNum[$mscount] && $MemPostNum[$mscount] ne "x") {
$memberinfo = "$MemStat[$mscount]"; }
++$mscount;
}
if ( $memberinfo eq $tmpa ) { $openmemgr{$curcat} = 1; last; }
}
if( ! $cataccess{$curcat} || $settings[7] eq 'Administrator' ) {
$openmemgr{$curcat} = 1;
}
unless( $openmemgr{$curcat} ) { next; }