Mercurial > repos > lxue > ageseq

changeset 7:449c8cf8fa3f draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handling of large data set.
author lxue
date Tue, 09 Jun 2015 12:44:58 -0400
parents 8d5914e21ec8
children
files AGEseq_web.pl
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/AGEseq_web.pl	Sat May 16 13:38:15 2015 -0400
+++ b/AGEseq_web.pl	Tue Jun 09 12:44:58 2015 -0400
@@ -527,6 +527,11 @@
 	     my  $total_non_redun = $hash_out_num{$fas_file_in}{'sub'} ;	
 			 
 		 for my $ref_name (sort keys %{$hash_out{$fas_file_in }}){
+			 if(not exists $hash_out{$fas_file_in}{$ref_name}{"data"}){
+		 	 	# print "No data for $fas_file_in $ref_name \n";
+		 	 	 next;
+		 	 }
+
 		 	 my @data = @{$hash_out{$fas_file_in}{$ref_name}{"data"}};
 		 	 
 		 	 for (@data){
@@ -558,6 +563,11 @@
 		 
 		 
 		 for my $ref_name (sort keys %{$hash_out{$fas_file_in }}){
+		 	
+		 	 if(not exists $hash_out{$fas_file_in}{$ref_name}{"data"}){
+		 	 	# print "No data for $fas_file_in $ref_name \n";
+		 	 	 next;
+		 	 }
 		 	 my @data = @{$hash_out{$fas_file_in}{$ref_name}{"data"}};
 		 	 
 		 	 my $wt_pair    = ''."\t".'';