View | Details | Raw Unified | Return to bug 20304
Collapse All | Expand All

(-)a/cataloguing/additem.pl (-2 / +1 lines)
Lines 156-162 sub generate_subfield_form { Link Here
156
            my $CNsubfield2 = substr($pref_itemcallnumber, 4, 1);
156
            my $CNsubfield2 = substr($pref_itemcallnumber, 4, 1);
157
            my $temp2 = $temp->field($CNtag);
157
            my $temp2 = $temp->field($CNtag);
158
            if ($temp2) {
158
            if ($temp2) {
159
                my $value = join ' ', $temp2->subfield($CNsubfield) || q{}, $temp2->subfield($CNsubfield2) || q{};
159
                $value = join ' ', $temp2->subfield($CNsubfield) || q{}, $temp2->subfield($CNsubfield2) || q{};
160
                #remove any trailing space incase one subfield is used
160
                #remove any trailing space incase one subfield is used
161
                $value =~ s/^\s+|\s+$//g;
161
                $value =~ s/^\s+|\s+$//g;
162
            }
162
            }
163
- 

Return to bug 20304