commas in numbers

WGLab · Nov 22, 2016 · 7576004 · 7576004
1 parent b27a5dc
commit 7576004
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/cgi-bin/Enzyme.cgi b/cgi-bin/Enzyme.cgi
@@ -330,8 +330,10 @@ sub prepareWorkDirectory {
 	else {
 		$bait_chr = "chrUNKNOWN";
 	}
-
-#        print INFO "enzyme=", join (",", @enzymelist), "\ntarget=$target\nbait_chr=$bait_chr\nbait_start=$bait_start\nbait_end=$bait_end\nsize_inter=$size_inter\nsize_intra=$size_intra\nwindow_intra=$window_intra\n";
+
+	$bait_start =~ s/,//g;
+	$bait_end =~ s/,//g;
+
 	print INFO "enzyme=",$enz_seq{$enz},"\ntarget=$target\nbait_chr=$bait_chr\nbait_start=$bait_start\nbait_end=$bait_end\nsize_inter=$size_inter\nsize_intra=$size_intra\nwindow_intra=$window_intra\nfdr=$fdr\nchipdata=$chipdata\n";
 
         close (INFO);

diff --git a/cgi-bin/Sonication.cgi b/cgi-bin/Sonication.cgi
@@ -325,7 +325,10 @@ sub prepareWorkDirectory {
 		$bait_chr = "chrUNKNOWN";
 	}
 
-        print INFO "\nextend=$extend\nbait_chr=$bait_chr\nbait_start=$bait_start\nbait_end=$bait_end\nsize=$size\nsize_inter=$size_inter\nsize_intra=$size_intra\nwindow_intra=$window_intra\nfdr=$fdr\nchipdata=$chipdata\n";
+	$bait_start =~ s/,//g;
+        $bait_end =~ s/,//g;	
+
+	print INFO "\nextend=$extend\nbait_chr=$bait_chr\nbait_start=$bait_start\nbait_end=$bait_end\nsize=$size\nsize_inter=$size_inter\nsize_intra=$size_intra\nwindow_intra=$window_intra\nfdr=$fdr\nchipdata=$chipdata\n";
 
 
         close (INFO);