diff AGEseq_web.pl @ 7:449c8cf8fa3f draft default tip

Handling of large data set.
author lxue
date Tue, 09 Jun 2015 12:44:58 -0400
parents a9c5e846dd76
children
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".'';