Accept both old and new shared-vlan namespaces in requests.

protogeni/lib/GeniXML.pm.in

@@ -46,7 +46,8 @@ our $RSPEC_3_NS = "http://www.geni.net/resources/rspec/3";
 our $EMULAB_NS = "http://www.protogeni.net/resources/rspec/ext/emulab/1";
 our $XSI_NS = "http://www.w3.org/2001/XMLSchema-instance";
 our $STITCH_NS = "http://hpn.east.isi.edu/rspec/ext/stitch/0.1/";
-our $SHAREDVLAN_NS = "http://www.protogeni.net/resources/rspec/ext/shared-vlan/1";
+our $SHAREDVLAN_NS = "http://www.geni.net/resources/rspec/ext/shared-vlan/1";
+our $SHAREDVLAN_PG_NS = "http://www.protogeni.net/resources/rspec/ext/shared-vlan/1";
 
 $REQUEST_2_URL = "http://www.protogeni.net/resources/rspec/2/request.xsd";
 $MANIFEST_2_URL = "http://www.protogeni.net/resources/rspec/2/manifest.xsd";
@@ -675,7 +676,10 @@ sub GetSharedLanName($)
     if (! IsVersion0($iface)) {
 	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();
+	}
 	if (defined($interface_name)) {
 	    my $name = GetText("name", $interface_name);
 	    if (defined($name) and $name ne "") {