Adding blank to relshiploop (altrelationship) loop (Bug 657)

diff --git a/members/memberentry.pl b/members/memberentry.pl
index f5ba91f..0834f81 100755 (executable)
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -170,7 +170,7 @@ if ($delete){
                                        -default=>$data->{'categorycode'},
                                        -labels=>$labels);
 
-       my @relationships = ('workplace', 'relative','friend', 'neighbour');
+       my @relationships = ('','workplace', 'relative','friend', 'neighbour');
        my @relshipdata;
        while (@relationships) {
                my $relship = shift @relationships;