From 56293d54ae415851e6768be53bbe80638afd3ee0 Mon Sep 17 00:00:00 2001
From: Naama Menda <nm249@cornell.edu>
Date: Thu, 18 Mar 2010 04:39:40 +0000
Subject: [PATCH] a draft for a sol100 sequecing project overview

git-svn-id: svn+ssh://svn.sgn.cornell.edu/cxgn/sgn/trunk@17691 b4ddb4e3-33f1-0310-aa89-e703427ae9b8
---
 cgi-bin/sequencing/sol100.pl | 69 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100755 cgi-bin/sequencing/sol100.pl

diff --git a/cgi-bin/sequencing/sol100.pl b/cgi-bin/sequencing/sol100.pl
new file mode 100755
index 000000000..2d7ae0ed8
--- /dev/null
+++ b/cgi-bin/sequencing/sol100.pl
@@ -0,0 +1,69 @@
+use strict;
+
+use CXGN::Page;
+use CXGN::Page::FormattingHelpers qw( info_section_html
+				      page_title_html
+				      columnar_table_html
+				      info_table_html
+				      modesel
+				      html_break_string
+				    );
+use CXGN::People;
+use CXGN::Chado::Organism;
+use Bio::Chado::Schema;
+
+my $page   =  CXGN::Page->new("SOL100 sequencing project","Naama");
+my $dbh = CXGN::DB::Connection->new();
+
+my $schema= Bio::Chado::Schema->connect(  sub { $dbh->get_actual_dbh() },
+					  { on_connect_do => ['SET search_path TO public'],
+					  },);
+
+my @species= ('Solanum lycopersicum', 'Solanum pennellii', 'Solanum pimpinellifolium',  'Solanum galapogense');
+my $info;
+my @details;
+foreach my $s (@species ) {
+    
+    my $o =  CXGN::Chado::Organism::get_organism_by_species($s, $schema);
+    if ($o) {
+	my $organism_id = $o->organism_id();
+	my $organism_link .= qq| <a href="/chado/organism.pl?organism_id=$organism_id">$s</a> |; 
+	
+	
+	push @details,
+	[
+	 map { $_ } (
+	     $organism_link,  "PERSON/GROUP INFO",
+	     "PROJECT METADATA",
+	 )
+	];
+    
+	
+    } else {
+	print STDERR "NO ORGANISM FOUND FOR SPECIES $s  !!!!!!!!!!!\n\n";
+    }
+}
+
+
+$info = columnar_table_html(
+    headings => [
+	'Species', 'Sequencer', 'Project',
+    ],
+    data         => \@details,
+    __alt_freq   => 2,
+    __alt_width  => 1,
+    __alt_offset => 3,
+    );
+
+$page->header();
+
+print page_title_html("SOL100 sequencing project\n");
+
+print info_section_html(
+    title       => 'Species',
+    contents     => $info,
+    collapsible => 1,
+    );
+
+
+$page->footer();
-- 
2.11.4.GIT