From 35c4ad13a52bdcaab251358e4b7df99dd852c76d Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Sun, 20 Jan 2013 03:04:17 +0100
Subject: New domains.

---
 lib/Fripost/Schema/List.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'lib/Fripost/Schema/List.pm')

diff --git a/lib/Fripost/Schema/List.pm b/lib/Fripost/Schema/List.pm
index 18eeb29..2c4d1bc 100644
--- a/lib/Fripost/Schema/List.pm
+++ b/lib/Fripost/Schema/List.pm
@@ -42,7 +42,7 @@ sub search {
     my $concat = $options{'-concat'};
 
     my $filter = 'objectClass=FripostVirtualList';
-    $filter = '(&('.$filter.')(!(fripostIsStatusPending=TRUE)))'
+    $filter = '(&('.$filter.')(!(fripostIsStatusPending=*)))'
         if (defined $options{'-is_pending'}) and !$options{'-is_pending'};
 
     my $lists = $self->ldap->search(
@@ -62,7 +62,7 @@ sub search {
                  , isactive => $_->get_value('fripostIsStatusActive') eq 'TRUE'
                  , description => concat($concat, $_->get_value('description'))
                  , transport => $_->get_value('fripostListManager')
-                 , ispending => ($_->get_value('fripostIsStatusPending') // '') eq 'TRUE'
+                 , ispending => defined $_->get_value('fripostIsStatusPending')
                  }
                }
                $lists->sorted('fvl')
@@ -144,8 +144,7 @@ sub add {
     # Ask the list manager to create the list now.
 
     my $member = email_valid( $self->_dn2fvu($self->whoami), -exact => 1);
-    my $to = email_valid( 'mklist+'.$l->{transport}.'@fripost.org'
-                        , -exact => 1 );
+    my $to = email_valid( 'mklist+'.$l->{transport}.'@fripost.org' );
 
     my $mail = MIME::Entity::->build(
         From     => 'Fripost Admin Panel <AdminWebPanel@fripost.org>',
-- 
cgit v1.2.3