mason/markers/attributions.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 /markers/attributions.mas - a Mason component displaying attribution information
   7
   8 =head1 DESCRIPTION
   9
  10 parameters
  11
  12 =over 5
  13
  14 =item *
  15
  16 $marker - a CXGN::Marker object.
  17
  18 =back
  19
  20 =head1 AUTHOR
  21
  22 Lukas Mueller <lam87@cornell.edu>
  23
  24 =cut
  25
  26 </%doc>
  27
  28 <%args>
  29 $marker
  30 </%args>
  31
  32 <%perl>
  33
  34 my $marker_id = $marker->marker_id();
  35
  36 my $att = CXGN::Metadata::Attribution->new("sgn","markers",$marker_id);
  37
  38 my $db_name = 'sgn';
  39 my $table_name = 'markers';
  40 my $row_id = $marker_id;
  41
  42 my @a = $att -> get_attributions();
  43
  44 my $html = "";
  45 foreach my $a (@a) {
  46   if ($a->{role}) { $html .= "<h4>$a->{role}</h4>"; }
  47   if ($a->{person}->get_last_name()) { $html .= "<b>Name:</b> ".$a->{person}->get_first_name()." ".$a->{person}->get_last_name()."<br />"; }
  48   if ($a->{organization}) { $html .= "<b>Organization:</b> ".$a->{organization}." <br />"; }
  49   if ($a->{project}) { $html .= "<b>Project:</b> ".$a->{project}." <br /><br />"; }
  50 }
  51
  52 if($html) {
  53   $html =  CXGN::Page::FormattingHelpers::blue_section_html("Marker Submitted By", $html);
  54 }
  55 else {
  56   return'';
  57 }
  58
  59
  60 </%perl>
  61
  62 <% $html %>