Attachment #128517 for bug #29694

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

Lines 2637-2642 sub _koha_marc_update_bib_ids { Link Here

(-)a/C4/Biblio.pm (+5 lines)
2637	} else {	2637	} else {
2638	C4::Biblio::UpsertMarcSubfield($record, $biblioitem_tag, $biblioitem_subfield, $biblioitemnumber);	2638	C4::Biblio::UpsertMarcSubfield($record, $biblioitem_tag, $biblioitem_subfield, $biblioitemnumber);
2639	}	2639	}
		2640
		2641	if (C4::Context->preference('AutoAddSystemControlNumberAndMARCOrgCode')) {
		2642	C4::Biblio::UpsertMarcControlField($record, '001', $biblionumber);
		2643	C4::Biblio::UpsertMarcControlField($record, '003', C4::Context->preference('MARCOrgCode'));
		2644	}
2640	}	2645	}
2641		2646
2642	=head2 _koha_marc_update_biblioitem_cn_sort	2647	=head2 _koha_marc_update_biblioitem_cn_sort




use Modern::Perl;

return {
    bug_number => "29694",
    description => "Add system 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 ('AutoAddSystemControlNumberAndMARCOrgCode', '0', NULL, 'Automatically add biblionumber to 001, and MARCOrgCode to 003', 'YesNo')});
        say $out "System preference AutoAddSystemControlNumberAndMARCOrgCode added";
    },
}

Lines 73-78 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/mandatory/sysprefs.sql (+1 lines)
73	('AuthoritySeparator','--','10','Used to separate a list of authorities in a display. Usually --','free'),	73	('AuthoritySeparator','--','10','Used to separate a list of authorities in a display. Usually --','free'),
74	('AuthSuccessLog','0',NULL,'If enabled, log successful authentications','YesNo'),	74	('AuthSuccessLog','0',NULL,'If enabled, log successful authentications','YesNo'),
75	('autoBarcode','OFF','incremental\|annual\|hbyymmincr\|EAN13\|OFF','Used to autogenerate a barcode: incremental will be of the form 1, 2, 3; annual of the form 2007-0001, 2007-0002; hbyymmincr of the form HB08010001 where HB=Home Branch','Choice'),	75	('autoBarcode','OFF','incremental\|annual\|hbyymmincr\|EAN13\|OFF','Used to autogenerate a barcode: incremental will be of the form 1, 2, 3; annual of the form 2007-0001, 2007-0002; hbyymmincr of the form HB08010001 where HB=Home Branch','Choice'),
		76	('AutoAddSystemControlNumberAndMARCOrgCode', '0', NULL, 'Automatically add biblionumber to 001, and MARCOrgCode to 003', 'YesNo'),
76	('AutoCreateAuthorities','0',NULL,'Automatically create authorities that do not exist when cataloging records.','YesNo'),	77	('AutoCreateAuthorities','0',NULL,'Automatically create authorities that do not exist when cataloging records.','YesNo'),
77	('AutoCreditNumber', '', '', 'Automatically generate a number for account credits', 'Choice'),	78	('AutoCreditNumber', '', '', 'Automatically generate a number for account credits', 'Choice'),
78	('AutoEmailOpacUser','0',NULL,'Sends notification emails containing new account details to patrons - when account is created.','YesNo'),	79	('AutoEmailOpacUser','0',NULL,'Sends notification emails containing new account details to patrons - when account is created.','YesNo'),

Lines 158-163 Cataloging: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref (-1 / +6 lines)
158	- and record's last modifier name in MARC subfield	158	- and record's last modifier name in MARC subfield
159	- pref: MarcFieldForModifierName	159	- pref: MarcFieldForModifierName
160	- ". <br/><strong>NOTE:</strong> Use a dollar sign between field and subfield like 123$a."	160	- ". <br/><strong>NOTE:</strong> Use a dollar sign between field and subfield like 123$a."
		161	-
		162	- pref: AutoAddSystemControlNumberAndMARCOrgCode
		163	choices:
		164	1: Add
		165	0: Do not add
		166	- System-Control-Number (001) and Control-Number-Identifier (003) automatically from biblionumber and MARCOrgCode.
161	Display:	167	Display:
162	-	168	-
163	- 'Separate main entry and subdivisions with '	169	- 'Separate main entry and subdivisions with '
164	-

Return to bug 29694

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/auto-add-001-syspref.pl (+12 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "29694",
	5	description => "Add system preference",
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out)};
	9	$dbh->do(q{INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('AutoAddSystemControlNumberAndMARCOrgCode', '0', NULL, 'Automatically add biblionumber to 001, and MARCOrgCode to 003', 'YesNo')});
	10	say $out "System preference AutoAddSystemControlNumberAndMARCOrgCode added";
	11	},
	12	}