X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=15ab1ef17685b640aa250b615ee0608ea9f58138;hp=597ce83ccd00b63ccacd7ef2fe5a03192245be85;hb=5b7718beb78ff32f4f954c675a0934e9386badad;hpb=29288f09d3700d98c70b5c6a2f8354ece25f8c01

diff --git a/perl/sctweb b/perl/sctweb
index 597ce83..15ab1ef 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -615,7 +615,8 @@ sub do_transcripts {
     $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN&tserve_trans_config=rtranscr.cfg&CareerReqNum=1");
     foreach (split /\n/, $response->content) {
 	next unless s/^\&nbsp;|<pre>// || s/\&nbsp;/ /;
-	s/<\/?[Hh]\d>//g;
+	s/<\/?([Hh]\d|[Bb])>//g;
+	next if /<\/td>/;
 	print "$_\n";
     }
 }