[freeside-commits] freeside/FS/FS/part_export domain_sql.pm, 1.4, 1.4.6.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv5699/FS/FS/part_export

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	domain_sql.pm 
Log Message:
dns updates from Erik L: add ttl support, add check for SRV and finish allowing additional rectypes, allow forward slashes for RFC2317 classless in-arpa delegation, RT#8933

Index: domain_sql.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/domain_sql.pm,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -w -d -r1.4 -r1.4.6.1
--- domain_sql.pm	29 Sep 2006 16:18:27 -0000	1.4
+++ domain_sql.pm	11 Sep 2010 17:02:59 -0000	1.4.6.1
@@ -99,6 +99,7 @@
 
   my %schema = $self->_schema_map;
   my %static = $self->_static_map;
+  #my %map = (%schema, %static);
 
   my @primary_key = ();
   if ( $self->option('primary_key') =~ /,/ ) {
@@ -107,6 +108,7 @@
       push @primary_key, $old->$keymap();
     }
   } else {
+    my %map = (%schema, %static);
     my $keymap = $map{$self->option('primary_key')};
     push @primary_key, $old->$keymap();
   }
@@ -135,6 +137,7 @@
 
   my %schema = $self->_schema_map;
   my %static = $self->_static_map;
+  my %map = (%schema, %static);
 
   my %primary_key = ();
   if ( $self->option('primary_key') =~ /,/ ) {