ispman/lib/ISPMan/DNSMan Arecords.pm,1.19,1.20

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

Modified Files:
	Arecords.pm 
Log Message:
added new method deleteDNSaRecord

Index: Arecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/Arecords.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- Arecords.pm	4 Aug 2004 17:31:53 -0000	1.19
+++ Arecords.pm	6 Jun 2006 20:52:56 -0000	1.20
@@ -11,6 +11,7 @@
   editDNSaRecords
   addDNSaRecord
   modifyDNSaRecord
+  deleteDNSaRecord
   getDNSaRecords
 );
 $VERSION = '0.01';
@@ -101,29 +102,28 @@
 sub modifyDNSaRecord {
     my $self = shift;
     my $r    = shift;
+    my $dn   = $r->param("dn");
 
-    # add/update record or delete?
-    if ( $r->param("host") and $r->param("ip") ) {
-
-        # delete old record
-        $self->deleteEntry( $r->param("dn") );
-
-        # add record
-        $self->addDNSaRecord($r);
-    }
-    else {
+    # delete old record
+    $self->deleteEntry( $dn );
 
-# FIXME
-# Quick&Dirty Patch to delete record. Better do this with direct action in web form
-        my $entry = $self->getEntry( $r->param("dn") );
-        $self->deleteDNSRecord(
+    # add record
+    $self->addDNSaRecord($r);
+}
+    
+sub deleteDNSaRecord {   
+    my $self = shift;
+    my $r    = shift;
+    my $dn   = $r->param("dn");
+    
+    my $entry = $self->getEntry( $r->param("dn") );
+    $self->deleteDNSRecord(
             $r->param("ispmanDomain"),
             "aRecord",
             $entry->get_value("relativeDomainName"),
             $entry->get_value("aRecord")
-        );
-        $self->editDNSaRecords($r);
-    }
+    );
+    $self->editDNSaRecords($r);    
 }
 
 sub addDNSaRecord {