Merge pull request #2754 from solgenomics/topic/fix_homepage_add_accessions_dialog
[sgn.git] / mason / locus / edits_info.mas
blobff23865214b3a46dfb0e1d460045ca3bd4d3bce4
3 <%doc>
5 =head1 NAME
7 /locus/edits_info.mas - a component for printing locus edit dates and person
9 =head1 DESCRIPTION
12 Parameters:
14 =over 2
16 =item locus
18 a locus object
20 =item $synonyms
22 arrayref of synonyms 
25 =back
27 =head1 AUTHOR
29 Naama Menda <nm249@cornell.edu>
31 =cut 
33 </%doc>
35 <%args>
38 $locus
41 </%args>
43 <%perl>
45 use CXGN::People::Person;
47 my $html;
48 my $created_date = $locus->get_create_date();
49 $created_date = substr $created_date, 0, 10;
50 my $modified_date = $locus->get_modification_date() || "";
51 $modified_date = substr $modified_date, 0, 10;
53 my $updated_by = $locus->get_updated_by();
54 my $updated =
55   CXGN::People::Person->new( $locus->get_dbh(), $updated_by );
56 my $u_first_name = $updated->get_first_name();
57 my $u_last_name  = $updated->get_last_name();
58 $html .= qq |Created on: $created_date |;
59 if ($modified_date) {
60   $html .=
61     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 />|;
64 </%perl>
66 <% $html %>