Jumpto with Go Button 1.0 - SP1 This mod changes the jump box in the bottom right corner of your yabb back to how it was in Yabb 1 Gold Release - with a Go button :) It was a simple mod - but it's well worth it ;) Actually, not so simple as gold menu didnt have support for categories - this one does :) Omario http://www.muslimteens.net Sources/Subs.pl sub jumpto { my(@masterdata,$category,@data,$found,$tmp,@memgroups,@newcatdata); $selecthtml = qq~

$txt{'251'}: ~; fopen(FILE, "$vardir/cat.txt"); @masterdata = ; fclose(FILE); foreach $category (@masterdata) { $category =~ s~[\n\r]~~g; chomp $category; fopen(FILE, "$boardsdir/$category.cat"); @data = ; fclose(FILE); @memgroups = split( /,/, $data[1] ); $data[1] =~ s~[\n\r]~~g; chomp $data[1]; $found = 0; foreach $tmp (@memgroups) { if($data[1] ne "") { $tmp =~ s~[\n\r]~~g; if($settings[7] ne "Administrator" && $settings[7] ne $tmp) { next; } else { $found = 1; break;} } else { $found = 1; break;} } if($found) { chomp $data[0]; $selecthtml .= qq~----------------------------- $data[0] -----------------------------~; for($i = 2; $i < @data; $i++) { $data[$i] =~ s~[\n\r]~~g; fopen(FILE, "$boardsdir/$data[$i].dat"); @newcatdata = ; fclose(FILE); chomp @newcatdata; if ($data[$i] eq $currentboard) { $selecthtml .= "=> $newcatdata[0]\n"; } else { $selecthtml .= "  - $newcatdata[0]\n"; } } } } $selecthtml .= "\n

"; } sub jumpto { my(@masterdata,$category,@data,$found,$tmp,@memgroups,@newcatdata); $selecthtml = qq~

$txt{'251'}: ~; fopen(FILE, "$vardir/cat.txt"); @masterdata = ; fclose(FILE); foreach $category (@masterdata) { $category =~ s~[\n\r]~~g; chomp $category; fopen(FILE, "$boardsdir/$category.cat"); @data = ; fclose(FILE); @memgroups = split( /,/, $data[1] ); $data[1] =~ s~[\n\r]~~g; chomp $data[1]; $found = 0; foreach $tmp (@memgroups) { if($data[1] ne "") { $tmp =~ s~[\n\r]~~g; if($settings[7] ne "Administrator" && $settings[7] ne $tmp) { next; } else { $found = 1; break;} } else { $found = 1; break;} } if($found) { chomp $data[0]; $selecthtml .= qq~----------------------------- $data[0] -----------------------------~; for($i = 2; $i < @data; $i++) { $data[$i] =~ s~[\n\r]~~g; fopen(FILE, "$boardsdir/$data[$i].dat"); @newcatdata = ; fclose(FILE); chomp @newcatdata; if ($data[$i] eq $currentboard) { $selecthtml .= "=> $newcatdata[0]\n"; } else { $selecthtml .= "  - $newcatdata[0]\n"; } } } } $selecthtml .= qq~

~; }