my $authid = $query->param('authid');
my $index = $query->param('index');
my $tagid = $query->param('tagid');
+my $relationship = $query->param('relationship');
my $authtypecode = &GetAuthTypeCode($authid);
my $tagslib = &GetTagsLabels( 1, $authtypecode );
# Get all values for each distinct subfield
my %subfields;
for ( $field->subfields ) {
+ next if $_->[0] == "9"; # $9 will be set with authid value
my $letter = $_->[0];
next if defined $subfields{$letter};
my @values = $field->subfield($letter);
my $letter = $_ || '@';
push( @subfield_loop, {marc_subfield => $letter, marc_values => $subfields{$_}} );
}
+
+ push( @subfield_loop, { marc_subfield => 'w', marc_values => $relationship } ) if ( $relationship );
}
else {
# authid is empty => the user want to empty the entry.