Simpler JumpTo 0.1 Simplifies the select board bars. Pyrrhon http://www.philtalk.de 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~

~; 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~ ~; 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

"; }