mason/locus/locus_editor.mas

   1
   2
   3 <%doc>
   4
   5 =head1 NAME
   6
   7 /locus/locus_editor.mas - a component for printing the locus editors
   8
   9 =head1 DESCRIPTION
  10
  11
  12 Parameters:
  13
  14 =over 1
  15
  16 =item owners
  17
  18 a list of sp_person_ids
  19
  20
  21 =back
  22
  23 =head1 AUTHOR
  24
  25 Naama Menda <nm249@cornell.edu>
  26
  27 =cut
  28
  29 </%doc>
  30
  31 <%args>
  32
  33 $owners
  34
  35 </%args>
  36
  37 <%perl>
  38 my $html;
  39 foreach my $person (@$owners) {
  40   my $first_name = $person->get_first_name();
  41   my $last_name  = $person->get_last_name();
  42   my $id = $person->get_sp_person_id();
  43   if ($person->get_user_type() eq 'curator' && scalar(@$owners) == 1  ) {
  44     $html .= '<b>No editor assigned</b>';
  45   } else {
  46     $html .=
  47       qq |<a href="/solpeople/personal-info.pl?sp_person_id=$id">$first_name $last_name</a>;|;
  48   }
  49 }
  50 chop $html;
  51
  52 </%perl>
  53
  54 <p>Locus editors:
  55 <% $html %></p>