package SGN::View::Mason::Commands;
use strict;
use vars qw($m $c);
HTML::Mason::Component::FileBased->new(
'code' => sub {
use utf8; local $SGN::View::Mason::Commands::m = $HTML::Mason::Commands::m;
HTML::Mason::Exception::Params->throw
    ( error =>
      "Odd number of parameters passed to component expecting name/value pairs"
    ) if @_ % 2;
my ( $training_pop_id, $training_pop_traits_details, $genotyping_protocol_id, $data_set_type );
{
    my %pos;
    for ( my $x = 0; $x < @_; $x += 2 )
    {
        $pos{ $_[$x] } = $x + 1;
    }

    foreach my $arg ( qw( training_pop_id training_pop_traits_details genotyping_protocol_id ) )
    {
        HTML::Mason::Exception::Params->throw
            ( error => "no value sent for required parameter '$arg'" )
                unless exists $pos{$arg};
    }
#line 18 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
    $training_pop_id = $_[ $pos{'training_pop_id'} ];
#line 19 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
    $training_pop_traits_details = $_[ $pos{'training_pop_traits_details'} ];
#line 20 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
    $genotyping_protocol_id = $_[ $pos{'genotyping_protocol_id'} ];
#line 21 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
     $data_set_type = exists $pos{'data_set_type'} ? $_[ $pos{'data_set_type'} ] :  '';
}
$m->debug_hook( $m->current_comp->path ) if ( HTML::Mason::Compiler::IN_PERL_DB() );

#line 14 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
$m->print( '
' );
#line 25 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
$m->print( '
' );
#line 26 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"

my $traits_list;

foreach my $trait_detail (@$training_pop_traits_details)
{
    my $id = $trait_detail->[0];
    my $trait = $trait_detail->[1];
    my $acronym = $trait_detail->[2];
    my $path;
    if ($data_set_type =~ /combined/) {
        $path = "/solgs/model/combined/trials/$training_pop_id/trait/$id/gp/$genotyping_protocol_id";
    } else {
        $path = "/solgs/trait/$id/population/$training_pop_id/gp/$genotyping_protocol_id";
    }

     my $trait_link   = qq | <a href="$path" onclick="solGS.waitPage(this.href); return false;">$trait</a> |;
     my $row          = <<ROW;
     <tr>
       <td>
         <input type  = "checkbox"
           class      = "trait_id"
           name       = "trait_id"
           value      = $id > $trait_link
       </td>
     </tr>
ROW

        $traits_list .=  $row;

}

#line 58 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
$m->print( '
' );
#line 59 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
 if ($traits_list) {
$m->print( ' <div id="traits_selection_div">

  <table  class="table-condensed" id="population_traits_list">
   ' );
#line 63 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
$m->print(  $traits_list  );
#line 63 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
$m->print( '
     <tr>
       <td>
         <input class   = "button"
                type    = "submit"
		        id      = "runGS"
                value   = "Build model"
                name    = "runGS"
                >
       </td>
     </tr>
   </table>

</div>
' );
#line 77 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
} else {
$m->print( '
<div id="traits_list_message"  class="message">
<p>There are no phenotyped traits for this population.</p>
</div>

' );
#line 83 "/home/production/cxgn/sgn/mason/solgs/population/traits_list.mas"
}
;return;
},
'declared_args' => {
  '$data_set_type' => { default => ' \'\'' },
  '$genotyping_protocol_id' => { default => undef },
  '$training_pop_id' => { default => undef },
  '$training_pop_traits_details' => { default => undef }
},
'load_time' => 1763135441,

)
;