<!--spmacro:module(Callback)
sub begin_read_template {
my $sp_subcat;
if ($ENV{'HTTP_COOKIE'}) {
      @cookies = split(/;/,$ENV{'HTTP_COOKIE'});
      foreach $cooky (@cookies) {
            ($cname,$cvalue) = split(/=/,$cooky);
              if ($cname =~ /SHOPPILOT_SUBCAT/) {
                 $sp_subcat = $cvalue;
                 last;
               }
            }
        }
my $subcat = ssp::get_var_subcat("sid");
$sp_subcat =~ s/sub//g;    
my %pageinfo = ssp::getCurrentPageInfo();
my $xpage = ssp::pageurl();
my $page = ssp::pageurl() . ",,,,subcat=" . $sp_subcat;
    if ($xpage =~ /[^,],[^,]/) {$page = ssp::pageurl() . ",,,subcat=" . $sp_subcat;}

if ($pageinfo{pagetype} == 3) {$page = ssp::pageurl() . ",,subcat=" . $sp_subcat;}
my $x = "sub" . $subcat;

    if ($subcat ne "$sp_subcat" ) {
            use strict;
            use CGI qw(:standard);
            my $q = CGI->new();            
                my $cookie = $q->cookie(
                -name=>'SHOPPILOT_SUBCAT',
                -value=>$x,
                -expires=> '+10y');
                
                print redirect(
                -URL => $page,
                -COOKIE => $cookie
                );
    }    
}
-->