Galaxy |

Changeset 7:449c8cf8fa3f (2015-06-09)

Previous changeset 6:8d5914e21ec8 (2015-05-16)

Commit message:
Handling of large data set.

modified:
AGEseq_web.pl

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".'';