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 ( $dbh, $marker_id );
{
    my %pos;
    for ( my $x = 0; $x < @_; $x += 2 )
    {
        $pos{ $_[$x] } = $x + 1;
    }

    foreach my $arg ( qw( dbh ) )
    {
        HTML::Mason::Exception::Params->throw
            ( error => "no value sent for required parameter '$arg'" )
                unless exists $pos{$arg};
    }
#line 35 "/home/production/cxgn/sgn/mason/markers/index.mas"
    $dbh = $_[ $pos{'dbh'} ];
#line 36 "/home/production/cxgn/sgn/mason/markers/index.mas"
     $marker_id = exists $pos{'marker_id'} ? $_[ $pos{'marker_id'} ] :  undef;
}
$m->debug_hook( $m->current_comp->path ) if ( HTML::Mason::Compiler::IN_PERL_DB() );

#line 1 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 33 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 38 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 39 "/home/production/cxgn/sgn/mason/markers/index.mas"


use CXGN::Marker;
use SGN::Exception;



my $e = undef;

if (!$marker_id) { 
  $c->throw(
     public_message => 'marker_id must be provided as an argument for this page',
     is_client_error => 1,
  );
}

my $marker = CXGN::Marker->new($dbh, $marker_id);

if (!$marker) { 
  $e = SGN::Exception->new(title=>"Marker detail page error: Marker with marker_id $marker_id does not exist in the database");
 $m->comp('/site/error/exception.mas', exception=>$e);
  return;
  
}

my ($marker_name, @other_names) = $marker->name_that_marker();

my $src_feature = "SL2.50";

#line 69 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 70 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/page/page_title.mas', title=> "SGN Marker $marker_name"   
); #line 70 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 72 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/basic_marker_info.mas', marker=>$marker, dbh=>$dbh   
); #line 72 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 74 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp( { content => sub {
#line 74 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 75 "/home/production/cxgn/sgn/mason/markers/index.mas"
 if (@other_names) { 
$m->print( '    ' );
#line 76 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print(  join "<br />", @other_names  );
#line 76 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 77 "/home/production/cxgn/sgn/mason/markers/index.mas"
 }
} }, '/page/info_section.mas', title=>"Synonyms", collapsible=>1
 );
#line 78 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 80 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp( { content => sub {
#line 80 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 81 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/kfg.mas', marker=>$marker   
); #line 81 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 82 "/home/production/cxgn/sgn/mason/markers/index.mas"
} }, '/page/info_section.mas', title=>"Locus associations", collapsible=>1
 );
#line 82 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 84 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/rflp.mas', marker=>$marker   
); #line 84 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 86 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/ssr.mas', marker=>$marker   
); #line 86 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 88 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/cos.mas', marker=>$marker   
); #line 88 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 90 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/cosii_orthologs.mas', marker=>$marker   
); #line 90 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 92 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/derivation.mas', marker=>$marker   
); #line 92 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 94 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/locations.mas', marker=>$marker   
); #line 94 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 96 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/polymorphisms.mas', marker=>$marker   
); #line 96 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 98 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/unigene_match.mas', marker=>$marker   
); #line 98 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 100 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/overgo.mas', marker=>$marker   
); #line 100 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 102 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/cosii_polymorphisms.mas', marker=>$marker   
); #line 102 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 104 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/cosii_files.mas', marker=>$marker   
); #line 104 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 106 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/attributions.mas', marker=>$marker   
); #line 106 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 108 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/genotyped_markers.mas', marker_id=>$marker_id   
); #line 108 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 110 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp( { content => sub {
#line 110 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 111 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/feature/jbrowse_exact_match.mas', feature=> $marker_name, src_feature=> $src_feature   
); #line 111 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
#line 112 "/home/production/cxgn/sgn/mason/markers/index.mas"
} }, '/page/info_section.mas', title => "Genomic location of $marker_name", collapsible=>1
 );
#line 112 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '

' );
#line 114 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/markers/comments.mas', marker=>$marker   
); #line 114 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '


' );
#line 117 "/home/production/cxgn/sgn/mason/markers/index.mas"
 my $referer = '/search/markers/markerinfo.pl?marker_id='.$marker->marker_id();
$m->print( '
' );
#line 119 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->comp(   '/page/comments.mas', object_type=>"marker", object_id=>$marker_id, referer=>$referer   
); #line 119 "/home/production/cxgn/sgn/mason/markers/index.mas"
$m->print( '
' );
;return;
},
'declared_args' => {
  '$dbh' => { default => undef },
  '$marker_id' => { default => ' undef' }
},
'load_time' => 1763079527,

)
;