Attachment #174865 for bug #38494

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




use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_success say_info);

return {
    bug_number  => "38494",
    description => "Add `ConsiderHeadingUse` preference",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

        $dbh->do(
q{INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('ConsiderHeadingUse', '0', NULL, 'Consider authority heading use (main/added entry, or subject, or series title) in cataloging and linking', 'YesNo')}
        );

        say_success( $out, "Added system preference 'ConsiderHeadingUse'" );
    },
};

Lines 172-177 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/mandatory/sysprefs.sql (+1 lines)
172	('ComponentSortField','title','call_number\|pubdate\|acqdate\|title\|author','Specify the default field used for sorting','Choice'),	172	('ComponentSortField','title','call_number\|pubdate\|acqdate\|title\|author','Specify the default field used for sorting','Choice'),
173	('ComponentSortOrder','asc','asc\|dsc\|az\|za','Specify the default sort order','Choice'),	173	('ComponentSortOrder','asc','asc\|dsc\|az\|za','Specify the default sort order','Choice'),
174	('ConfirmFutureHolds','0','','Number of days for confirming future holds','Integer'),	174	('ConfirmFutureHolds','0','','Number of days for confirming future holds','Integer'),
		175	('ConsiderHeadingUse', '0', NULL, 'Consider authority heading use (main/added entry, or subject, or series title) in cataloging and linking', 'YesNo'),
175	('ConsiderLibraryHoursInCirculation', 'close', 'close\|open\|ignore', "Take library opening hours into consideration to calculate due date when circulating.", 'Choice'),	176	('ConsiderLibraryHoursInCirculation', 'close', 'close\|open\|ignore', "Take library opening hours into consideration to calculate due date when circulating.", 'Choice'),
176	('ConsiderOnSiteCheckoutsAsNormalCheckouts','1',NULL,'Consider on-site checkouts as normal checkouts','YesNo'),	177	('ConsiderOnSiteCheckoutsAsNormalCheckouts','1',NULL,'Consider on-site checkouts as normal checkouts','YesNo'),
177	('ContentWarningField', '', NULL, 'MARC field to use for content warnings', 'Free'),	178	('ContentWarningField', '', NULL, 'MARC field to use for content warnings', 'Free'),

Lines 95-100 Authorities: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/authorities.pref (-1 / +7 lines)
95	- Display the MARC field/subfields	95	- Display the MARC field/subfields
96	- pref: AdditionalFieldsInZ3950ResultAuthSearch	96	- pref: AdditionalFieldsInZ3950ResultAuthSearch
97	- " in the 'Additional fields' column of Z39.50 search results (use comma as delimiter e.g.: \"<code>001, 035$a</code>\")"	97	- " in the 'Additional fields' column of Z39.50 search results (use comma as delimiter e.g.: \"<code>001, 035$a</code>\")"
		98	-
		99	- pref: ConsiderHeadingUse
		100	default: no
		101	choices:
		102	1: Do
		103	0: "Don't"
		104	- consider the intended use of authority records (008/14-16) during cataloging and linking.
98		105
99	Linker:	106	Linker:
100	-	107	-
101	-

Return to bug 38494

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_38494-ConsiderHeadingUse_syspref.pl (+17 lines)
	1	use Modern::Perl;
	2	use Koha::Installer::Output qw(say_warning say_success say_info);
	3
	4	return {
	5	bug_number => "38494",
	6	description => "Add `ConsiderHeadingUse` preference",
	7	up => sub {
	8	my ($args) = @_;
	9	my ( $dbh, $out ) = @$args{qw(dbh out)};
	10
	11	$dbh->do(
	12	q{INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('ConsiderHeadingUse', '0', NULL, 'Consider authority heading use (main/added entry, or subject, or series title) in cataloging and linking', 'YesNo')}
	13	);
	14
	15	say_success( $out, "Added system preference 'ConsiderHeadingUse'" );
	16	},
	17	};