ispman/lib/ISPMan/DNSMan TXTrecords.pm,1.3,1.4

Update of /cvsroot/ispman/ispman/lib/ISPMan/DNSMan
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15358/lib/ISPMan/DNSMan

Modified Files:
	TXTrecords.pm 
Log Message:
fixed bug with display of internal (hidden) TXT-records

Index: TXTrecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/TXTrecords.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- TXTrecords.pm	6 Jun 2006 22:12:04 -0000	1.3
+++ TXTrecords.pm	20 Jun 2006 19:35:56 -0000	1.4
@@ -45,15 +45,11 @@
     my $self               = shift;
     my $domain             = shift;
     my $relativeDomainName = shift;
-    my $filter;
+    my $filter = "&(objectclass=dnsZone)(txtRecord=*)(!(aRecord=*))";
     if ($relativeDomainName) {
-        $filter = "&(objectclass=dnsZone)".
-        "(txtRecord=*)".
-        "(relativeDomainName=$relativeDomainName)";
-    }
-    else {
-        $filter = "&(objectclass=dnsZone)(txtRecord=*)";
+        $filter .= "(relativeDomainName=$relativeDomainName)";
     }
+    
     my $dn = $self->getDNSDN($domain);
 
     my $h =