--- Webpacus/lib/Webpacus/Model/Databases.pm	2005/12/19 23:51:13	304
+++ Webpacus/lib/Webpacus/Model/Databases.pm	2005/12/27 21:36:42	329
@@ -91,16 +91,29 @@
 
 Returns just of just unique databases with C<name> and C<prefix>.
 
+ my @dbs = $c->comp('Model::Databases')->list;
+
+You can also return just databases that have C<input> defined (that are not
+empty databases used for agregation) if you add option C<require_input>.
+
+ my @db_2 = $c->comp('Model::Databases')->list( require_input => 1 );
+
 =cut
 
 sub list {
 	my $self = shift;
 
+	my $args = shift;
+
 	my @databases;
 
 	foreach my $db (keys %{ $self->{databases} }) {
 		my $d = $self->{databases}->{$db} || die;
 
+		if ($args->{require_input}) {
+			next unless ($d->{input});
+		}
+
 		my $el = {
 			name	=> $self->convert( $d->{name} || $db ),
 			prefix	=> $self->convert( $db ),