# HG changeset patch
# User estrain
# Date 1539730798 14400
# Node ID 5e1f199bd289c2684c3e273fe0c501c5935ad7e4
# Parent  226ce8aaa97a71022be467af9985dace02767095
Uploaded

diff -r 226ce8aaa97a -r 5e1f199bd289 sum_fastqc.pl
--- a/sum_fastqc.pl	Tue Oct 16 18:59:44 2018 -0400
+++ b/sum_fastqc.pl	Tue Oct 16 18:59:58 2018 -0400
@@ -12,7 +12,6 @@
 #################################################### 
 
 $infile=@ARGV[0];
-$galfile=@ARGV[1];
 
 # First 10 lines of raw FASTQC contain basic overview
 @sumlines=`head -n 10 $infile`;
@@ -33,16 +32,15 @@
 shift(@sumlines);
 @gc = split(/\t/,shift(@sumlines));
 
-print "Input Data\tFile\tFastQC\tPass-Fail\tReads\tPoor_Reads\tGC\tQ30\n";
+print "File\tFastQC\tPass-Fail\tReads\tPoor_Reads\tGC\tQ30\n";
 
-print $galfile."\t";
 print $fn[1]."\t";
 print $fastqc[1]."\t";
 print $pass[1]."\t";
 print $nreads[1]."\t";
 print $npoor[1]."\t";
 print $gc[1]."\t";
-print qcal($nreads[1],30,\@qlines)."\t";
+print qcal($nreads[1],30,\@qlines);
 print "\n";
 
 # Sum reads w/ Q scores > cutoff and divide by number of reads