Handle protogeni namespace correctly.

protogeni/lib/GeniXML.pm.in

@@ -677,8 +677,8 @@ sub GetSharedLanName($)
 	my $interface_name = FindNodesNS("n:link_shared_vlan", $iface,
 					 $SHAREDVLAN_NS)->pop();
 	if (! defined($interface_name)) {
-	    $interface_name = FindNodeNS("n:link_shared_vlan", $iface,
-					 $SHAREDVLAN_PG_NS)->pop();
+	    $interface_name = FindNodesNS("n:link_shared_vlan", $iface,
+					  $SHAREDVLAN_PG_NS)->pop();
 	}
 	if (defined($interface_name)) {
 	    my $name = GetText("name", $interface_name);