allow vlan search by name

2012-01-08 23:01:06 +00:00
parent cd7b9dc18d
commit db7e68702a
6 changed files with 54 additions and 30 deletions
--- a/Netdisco/lib/Netdisco/DB/ResultSet/Device.pm
+++ b/Netdisco/lib/Netdisco/DB/ResultSet/Device.pm
@@ -110,4 +110,21 @@ sub carrying_vlan {
    );
 }

+sub carrying_vlan_name {
+    my ($set, $name) = @_;
+    return $set unless $name;
+    $name = "\%$name\%" if $name !~ m/\%/;
+
+    return $set->search(
+      {
+        'vlans.description' => { '-ilike' => $name },
+      },
+      {
+        order_by => [qw/ me.dns me.ip /],
+        columns => [qw/ me.ip me.dns me.model me.os me.vendor /],
+        prefetch => 'vlans',
+      },
+    );
+}
+
 1;