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 = "<BR><B>GeneReview available for " . $col[3] . ": </B> " . $clickMsg . "<BR>"; $details .= "<PRE><TT>"; $details .= "Short name Disease ID GeneTests disease name<BR>"; $details .= "-----------------------------------------------------------"; $details .= "-----------------------------------------------------------"; $details .= "----------------------------------<BR>"; } - $details .= "<A HREF=\"http://www.ncbi.nlm.nih.gov/books/n/gene/" . $f5[0] . "\" TARGET=_blank><B>" . $f5[0] . "</B></A>"; + $details .= "<A HREF=\"https://www.ncbi.nlm.nih.gov/books/n/gene/" . $f5[0] . "\" TARGET=_blank><B>" . $f5[0] . "</B></A>"; if (length($f5[0]) <= 15) { for ($j = 0; $j < 15-length($f5[0]); $j ++ ) { $details .= " "; } } $details .= $f5[1] . " "; - $details .= "<A HREF=\"http://www.ncbi.nlm.nih.gov/sites/GeneTests/review/disease/" . $f5[2] . "?db=genetests&search_param==begins_with\" TARGET=_blank>" . $f5[2] ."<BR>"; + $details .= "<A HREF=\"https://www.ncbi.nlm.nih.gov/sites/GeneTests/review/disease/" . $f5[2] . "?db=genetests&search_param==begins_with\" TARGET=_blank>" . $f5[2] ."<BR>"; } $details .= "</TT></PRE><BR>"; print $col[0], "\t", $col[1], "\t", $col[2], "\t", $col[3], "\t", $details, "\n"; }