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

(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (+18 lines)
Lines 241-246 sub plugin { Link Here
241
            $subfield_value_i = $marcrecord->field('500')->subfield("i");
241
            $subfield_value_i = $marcrecord->field('500')->subfield("i");
242
        }
242
        }
243
243
244
        my $subfield_value_l;
245
        $subfield_value_l = $marcrecord->field('200')->subfield("d")
246
            if ( $marcrecord->field('200') );
247
248
        my $subfield_value_n;
249
        $subfield_value_n = $marcrecord->field('210')->subfield("c")
250
            if ( $marcrecord->field('210') );
251
252
        my $subfield_value_o;
253
        $subfield_value_o = $marcrecord->field('200')->subfield("e")
254
            if ( $marcrecord->field('200') );
255
244
        my $subfield_value_p;
256
        my $subfield_value_p;
245
	$subfield_value_p = $marcrecord->field('215')->subfield("a")
257
	$subfield_value_p = $marcrecord->field('215')->subfield("a")
246
          if ( $marcrecord->field('215') );
258
          if ( $marcrecord->field('215') );
Lines 301-306 sub plugin { Link Here
301
        $subfield_value_e =~ s/'/\\'/g;
313
        $subfield_value_e =~ s/'/\\'/g;
302
        $subfield_value_h =~ s/'/\\'/g;
314
        $subfield_value_h =~ s/'/\\'/g;
303
        $subfield_value_i =~ s/'/\\'/g;
315
        $subfield_value_i =~ s/'/\\'/g;
316
        $subfield_value_l =~ s/'/\\'/g;
317
        $subfield_value_n =~ s/'/\\'/g;
318
        $subfield_value_o =~ s/'/\\'/g;
304
        $subfield_value_p =~ s/'/\\'/g;
319
        $subfield_value_p =~ s/'/\\'/g;
305
        $subfield_value_t =~ s/'/\\'/g;
320
        $subfield_value_t =~ s/'/\\'/g;
306
        $subfield_value_u =~ s/'/\\'/g;
321
        $subfield_value_u =~ s/'/\\'/g;
Lines 319-324 sub plugin { Link Here
319
            subfield_value_e => "$subfield_value_e",
334
            subfield_value_e => "$subfield_value_e",
320
            subfield_value_h => "$subfield_value_h",
335
            subfield_value_h => "$subfield_value_h",
321
            subfield_value_i => "$subfield_value_i",
336
            subfield_value_i => "$subfield_value_i",
337
            subfield_value_l => "$subfield_value_l",
338
            subfield_value_n => "$subfield_value_n",
339
            subfield_value_o => "$subfield_value_o",
322
            subfield_value_p => "$subfield_value_p",
340
            subfield_value_p => "$subfield_value_p",
323
            subfield_value_t => "$subfield_value_t",
341
            subfield_value_t => "$subfield_value_t",
324
            subfield_value_u => "$subfield_value_u",
342
            subfield_value_u => "$subfield_value_u",
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_field_4XX.tt (-1 / +9 lines)
Lines 48-53 Link Here
48
                        if(code.value == 'i'){
48
                        if(code.value == 'i'){
49
                                subfield.value = "[% subfield_value_i |replace("'", "\'") |replace('"', '\"') |replace('\n', '\\n') |replace('\r', '\\r') %]";
49
                                subfield.value = "[% subfield_value_i |replace("'", "\'") |replace('"', '\"') |replace('\n', '\\n') |replace('\r', '\\r') %]";
50
                        }
50
                        }
51
                        if(code.value == 'l'){
52
                                subfield.value = "[% subfield_value_l %]";
53
                        }
54
                        if(code.value == 'n'){
55
                                subfield.value = "[% subfield_value_n %]";
56
                        }
57
                        if(code.value == 'o'){
58
                                subfield.value = "[% subfield_value_o %]";
59
                        }
51
                        if(code.value == 'p'){
60
                        if(code.value == 'p'){
52
                                subfield.value = "[% subfield_value_p |replace("'", "\'") |replace('"', '\"') |replace('\n', '\\n') |replace('\r', '\\r') %]";
61
                                subfield.value = "[% subfield_value_p |replace("'", "\'") |replace('"', '\"') |replace('\n', '\\n') |replace('\r', '\\r') %]";
53
                        }
62
                        }
54
- 

Return to bug 14766