Select Code to Download

  TSeminar --+
             +--TMarket    
             +--TProgram--TFees

__PACKAGE__->belongs_to(
  "marketcode",
...
  "FOO::Schema::Scheme::TProgram",
  { programcode => "programcode" },
);

__PACKAGE__->belongs_to(
  "progfee",
  "FOO::Schema::Scheme::TFees",
  { feeid => "progfee" },
);

    my $rs= $c->schema->resultset("TSeminar")->search(
        { 'semcode' => $code },
...
        "prefetch" => [qw/programcode marketcode/], 
        "order_by"    => [qw/semcode/], 
        "rows"        => 30});