From 94f0163476bbd82c48899a2e2d7f9caec1d64989 Mon Sep 17 00:00:00 2001
From: Rod Roark <rod@sunsetsystems.com>
Date: Tue, 16 Nov 2010 10:54:24 -0800
Subject: [PATCH] Fix courtesy of info from whimmel.

---
 contrib/util/load_icd_desc.plx | 1 +
 1 file changed, 1 insertion(+)

diff --git a/contrib/util/load_icd_desc.plx b/contrib/util/load_icd_desc.plx
index c6cd1a0e9..75607ee15 100755
--- a/contrib/util/load_icd_desc.plx
+++ b/contrib/util/load_icd_desc.plx
@@ -81,6 +81,7 @@ sub scrape {
     # that must be followed.  We handle those recursively.
     if ($tag->[0] eq "li") {
       $tag = $parser->get_tag;
+      $tag = $parser->get_tag if ($tag->[0] eq "strong");
       next unless ($tag->[0] eq "a");
       my $nexturl = $browser->base();
       # $nexturl =~ s'/[^/]+$'/';
-- 
2.11.4.GIT