From 97fa54c9d3ed4455f6f83476db50338543e35571 Mon Sep 17 00:00:00 2001
From: cjfields <cjfields@bioperl.org>
Date: Mon, 15 Dec 2008 18:39:09 +0000
Subject: [PATCH] scores

svn path=/bioperl-live/trunk/; revision=15163
---
 Bio/Tools/EUtilities/Link/LinkSet.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/Bio/Tools/EUtilities/Link/LinkSet.pm b/Bio/Tools/EUtilities/Link/LinkSet.pm
index 2820fd8f2..ad84c476f 100644
--- a/Bio/Tools/EUtilities/Link/LinkSet.pm
+++ b/Bio/Tools/EUtilities/Link/LinkSet.pm
@@ -561,6 +561,20 @@ sub to_string {
     while (my $ui = $self->next_UrlLink) {
         $string .= $ui->to_string(4);
     }
+    if ($self->has_scores) {
+        $string .= "Scores:\n";
+        my %scores = $self->get_scores;
+        $string .= sprintf("%-*s%-*s%s\n",
+            $level + 4, '',
+            $pad - 4, 'ID', 'Score'
+            );        
+        for my $id ($self->get_ids) {
+            $string .= sprintf("%-*s%-*s%s\n",
+                $level + 4, '',
+                $pad - 4, $id, $scores{$id}
+                );
+        }
+    }
     $string .= "\n";
     return $string;
 }
-- 
2.11.4.GIT