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

This commit is contained in:
oleonard 2004-11-30 16:14:04 +00:00
parent 22310ea007
commit cfd59e9ba3

View file

@ -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;