Lines 105-112
if ($authid) {
Link Here
|
105 |
push( @subfield_loop, { marc_subfield => 'w', marc_values => $relationship } ) if ( $relationship ); |
105 |
push( @subfield_loop, { marc_subfield => 'w', marc_values => $relationship } ) if ( $relationship ); |
106 |
|
106 |
|
107 |
my $controlled_ind = $auth->controlled_indicators({ record => $record, biblio_tag => $tag_number }); |
107 |
my $controlled_ind = $auth->controlled_indicators({ record => $record, biblio_tag => $tag_number }); |
108 |
$indicator1 = $controlled_ind->{ind1} // q{}; |
108 |
$indicator1 = $controlled_ind->{ind1}; |
109 |
$indicator2 = $controlled_ind->{ind2} // q{}; |
109 |
$indicator2 = $controlled_ind->{ind2}; |
110 |
if( defined $controlled_ind->{sub2} ) { |
110 |
if( defined $controlled_ind->{sub2} ) { |
111 |
my $v = $controlled_ind->{sub2}; |
111 |
my $v = $controlled_ind->{sub2}; |
112 |
push @subfield_loop, { marc_subfield => '2', marc_values => [ $v ] }; |
112 |
push @subfield_loop, { marc_subfield => '2', marc_values => [ $v ] }; |
Lines 116-130
if ($authid) {
Link Here
|
116 |
$template->param( "clear" => 1 ); |
116 |
$template->param( "clear" => 1 ); |
117 |
} |
117 |
} |
118 |
|
118 |
|
119 |
# Remove spaces in indicators |
|
|
120 |
$indicator1 =~ s/\s//g; |
121 |
$indicator2 =~ s/\s//g; |
122 |
|
123 |
$template->param( |
119 |
$template->param( |
124 |
authid => $authid ? $authid : "", |
120 |
authid => $authid ? $authid : "", |
125 |
index => $index, |
121 |
index => $index, |
126 |
tagid => $tagid, |
122 |
tagid => $tagid, |
|
|
123 |
update_ind1 => defined($indicator1), |
127 |
indicator1 => $indicator1, |
124 |
indicator1 => $indicator1, |
|
|
125 |
update_ind2 => defined($indicator2), |
128 |
indicator2 => $indicator2, |
126 |
indicator2 => $indicator2, |
129 |
SUBFIELD_LOOP => \@subfield_loop, |
127 |
SUBFIELD_LOOP => \@subfield_loop, |
130 |
tag_number => $tag_number, |
128 |
tag_number => $tag_number, |