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

(-)a/cataloguing/additem.pl (-6 / +11 lines)
Lines 154-170 sub generate_subfield_form { Link Here
154
154
155
        my $pref_itemcallnumber = C4::Context->preference('itemcallnumber');
155
        my $pref_itemcallnumber = C4::Context->preference('itemcallnumber');
156
        if (!$value && $subfieldlib->{kohafield} eq 'items.itemcallnumber' && $pref_itemcallnumber) {
156
        if (!$value && $subfieldlib->{kohafield} eq 'items.itemcallnumber' && $pref_itemcallnumber) {
157
            my $CNtag       = substr($pref_itemcallnumber, 0, 3);
157
            my $CNtag       = substr( $pref_itemcallnumber, 0, 3 ); # 3-digit tag number
158
            my $CNsubfield  = substr($pref_itemcallnumber, 3, 1);
158
            my $CNsubfields = substr( $pref_itemcallnumber, 3 ); # Any and all subfields
159
            my $CNsubfield2 = substr($pref_itemcallnumber, 4, 1);
159
            my @subfields = ( $CNsubfields =~ m/./g ); # Split into single-character elements
160
            my $temp2 = $temp->field($CNtag);
160
            my $temp2 = $temp->field($CNtag);
161
161
            if ($temp2) {
162
            if ($temp2) {
162
                $value = join ' ', $temp2->subfield($CNsubfield) || q{}, $temp2->subfield($CNsubfield2) || q{};
163
                my @selectedsubfields;
164
                foreach my $subfieldcode( @subfields ){
165
                    push @selectedsubfields, $temp2->subfield( $subfieldcode );
166
                }
167
                $value = join( ' ', @selectedsubfields );
168
163
                #remove any trailing space incase one subfield is used
169
                #remove any trailing space incase one subfield is used
164
                $value =~ s/^\s+|\s+$//g;
170
                $value =~ s/^\s+|\s+$//g;
165
            }
171
            }
166
        }
172
        }
167
        
173
168
        if ($frameworkcode eq 'FA' && $subfieldlib->{kohafield} eq 'items.barcode' && !$value){
174
        if ($frameworkcode eq 'FA' && $subfieldlib->{kohafield} eq 'items.barcode' && !$value){
169
	    my $input = new CGI;
175
	    my $input = new CGI;
170
	    $value = $input->param('barcode');
176
	    $value = $input->param('barcode');
171
- 

Return to bug 9156