[Midnightbsd-cvs] mports: Category.pm: add distinct_ports method.

[ctriv at midnightbsd.org]

Log Message:
-----------
add distinct_ports method.

Modified Files:
--------------
    mports/Tools/lib/Magus:
        Category.pm (r1.2 -> r1.3)

-------------- next part --------------
Index: Category.pm
===================================================================
RCS file: /home/cvs/mports/Tools/lib/Magus/Category.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -L Tools/lib/Magus/Category.pm -L Tools/lib/Magus/Category.pm -u -r1.2 -r1.3
--- Tools/lib/Magus/Category.pm
+++ Tools/lib/Magus/Category.pm
@@ -39,6 +39,26 @@
 __PACKAGE__->has_many(ports => [ 'Magus::PortCategory' => 'port']);
 
 
+=head2 $cat->distinct_ports
+
+Returns an arrayref of port names.  These are the distinct ports
+belonging to this cateogory, without duplicates.
+
+=cut
+sub distinct_ports {
+  my ($self) = @_;
+  
+  my $dbh = $self->db_Main;
+  
+  return $dbh->selectcol_arrayref(
+    "SELECT DISTINCT(ports.name) FROM ports,port_categories WHERE ports.id=port AND category=?", 
+    undef, 
+    $self->id
+  );
+}  
+  
+
+
 1;
 __END__