Commit 7d5a3a03 authored by Leigh B Stoller's avatar Leigh B Stoller

Fix to previous revision.

parent 3b3436f4
......@@ -378,7 +378,7 @@ while (1) {
my @fakenodenames = ();
my @switchnodenames = ();
my %fakenodemap = ();
my $query_result = emdbi::DBQueryWarnN( $tbdb, "SELECT e.node_id, w.node_id1, w.iface1, w.node_id2, w.card2, w.port2 " .
my $query_result = emdbi::DBQueryWarnN( $tbdb, "SELECT e.node_id, w.node_id1, w.card1, w.port1, w.iface1, w.node_id2, w.card2, w.port2, w.iface2 " .
"FROM external_networks as e, " .
"wires as w WHERE " .
"e.node_id=w.node_id1 OR " .
......@@ -387,7 +387,8 @@ while (1) {
my @fakenodes;
while( @fakenodes = $query_result->fetchrow_array() ) {
my ($external, $node1, $iface1, $node2, $card2, $port2) = @fakenodes;
my ($external, $node1, $card1, $port1, $iface1,
$node2, $card2, $port2, $iface2) = @fakenodes;
my $extnode = $external eq $node1 ? $node1 : $node2;
my $extiface = $external eq $node1 ? $iface1 : $iface2;
my $switchnode = $external eq $node1 ? $node2 : $node1;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment