# Custom Page Mod 0.3 Menu Start my ($query, $pagetitle, $link, $guest, $cpmenu, $page, @pages); fopen(SET, "<$vardir/custompage.txt"); my @pages = <SET>; fclose(SET); if(@pages) { foreach $page (@pages) { ($query, $pagetitle, undef, $link, undef, undef) = split(/\|/, $page); if($link == 1) { if($INFO{'custompage'} eq $query) { $yytabmenu .=qq~$tabsep<span onclick="location.href='$scripturl?custompage=$query';" class="selected"><a href="$scripturl?custompage=$query" title = "$pagetitle">$tabfill$pagetitle$tabfill</a></span>~; } else { $yytabmenu .=qq~$tabsep<span onclick="location.href='$scripturl?custompage=$query';"><a href="$scripturl?custompage=$query" title = "$pagetitle">$tabfill$pagetitle$tabfill</a></span>~; } } } } # Custom Page Mod 0.3 Menu End $yymcmenu .= qq~$tabsep~; $yytabmenu .= qq~$tabsep~;}1;
# Custom Page Mod 0.3 Menu Start my ($query, $pagetitle, $link, $guest, $cpmenu, $page, @pages); fopen(SET, "<$vardir/custompage.txt"); my @pages = <SET>; fclose(SET); if(@pages) { foreach $page (@pages) { ($query, $pagetitle, undef, $link, undef, undef) = split(/\|/, $page); if($link == 1) { if($INFO{'custompage'} eq $query) { $yytabmenu .=qq~$tabsep<span onclick="location.href='$scripturl?custompage=$query';" class="selected"><a href="$scripturl?custompage=$query" title = "$pagetitle">$tabfill$pagetitle$tabfill</a></span>~; } else { $yytabmenu .=qq~$tabsep<span onclick="location.href='$scripturl?custompage=$query';"><a href="$scripturl?custompage=$query" title = "$pagetitle">$tabfill$pagetitle$tabfill</a></span>~; } } } } # Custom Page Mod 0.3 Menu End $yymcmenu .= qq~$tabsep~;}1;