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

(-)a/C4/Biblio.pm (-2 / +2 lines)
Lines 577-583 sub LinkBibHeadingsToAuthorities { Link Here
577
                        $marcrecordauth->insert_fields_ordered(
577
                        $marcrecordauth->insert_fields_ordered(
578
                            MARC::Field->new(
578
                            MARC::Field->new(
579
                                '667', '', '',
579
                                '667', '', '',
580
                                'a' => "Machine generated authority record."
580
                                'a' => C4::Context->preference('GenerateAuthorityField667')
581
                            )
581
                            )
582
                        );
582
                        );
583
                        my $cite =
583
                        my $cite =
Lines 587-593 sub LinkBibHeadingsToAuthorities { Link Here
587
                        $cite =~ s/^[\s\,]*//;
587
                        $cite =~ s/^[\s\,]*//;
588
                        $cite =~ s/[\s\,]*$//;
588
                        $cite =~ s/[\s\,]*$//;
589
                        $cite =
589
                        $cite =
590
                            "Work cat.: ("
590
                            C4::Context->preference('GenerateAuthorityField670') . ": ("
591
                          . ( $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode') ) . ")"
591
                          . ( $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode') ) . ")"
592
                          . $bib->subfield( '999', 'c' ) . ": "
592
                          . $bib->subfield( '999', 'c' ) . ": "
593
                          . $cite;
593
                          . $cite;
(-)a/installer/data/mysql/atomicupdate/bug_13412-add_GenerateAuthorityField_syspref.sql (+4 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' )
4
(-)a/installer/data/mysql/sysprefs.sql (-1 / +3 lines)
Lines 602-606 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here
602
('XSLTListsDisplay','default','','Enable XSLT stylesheet control over lists pages display on intranet','Free'),
602
('XSLTListsDisplay','default','','Enable XSLT stylesheet control over lists pages display on intranet','Free'),
603
('XSLTResultsDisplay','default','','Enable XSL stylesheet control over results page display on intranet','Free'),
603
('XSLTResultsDisplay','default','','Enable XSL stylesheet control over results page display on intranet','Free'),
604
('z3950AuthorAuthFields','701,702,700',NULL,'Define the MARC biblio fields for Personal Name Authorities to fill biblio.author','free'),
604
('z3950AuthorAuthFields','701,702,700',NULL,'Define the MARC biblio fields for Personal Name Authorities to fill biblio.author','free'),
605
('z3950NormalizeAuthor','0','','If ON, Personal Name Authorities will replace authors in biblio.author','YesNo')
605
('z3950NormalizeAuthor','0','','If ON, Personal Name Authorities will replace authors in biblio.author','YesNo'),
606
( 'GenerateAuthorityField667', 'Machine generated authority record', NULL, 'When BiblioAddsAuthorities and AutoCreateAuthorities are enabled, use this as a default value for the 670$a field', 'free' ),
607
( 'GenerateAuthorityField670', 'Work cat.', NULL, 'When BiblioAddsAuthorities and AutoCreateAuthorities are enabled, use this as a default value for the 670$a field', 'free' )
606
;
608
;
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/authorities.pref (-1 / +12 lines)
Lines 55-60 Authorities: Link Here
55
                  "loose": loose
55
                  "loose": loose
56
                  "strict": strict
56
                  "strict": strict
57
            - 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.
57
            - 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.
58
        -
59
            - When BiblioAddsAuthorities and AutoCreateAuthorities are enabled, use this as a default value for the 667$a field
60
            - pref: GenerateAuthorityField667
61
              default: "Machine generated authority record"
62
              type: textarea
63
              class: code
64
        -
65
            - When BiblioAddsAuthorities and AutoCreateAuthorities are enabled, use this as a default value for the 670$a field
66
            - pref: GenerateAuthorityField670
67
              default: "Work cat."
68
              type: textarea
69
              class: code
58
70
59
    Linker:
71
    Linker:
60
        -
72
        -
61
- 

Return to bug 13412