use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{menu2} = do { $ENV{JIN_TMPL} =~ /(aff_[a-z]+)\w*\.html/; $1 };$this->out("");$C->{selected} = { "$C->{menu2}", qq(class="active") };$this->out("<li $C->{selected}{aff_promo}><a href=\"$C->{SYS}{URL}/ds/aff_promo.html\"><span>PROMOTION</span></a></li>\n<li $C->{selected}{aff_comms}><a href=\"$C->{SYS}{URL}/ds/aff_comms.html\"><span>COMMISSIONS</span></a></li>\n<li $C->{selected}{aff_setup}><a href=\"$C->{SYS}{URL}/ds/aff_setup.html\"><span>SETTINGS</span></a></li>\n");}