3 =head2 clone_summary_html
5 Usage: my $html = clone_summary_html($clone);
6 Desc: get a snippet of html summarizing this clone
8 Ret : HTML string containing a concise summary of this
9 clones vital statistics
18 use CXGN::Tools::Text qw/ commify_number /;
19 use CXGN::Page::FormattingHelpers qw/ info_table_html /;
20 sub clone_summary_html {
22 @_ and croak 'summary_html takes no parameters';
24 $this->estimated_length && commify_number($this->estimated_length)
25 || 'not yet estimated';
27 my $badclonehtml = $this->bad_clone
28 ? '<span style="color:red">contaminated</span>'
33 my $az_name = $this->arizona_clone_name;
34 my $type = $this->clone_type_object->name;
36 return info_table_html( __title => 'Clone',
37 'Clone name' => join('<br />',
38 $this->arizona_clone_name,
39 ($this->chromosome_num ? ($this->clone_name_with_chromosome) : ()),
40 ($this->cornell_clone_name =~ /^P/ ? ($this->cornell_clone_name) : ()),
42 'Clone type' => $type,
43 'Contamination' => $badclonehtml,
44 'Estimated length' => $length,
53 print clone_summary_html($clone);