Propagate fix: Null string attr comes from XML as an undef value.

account/addpubkey.in

@@ -631,6 +631,9 @@ sub ParseXmlArgs($$$$$$) {
 
     foreach $key (keys(%{ $xmlparse->{'attribute'} })) {
 	my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+	if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	    $xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+	}
 
 	if ($debug) {
 	    print STDERR "User attribute: '$key' -> '$value'\n";

account/newproj.in

@@ -202,6 +202,9 @@ my %newproj_args = ();
 
 foreach my $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     if ($debug) {
 	my $prval = (defined($value) ? $value : "NULL");

account/newuser.in

@@ -191,6 +191,9 @@ my %newuser_args = ();
 
 foreach my $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     if ($debug) {
 	print STDERR "User attribute: '$key' -> '$value'\n";

backend/editexp.in

@@ -186,6 +186,9 @@ my %editexp_args = ();
 
 foreach my $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     if ($debug) {
 	print STDERR "User attribute: '$key' -> '$value'\n";

backend/editgroup.in

@@ -170,6 +170,9 @@ my %editgroup_args = ();
 
 foreach $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     if ($debug) {
 	print STDERR "User attribute: '$key' -> '$value'\n";

backend/editimageid.in

@@ -201,6 +201,9 @@ my $foo;
 
 foreach $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     if ($debug) {
 	print STDERR "User attribute: '$key' -> '$value'\n";

backend/editnodetype.in

@@ -226,6 +226,9 @@ my @wildkeys = reverse(sort(keys(%wildcards)));
 
 foreach $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     print STDERR "User attribute: '$key' -> '$value'\n"
 	if ($debug);

backend/editsitevars.in

@@ -173,6 +173,9 @@ my %editsitevars_args = ();
 
 foreach $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     if ($debug) {
 	print STDERR "User attribute: '$key' -> '$value'\n";

backend/newgroup.in

@@ -173,6 +173,9 @@ my %newgroup_args = ();
 
 foreach my $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     if ($debug) {
 	print STDERR "User attribute: '$key' -> '$value'\n";

backend/newimageid.in

@@ -214,6 +214,9 @@ my @wildkeys = reverse(sort(keys(%wildcards)));
 
 foreach $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     print STDERR "User attribute: '$key' -> '$value'\n"
 	if ($debug);

backend/newimageid_ez.in

@@ -216,6 +216,9 @@ my @wildkeys = reverse(sort(keys(%wildcards)));
 
 foreach $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     print STDERR "User attribute: '$key' -> '$value'\n"
 	if ($debug);

backend/newmmlist.in

@@ -175,6 +175,9 @@ my %newmmlist_args = ();
 
 foreach my $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     if ($debug) {
 	print STDERR "User attribute: '$key' -> '$value'\n";

backend/newosid.in

@@ -182,6 +182,9 @@ my %newosid_args = ();
 
 foreach my $key (keys(%{ $xmlparse->{'attribute'} })) {
     my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
+    if (!defined($value)) {	# Empty string comes from XML as an undef value.
+	$xmlparse->{'attribute'}->{"$key"}->{'value'} = $value = "";
+    }
 
     if ($debug) {
 	print STDERR "User attribute: '$key' -> '$value'\n";