Changeset 341 for trunk


Ignore:
Timestamp:
06/08/12 18:14:56 (13 years ago)
Author:
Kris Deugau
Message:

/trunk

Fix logging glitch in record update. Note this was also partially
caused by the empty stubs filled in in r340.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/DNSDB.pm

    r340 r341  
    32663266    }
    32673267  }
    3268 
    3269   # Fiddle the field list into something suitable for updates
    3270   $fields =~ s/,/=?,/g;
    3271   $fields .= "=?";
     3268  if ($defrec eq 'n') {
     3269    $domid = $parid if $revrec eq 'n';
     3270    $revid = $parid if $revrec eq 'y';
     3271  }
    32723272
    32733273  # Put together the success log entry.  Horrible kludge from addRec() copied as-is since
     
    32753275  # will be maintained (due to "not-in-zone" validation changes)
    32763276  my %logdata;
     3277  $logdata{domain_id} = $domid;
     3278  $logdata{rdns_id} = $revid;
    32773279  my @ftmp = split /,/, $fields;
    32783280  for (my $i=0; $i <= $#vallist; $i++) {
     
    33073309  local $dbh->{AutoCommit} = 0;
    33083310  local $dbh->{RaiseError} = 1;
     3311
     3312  # Fiddle the field list into something suitable for updates
     3313  $fields =~ s/,/=?,/g;
     3314  $fields .= "=?";
    33093315
    33103316  eval {
Note: See TracChangeset for help on using the changeset viewer.