cgi-bin/maps/physical/vector_info.pl

   1 use strict;
   2 use CXGN::Genomic::Clone;
   3 use CXGN::Tools::Text;
   4 use CXGN::Page::FormattingHelpers qw(
   5                                      page_title_html
   6                                      html_break_string
   7                                      blue_section_html
   8                                      commify_number
   9                                     );
  10 use CXGN::Genomic::Tools qw/clone_annotation_sequence/;
  11
  12 my $page=CXGN::Page->new('Cloning Vector Information','Robert Buels');
  13 my($id)=$page->get_encoded_arguments('id');
  14 $id =~ /^\d+$/
  15   or $page->error_page('Vector not found.');
  16 my $vector = CXGN::CDBI::SGN::CloningVector->retrieve($id)
  17   or $page->error_page("No vector found with ID '$id'");
  18 my $sequence = $vector->seq
  19   or $page->error_page("No sequence information for vector ".$vector->name);
  20 my $length_string = commify_number(length($sequence));
  21
  22 $page->header;
  23 print page_title_html('Cloning Vector &ndash; '.$vector->name);
  24 print blue_section_html('Sequence',
  25                         "$length_string bases",
  26                         join('', ("<span class=\"sequence\">&gt;",
  27                                   $vector->name,
  28                                   "<br />",
  29                                   html_break_string($sequence,98),
  30                                   "</span>",
  31                                  )
  32                             )
  33                        );
  34 $page->footer;