Commit d3bfaf4a authored by Jonathon Duerig's avatar Jonathon Duerig

Fix various minor bugs in new RspecV2 code.

parent 3a1f885b
......@@ -1320,7 +1320,7 @@ sub GetTicketAuxAux($$$$$$$$$)
} else {
GeniXML::SetText("component_id", $rspec,
GeniHRN::Generate( $OURDOMAIN, "node",
$node->node_id() );
$node->node_id() ));
GeniXML::SetText("component_manager_id", $rspec, $ENV{'MYURN'});
}
GeniXML::SetExclusive($rspec, $exclusive);
......@@ -2236,7 +2236,7 @@ sub SliverWorkAux($$$$$$$)
my $node_id = GeniXML::GetText("virtual_node_id",
$ifaceref);
if (! GeniXML::IsVersion0($ifaceref) && defined($iface_id)) {
$node_id = $iface2ref{$iface_id};
$node_id = $iface2node{$iface_id};
}
my ($vnode,$vinterface);
......
......@@ -341,7 +341,7 @@ sub SetVirtualizationType($$)
my ($node, $arg) = @_;
my $result = 1;
if (IsVersion0($node)) {
$result = SetText("virtualization_type", $arg);
$result = SetText("virtualization_type", $node, $arg);
}
return $result;
}
......@@ -376,7 +376,7 @@ sub GetExclusive($)
return $result;
}
sub SetExclusive($)
sub SetExclusive($$)
{
my ($node, $arg) = @_;
my $result = 1;
......
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