duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

BloodDonor: Bombing out unused html stuff

master
Rob Emery 2015-07-10 06:32:14 +01:00
parent cf91666c52
commit f250b2e396
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/DDG/Goodie/BloodDonor.pm
View File

@ -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',