[Midnightbsd-cvs] mports: Category.pm: add distinct_ports method.
ctriv at midnightbsd.org
ctriv at midnightbsd.org
Tue Mar 25 01:13:39 EDT 2008
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__
More information about the Midnightbsd-cvs
mailing list