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

(-)a/cataloguing/additem.pl (-1 / +1 lines)
Lines 144-149 sub generate_subfield_form { Link Here
144
            foreach my $pref_itemcallnumber_part (split(/,/, $pref_itemcallnumber)){
144
            foreach my $pref_itemcallnumber_part (split(/,/, $pref_itemcallnumber)){
145
                my $CNtag       = substr( $pref_itemcallnumber_part, 0, 3 ); # 3-digit tag number
145
                my $CNtag       = substr( $pref_itemcallnumber_part, 0, 3 ); # 3-digit tag number
146
                my $CNsubfields = substr( $pref_itemcallnumber_part, 3 ); # Any and all subfields
146
                my $CNsubfields = substr( $pref_itemcallnumber_part, 3 ); # Any and all subfields
147
                $CNsubfields = undef if $CNsubfields eq '';
147
                my $temp2 = $temp->field($CNtag);
148
                my $temp2 = $temp->field($CNtag);
148
149
149
                next unless $temp2;
150
                next unless $temp2;
150
- 

Return to bug 28533