Category & Boards have same name Bugfix
1.0
If you named a Board same as you named the category you've added the board into the board wouldn't be shown up in the "edit board" option in the admin center and wouldn't be shown in the "Jump Box".
This mod fixes this bug.
dOCda S!
http://gpu.hackers.sk/hacks/index.htm
Sources/Subs.pl
sub jumpto {
fopen(FILE, "$vardir/cat.txt");
@masterdata = ;
fclose(FILE);
$selecthtml .= "$txt{'251'}:\n";
foreach $category (@masterdata) {
$category =~ s/\n//g;
fopen(FILE, "$boardsdir/$category.cat");
@data = ;
fclose(FILE);
@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"; }
}
}
}
}
sub jumpto {
fopen(FILE, "$vardir/cat.txt");
@masterdata = ;
fclose(FILE);
$selecthtml .= "$txt{'251'}:\n";
foreach $category (@masterdata) {
$category =~ s/\n//g;
fopen(FILE, "$boardsdir/$category.cat");
@data = ;
fclose(FILE);
@boarddata = split( /,/, @data[1] );
@data[1] =~ s/\n//g;
foreach $tmpa (@boarddata) {
if(@data[1] ne "") {
$tmpa =~ s/\n//g;
if($settings[7] ne "Administrator" && $settings[7] ne "$tmpa") { next; }
}
$selecthtml .= "-----------------------------\n";
$selecthtml .= " @data[0]\n";
$selecthtml .= " -----------------------------\n";
$linepos=0;
foreach $line (@data) {
if ($linepos > 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"; }
}
$linepos++;
}
}
}
}
Sources/ManageBoards.pl
foreach $curboard (@catinfo) {
if($curboard ne "$catinfo[0]" && $curboard ne "$catinfo[1]") {
$curboardnum=0;
foreach $curboard (@catinfo) {
if($curboardnum > 1) {
EOT
}
}
print <<"EOT";
EOT
}
$curboardnum++;
}
print <<"EOT";