mason/locus/edits_info.mas

   1
   2
   3 <%doc>
   4
   5 =head1 NAME
   6
   7 /locus/edits_info.mas - a component for printing locus edit dates and person
   8
   9 =head1 DESCRIPTION
  10
  11
  12 Parameters:
  13
  14 =over 2
  15
  16 =item locus
  17
  18 a locus object
  19
  20 =item $synonyms
  21
  22 arrayref of synonyms
  23
  24
  25 =back
  26
  27 =head1 AUTHOR
  28
  29 Naama Menda <nm249@cornell.edu>
  30
  31 =cut
  32
  33 </%doc>
  34
  35 <%args>
  36
  37
  38 $locus
  39
  40
  41 </%args>
  42
  43 <%perl>
  44
  45 use CXGN::People::Person;
  46
  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;
  52
  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 />|;
  62 }
  63
  64 </%perl>
  65
  66 <% $html %>