From 5b7718beb78ff32f4f954c675a0934e9386badad Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Fri, 29 Apr 2005 04:00:43 +0000
Subject: [PATCH] Transcript parsing

---
 perl/sctweb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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";
     }
 }
-- 
2.30.2