a0c8e5e673c15848e6f9ab33e7e77f32c641d995 angie Mon Sep 18 14:38:57 2017 -0700 Big search & replace: use https instead of http for NCBI URLs. refs #17793 diff --git src/utils/geneReviews/addGeneReviewToBed.pl src/utils/geneReviews/addGeneReviewToBed.pl index d1f8946..6377721 100755 --- src/utils/geneReviews/addGeneReviewToBed.pl +++ src/utils/geneReviews/addGeneReviewToBed.pl @@ -26,28 +26,28 @@ my $count = scalar(@grShort); my $i; my $j; for ($i=0; $i < $count; $i++) { my @f5 = split(/\t/, $grShort[$i]); if ($firstTime == 1) { $firstTime=0; $details = ""; $details = "
GeneReview available for " . $col[3] . ": " . $clickMsg . "
"; $details .= "
";
       $details .= "Short name    Disease ID     GeneTests disease name
"; $details .= "-----------------------------------------------------------"; $details .= "-----------------------------------------------------------"; $details .= "----------------------------------
"; } - $details .= "" . $f5[0] . ""; + $details .= "" . $f5[0] . ""; if (length($f5[0]) <= 15) { for ($j = 0; $j < 15-length($f5[0]); $j ++ ) { $details .= " "; } } $details .= $f5[1] . " "; - $details .= "" . $f5[2] ."
"; + $details .= "
" . $f5[2] ."
"; } $details .= "

"; print $col[0], "\t", $col[1], "\t", $col[2], "\t", $col[3], "\t", $details, "\n"; }