Changeset 152 for trunk

Timestamp:

10/21/11 17:59:01 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Tweaks and fixes in getParents() and isParent()

File:

• trunk/DNSDB.pm (modified) (2 diffs)

trunk/DNSDB.pm

@@ -1457 +1457 @@
     my $result = $dbh->selectrow_hashref("SELECT $par_col{$type} FROM $par_tbl{$type} WHERE $id_col{$type} = ?",
         undef, ($id) );
-    unshift @parlist, ($result->{$par_col{$type}} => $par_type{$type});
+    my %tmp = ($result->{$par_col{$type}} => $par_type{$type});
+    unshift @parlist, \%tmp;
     last if $result->{$par_col{$type}} == 1;    # group 1 is its own parent
+    $id = $result->{$par_col{$type}};
     $type = $par_type{$type};
-    $id = $result->{$par_col{$type}};
   }
 
@@ -1502 +1503 @@
     # group 1 is its own parent.  need this here more to break strange loops than for detecting a parent
     last if $result->{$par_col{$type}} == 1;
+    $id = $result->{$par_col{$type}};
     $type = $par_type{$type};
-    $id = $result->{$par_col{$type}};
 last if $tmp++ > 10;
   }