mason/chado/cvterm_link.mas

   1 <%args>
   2   $cvterm
   3   $caps => 0
   4   $inflect => 0
   5   $inflect_count => undef
   6 </%args>
   7 \
   8 <a title="<% $definition |h %>" href="/cvterm/<% $id |u %>/view"><% $name |h %></a>\
   9 \
  10 <%init>
  11         use Lingua::EN::Inflect ();
  12
  13         ( my $name = $cvterm->name ) =~ s/_/ /g;
  14
  15         # before munging the name, use it as a prefix to the definition
  16         my $definition = $cvterm->definition;
  17         if( $definition && $definition =~ /\S/ ) {
  18             $definition = "$name: $definition";
  19         } else {
  20             $definition = '';
  21         }
  22
  23         # now capitalize and/or inflect the cvterm name
  24         if( $caps ) {
  25             $name =~ s/(\S+)/lc($1) eq $1 ? ucfirst($1) : $1/e;
  26         }
  27         if( $inflect ) {
  28             no strict 'refs';
  29             $name =~ s| (\S+)
  30                       | defined $inflect_count ? ("Lingua::EN::Inflect::".$inflect)->($1, $inflect_count)
  31                                                : ("Lingua::EN::Inflect::".$inflect)->($1)
  32                       |xe;
  33         }
  34         my $id   = $cvterm->id;
  35
  36 </%init>