From e9ced6fa32f78427d13711ff07820d4b92762d9c Mon Sep 17 00:00:00 2001
From: Maarten Vanraes <alien@mageia.org>
Date: Sat, 14 May 2016 09:59:39 +0200
Subject: port script for testing backend to new partlink system

---
 lib/ManaTools/Shared/disk_backend/Part.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'lib/ManaTools/Shared/disk_backend')

diff --git a/lib/ManaTools/Shared/disk_backend/Part.pm b/lib/ManaTools/Shared/disk_backend/Part.pm
index 5a88dff9..4c293493 100644
--- a/lib/ManaTools/Shared/disk_backend/Part.pm
+++ b/lib/ManaTools/Shared/disk_backend/Part.pm
@@ -293,6 +293,17 @@ sub add_taglink {
     return ($partlink1, $partlink2);
 }
 
+sub has_link {
+    my $self = shift;
+    my $part = shift;
+    my @tags = @_;
+    my $links = $self->links();
+    for my $link (@{$links}) {
+        return 1 if ($link->check($self, $part, @tags));
+    }
+    return 0;
+}
+
 sub find_link {
     my $self = shift;
     my $part = shift;
-- 
cgit v1.2.1