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

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

#line 1 "/home/production/cxgn/sgn/mason/locus/edits_info.mas"
$m->print( '

' );
#line 34 "/home/production/cxgn/sgn/mason/locus/edits_info.mas"
$m->print( '
' );
#line 42 "/home/production/cxgn/sgn/mason/locus/edits_info.mas"
$m->print( '
' );
#line 43 "/home/production/cxgn/sgn/mason/locus/edits_info.mas"


use CXGN::People::Person;

my $html;
my $created_date = $locus->get_create_date();
$created_date = substr $created_date, 0, 10;
my $modified_date = $locus->get_modification_date() || "";
$modified_date = substr $modified_date, 0, 10;

my $updated_by = $locus->get_updated_by();
my $updated =
  CXGN::People::Person->new( $locus->get_dbh(), $updated_by );
my $u_first_name = $updated->get_first_name();
my $u_last_name  = $updated->get_last_name();
$html .= qq |Created on: $created_date |;
if ($modified_date) {
  $html .=
    qq |  Last updated on: $modified_date  by  <a href="/solpeople/personal-info.pl?sp_person_id=$updated_by">$u_first_name $u_last_name</a><br />|;
}

#line 65 "/home/production/cxgn/sgn/mason/locus/edits_info.mas"
$m->print( '
' );
#line 66 "/home/production/cxgn/sgn/mason/locus/edits_info.mas"
$m->print(  $html  );
#line 66 "/home/production/cxgn/sgn/mason/locus/edits_info.mas"
$m->print( '
' );
;return;
},
'declared_args' => {
  '$locus' => { default => undef }
},
'load_time' => 1763528903,

)
;