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

(-)a/C4/Biblio.pm (-2 / +2 lines)
Lines 576-582 sub LinkBibHeadingsToAuthorities { Link Here
576
                        $marcrecordauth->insert_fields_ordered(
576
                        $marcrecordauth->insert_fields_ordered(
577
                            MARC::Field->new(
577
                            MARC::Field->new(
578
                                '667', '', '',
578
                                '667', '', '',
579
                                'a' => "Machine generated authority record."
579
                                'a' => C4::Context->preference('GenerateAuthorityField667')
580
                            )
580
                            )
581
                        );
581
                        );
582
                        my $cite =
582
                        my $cite =
Lines 586-592 sub LinkBibHeadingsToAuthorities { Link Here
586
                        $cite =~ s/^[\s\,]*//;
586
                        $cite =~ s/^[\s\,]*//;
587
                        $cite =~ s/[\s\,]*$//;
587
                        $cite =~ s/[\s\,]*$//;
588
                        $cite =
588
                        $cite =
589
                            "Work cat.: ("
589
                            C4::Context->preference('GenerateAuthorityField670') . ": ("
590
                          . ( $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode') ) . ")"
590
                          . ( $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode') ) . ")"
591
                          . $bib->subfield( '999', 'c' ) . ": "
591
                          . $bib->subfield( '999', 'c' ) . ": "
592
                          . $cite;
592
                          . $cite;
(-)a/installer/data/mysql/atomicupdate/bug_13412-add_GenerateAuthorityField_syspref.sql (+3 lines)
Line 0 Link Here
1
INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
2
( 'GenerateAuthorityField667', 'Machine generated authority record', NULL, 'When AutoCreateAuthorities is enabled, use this as a default value', 'free' ),
3
( 'GenerateAuthorityField670', 'Work cat.', NULL, 'When BiblioAddsAuthorities and AutoCreateAuthorities are enabled, use this as a default value for the 670$a field', 'free' )
(-)a/installer/data/mysql/sysprefs.sql (-1 / +3 lines)
Lines 688-692 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here
688
('XSLTListsDisplay','default','','Enable XSLT stylesheet control over lists pages display on intranet','Free'),
688
('XSLTListsDisplay','default','','Enable XSLT stylesheet control over lists pages display on intranet','Free'),
689
('XSLTResultsDisplay','default','','Enable XSL stylesheet control over results page display on intranet','Free'),
689
('XSLTResultsDisplay','default','','Enable XSL stylesheet control over results page display on intranet','Free'),
690
('z3950AuthorAuthFields','701,702,700',NULL,'Define the MARC biblio fields for Personal Name Authorities to fill biblio.author','free'),
690
('z3950AuthorAuthFields','701,702,700',NULL,'Define the MARC biblio fields for Personal Name Authorities to fill biblio.author','free'),
691
('z3950NormalizeAuthor','0','','If ON, Personal Name Authorities will replace authors in biblio.author','YesNo')
691
('z3950NormalizeAuthor','0','','If ON, Personal Name Authorities will replace authors in biblio.author','YesNo'),
692
( 'GenerateAuthorityField667', 'Machine generated authority record', NULL, 'When BiblioAddsAuthorities and AutoCreateAuthorities are enabled, use this as a default value for the 670$a field', 'free' ),
693
( 'GenerateAuthorityField670', 'Work cat.', NULL, 'When BiblioAddsAuthorities and AutoCreateAuthorities are enabled, use this as a default value for the 670$a field', 'free' )
692
;
694
;
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/authorities.pref (-1 / +12 lines)
Lines 63-68 Authorities: Link Here
63
                  "loose": loose
63
                  "loose": loose
64
                  "strict": strict
64
                  "strict": strict
65
            - mode. In strict mode subfields that are not found in the authority record, are deleted. Loose mode will keep them. Loose mode is the historical behavior and still the default.
65
            - mode. In strict mode subfields that are not found in the authority record, are deleted. Loose mode will keep them. Loose mode is the historical behavior and still the default.
66
        -
67
            - When BiblioAddsAuthorities and AutoCreateAuthorities are enabled, use this as a default value for the 667$a field
68
            - pref: GenerateAuthorityField667
69
              default: "Machine generated authority record"
70
              type: textarea
71
              class: code
72
        -
73
            - When BiblioAddsAuthorities and AutoCreateAuthorities are enabled, use this as a default value for the 670$a field
74
            - pref: GenerateAuthorityField670
75
              default: "Work cat."
76
              type: textarea
77
              class: code
66
78
67
    Linker:
79
    Linker:
68
        -
80
        -
69
- 

Return to bug 13412