Made changes to add quarterly information to the sequencign summary.

diff --git a/htswanalysis/scripts/SummarizeLibrary.pm b/htswanalysis/scripts/SummarizeLibrary.pm
index 7af1dc32a03866167666a7725678b25bc26b7630..4a62e3df45e78063b5dba737f51749a8bd829505 100755 (executable)
--- a/htswanalysis/scripts/SummarizeLibrary.pm
+++ b/htswanalysis/scripts/SummarizeLibrary.pm
@@ -40,7 +40,7 @@ sub SummarizeLibrary {
 
   my $summary = "";
 
-  $summary .= "<TABLE BORDER=1><TR><TD><EM>Library</EM></TD><TD><EM>Name</EM></TD><TD><EM>Num Lanes</EM></TD><TD><EM>Num Reads</EM></TD></TR>\n";
+  $summary .= "<TABLE BORDER=1><TR><TD><EM>Library</EM></TD><TD><EM>Name</EM></TD><TD><EM>Num Lanes</EM></TD><TD><EM>Num Reads</EM></TD><TD><EM>First Lane</EM></TD><TD><EM>Most Recent Lane</EM></TD><TD><EM>Qtr. Start</EM></TD><TD><EM>Qtr. Complete</EM></TD></TR>\n";
 
   for my $x (0..scalar(@{$xml->{Library}})-1) {
     my $i = scalar(@{$xml->{Library}})-1-$x;
@@ -75,13 +75,17 @@ sub SummarizeLibrary {
     $total_reads += $num_reads;
     
     $start_date =~ /(\d\d)(\d\d)(\d\d)/;
-    my $start_year = 2000+$1; my $start_mo = $month{int($2)}; my $start_day = $3;
+    my $start_year = 2000+$1; my $start_mo_d = int($2); my $start_mo = $month{$start_mo_d}; my $start_day = $3;
+    my $start_q; my $start_color; if($start_mo_d <= 3) { $start_q = "Q1, $start_year"; $start_color = "#66FFFF"; } elsif($start_mo_d <= 6) { $start_q = "Q2, $start_year";$start_color = "#FFFF66";  } elsif($start_mo_d <= 9) { $start_q = "Q3, $start_year"; $start_color = "#FF66FF"; } else { $start_q = "Q4, $start_year"; $start_color = "#DEDEDE"; }
 
     $end_date =~ /(\d\d)(\d\d)(\d\d)/;
-    my $end_year = 2000+$1; my $end_mo = $month{int($2)}; my $end_day = $3;
+    my $end_year = 2000+$1; my $end_mo_d = int($2); my $end_mo = $month{$end_mo_d}; my $end_day = $3;
+    my $end_q; my $end_color; if($end_mo_d <= 3) { $end_q = "Q1, $end_year"; $end_color = "#66FFFF"; } elsif($end_mo_d <= 6) { $end_q = "Q2, $end_year";$end_color = "#FFFF66";  } elsif($end_mo_d <= 9) { $end_q = "Q3, $end_year"; $end_color = "#FF66FF"; } else { $end_q = "Q4, $end_year"; $end_color = "#DEDEDE"; }
+
+    if($num_reads < 10000000) { $end_color = "#FFFFFF"; $end_q = ""; }
 
     if($start_day == 0) { $start_day = 1; } if($end_day == 0) { $end_day = 1; }
-    $summary .= sprintf("<TR BGCOLOR=#%s><TD>%s</TD><TD>%s</TD><TD>%d</TD><TD>%0.2fM</TD><TD>%s %d, %d</TD><TD>%s %d, %d</TR>\n",$bgcolor,$lib,$desc,$num_lanes,$num_reads/1000000.0,$start_mo,$start_day,$start_year,$end_mo,$end_day,$end_year);
+    $summary .= sprintf("<TR BGCOLOR=#%s><TD>%s</TD><TD>%s</TD><TD>%d</TD><TD>%0.2fM</TD><TD>%s %d, %d</TD><TD>%s %d, %d</TD><TD BGCOLOR=$start_color>$start_q</TD><TD BGCOLOR=$end_color>$end_q</TD></TR>\n",$bgcolor,$lib,$desc,$num_lanes,$num_reads/1000000.0,$start_mo,$start_day,$start_year,$end_mo,$end_day,$end_year);
   }
   
   $summary .= "</TABLE>\n";