From f250b2e3967699c6511da426dc91051bcded3576 Mon Sep 17 00:00:00 2001
From: Rob Emery <mintsoft@users.noreply.github.com>
Date: Fri, 10 Jul 2015 06:32:14 +0100
Subject: [PATCH] BloodDonor: Bombing out unused html stuff

---
 lib/DDG/Goodie/BloodDonor.pm | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/lib/DDG/Goodie/BloodDonor.pm b/lib/DDG/Goodie/BloodDonor.pm
index 78d847fa1..648ba48a6 100755
--- a/lib/DDG/Goodie/BloodDonor.pm
+++ b/lib/DDG/Goodie/BloodDonor.pm
@@ -30,11 +30,6 @@ my %typeMap = (
     'B' => 'B,O',
 );
 
-sub table_data {
-    my ($label, $value) = @_;
-    return "<tr><td class='text--secondary'>$label</td><td class='text--primary'>$value</td></tr>";
-}
-
 handle remainder => sub {
     
     return unless ($_ =~ /^(O|A|B|AB)(\-|\+)$/i);
@@ -55,14 +50,10 @@ handle remainder => sub {
             push(@criticalResults, $donorType . '-');
         }
     }
-    
-    my $output = '';
-    my $html = "<table class='blooddonor'>";
 
     my $idealStr = join(' or ', @idealResults);
     my $criticalStr = join(' or ', @criticalResults);
 
-
     my %record_data = (
         "Ideal donor" => uc($_),
         "Other donors" => $idealStr,
@@ -75,10 +66,10 @@ handle remainder => sub {
     }
 
     sub to_text
-	{
-		my ($data, $keys) = @_;
-		return join "\n", map {"$_: $data->{$_}";} @{$keys};
-	}
+    {
+        my ($data, $keys) = @_;
+        return join "\n", map {"$_: $data->{$_}";} @{$keys};
+    }
 
     return to_text(\%record_data, \@record_keys), structured_answer => {
             id => 'BloodDonor',