# HG changeset patch
# User lxue
# Date 1433868298 14400
# Node ID 449c8cf8fa3f00946319f7e546cb0092f65ac4c0
# Parent  8d5914e21ec8c905a405f827188e701a29cab3d3
Handling of large data set.

diff -r 8d5914e21ec8 -r 449c8cf8fa3f AGEseq_web.pl
--- 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".'';