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 ( $trial_id, $list_id, $dataset_id, $data_structure );
{
    my %pos;
    for ( my $x = 0; $x < @_; $x += 2 )
    {
        $pos{ $_[$x] } = $x + 1;
    }
#line 24 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
     $trial_id = exists $pos{'trial_id'} ? $_[ $pos{'trial_id'} ] :  undef;
#line 25 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
     $list_id = exists $pos{'list_id'} ? $_[ $pos{'list_id'} ] :  undef;
#line 26 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
     $dataset_id = exists $pos{'dataset_id'} ? $_[ $pos{'dataset_id'} ] :  undef;
#line 27 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
     $data_structure = exists $pos{'data_structure'} ? $_[ $pos{'data_structure'} ] :  undef;
}
$m->debug_hook( $m->current_comp->path ) if ( HTML::Mason::Compiler::IN_PERL_DB() );

#line 21 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '
' );
#line 30 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '
' );
#line 31 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"


my $pop_id = $trial_id if $trial_id;

if (!$data_structure) {
   if ($dataset_id) {
      $data_structure = 'dataset';
   } elsif ($list_id) {
     $data_structure = 'list';
   }
}

my $url = $c->req->path;


my $title; 
my $collapsed = 0;
my $collapsible = 0;

if ($url !~ /pca\/analysis/) {
  $title = 'Principal component analysis (PCA)';
  $collapsible = 1;
  $collapsed = 1 if $url =~ /breeders\/trial/;
}

#line 57 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '
' );
#line 58 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->comp(   '/solgs/tools/base.mas'  
); #line 58 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '

' );
#line 60 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
 if ($url =~ /pca\/analysis/) {
$m->print( '
' );
#line 62 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->comp(   '/page/page_title.mas',
   title => 'Principal Component Analysis (PCA)'
    
); #line 64 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '

' );
#line 66 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
}
$m->print( '
' );
#line 68 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->comp( { content => sub {
#line 72 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '

<div id=\'pca_div\'>
' );
#line 75 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
 if ($url =~ /pca\/analysis|breeders\/trial\//) {
$m->print( '
  ' );
#line 77 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->comp(   '/solgs/genotyping_protocol/index.mas'  
); #line 77 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '

' );
#line 79 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
}
$m->print( '
' );
#line 81 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
 if ($url !~ /pca\/analysis/ ) {
$m->print( '  ' );
#line 82 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->comp(   'pca_options.mas'  
); #line 82 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '
' );
#line 83 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
} else {
$m->print( '    ' );
#line 84 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->comp(   '/solgs/tools/login.mas',
    tool_url => '/pca/analysis/' ,
    analysis_type => 'pca' 
      
); #line 87 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '
' );
#line 88 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
}
$m->print( '
  ' );
#line 90 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->comp(   'plot.mas',
    pop_id => $pop_id,
    list_id => $list_id,
    dataset_id => $dataset_id,
    data_structure => $data_structure,
      
); #line 95 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '


</div>
' );
#line 99 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
} }, '/page/info_section.mas',
  collapsible => $collapsible,
  collapsed   => $collapsed,
  title       => $title
 );
#line 99 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '

' );
#line 101 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->comp(   '/util/import_javascript.mas', classes => ["solGS.pca", "solGS.analysisSave", "solGS.pcaSave"]   
); #line 101 "/home/production/cxgn/sgn/mason/solgs/tools/pca/analysis.mas"
$m->print( '
' );
;return;
},
'declared_args' => {
  '$data_structure' => { default => ' undef' },
  '$dataset_id' => { default => ' undef' },
  '$list_id' => { default => ' undef' },
  '$trial_id' => { default => ' undef' }
},
'load_time' => 1763102299,

)
;