my  $sth = $dbh->prepare("SELECT cidc FROM catalog_chains WHERE pidc=?");
     my $rvs = $sth->execute($id) or die "execute: ".$sth->errstr."n";
      while (my $acr = $sth->fetchrow_array) {


        my $sth = $dbh->prepare("SELECT c.* FROM accer c, accer_links cl WHERE c.id=cl.cid AND cl.pid=1 ORDER BY cl.sort DESC");
        my $rvs = $sth->execute or die "execute: ".$sth->errstr."n";
        while (my $acc = $sth->fetchrow_hashref) {

                     $acc->{sel} = 1 if ($acc->{id} eq $acr);
                     push(@accs, $acc);

            }

 $hash2->{accs} = @accs if @accs;
}