Attachment #73776 for bug #14769

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




$DBversion = 'XXX';  # will be replaced by the RM
if( CheckVersion( $DBversion ) ) {
    my $pref =
q|# PERSO_NAME  100 600 696 700 796 800 896
marc21, 100, ind1:auth1
marc21, 600, ind1:auth1, ind2:thesaurus
marc21, 696, ind1:auth1
marc21, 700, ind1:auth1
marc21, 796, ind1:auth1
marc21, 800, ind1:auth1
marc21, 896, ind1:auth1
# CORPO_NAME  110 610 697 710 797 810 897
marc21, 110, ind1:auth1
marc21, 610, ind1:auth1, ind2:thesaurus
marc21, 697, ind1:auth1
marc21, 710, ind1:auth1
marc21, 797, ind1:auth1
marc21, 810, ind1:auth1
marc21, 897, ind1:auth1
# MEETI_NAME    111 611 698 711 798 811 898
marc21, 111, ind1:auth1
marc21, 611, ind1:auth1, ind2:thesaurus
marc21, 698, ind1:auth1
marc21, 711, ind1:auth1
marc21, 798, ind1:auth1
marc21, 811, ind1:auth1
marc21, 898, ind1:auth1
# UNIF_TITLE        130 440 630 699 730 799 830 899 / 240
marc21, 130, ind1:auth2
marc21, 240, , ind2:auth2
marc21, 440, , ind2:auth2
marc21, 630, ind1:auth2, ind2:thesaurus
marc21, 699, ind1:auth2
marc21, 730, ind1:auth2
marc21, 799, ind1:auth2
marc21, 830, , ind2:auth2
marc21, 899, ind1:auth2
# CHRON_TERM    648
marc21, 648, , ind2:thesaurus
# TOPIC_TERM      650 654 656 657 658 690
marc21, 650, , ind2:thesaurus
# GEOGR_NAME   651 662 691 / 751
marc21, 651, , ind2:thesaurus
# GENRE/FORM    655
marc21, 655, , ind2:thesaurus

# UNIMARC: Always copy the indicators from the authority
unimarc, *, ind1:auth1, ind2:auth2|;

    $dbh->do( qq|
INSERT IGNORE INTO systempreferences ( value, variable, options, explanation, type ) VALUES ( ?, 'AuthorityControlledIndicators', NULL, 'Authority controlled indicators per biblio field', 'Free' );
    |, undef, $pref );

    SetVersion( $DBversion );
    print "Upgrade to $DBversion done (Bug 14769: Authorities merge: Set correct indicators in biblio field)\n";
}

Lines 53-58 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
53	('AudioAlerts','0','','Enable circulation sounds during checkin and checkout in the staff interface. Not supported by all web browsers yet.','YesNo'),	53	('AudioAlerts','0','','Enable circulation sounds during checkin and checkout in the staff interface. Not supported by all web browsers yet.','YesNo'),
54	('AuthDisplayHierarchy','0','','Display authority hierarchies','YesNo'),	54	('AuthDisplayHierarchy','0','','Display authority hierarchies','YesNo'),
55	('AuthoritiesLog','1',NULL,'If ON, log edit/create/delete actions on authorities.','YesNo'),	55	('AuthoritiesLog','1',NULL,'If ON, log edit/create/delete actions on authorities.','YesNo'),
		56	('AuthorityControlledIndicators','# PERSO_NAME 100 600 696 700 796 800 896\nmarc21, 100, ind1:auth1\nmarc21, 600, ind1:auth1, ind2:thesaurus\nmarc21, 696, ind1:auth1\nmarc21, 700, ind1:auth1\nmarc21, 796, ind1:auth1\nmarc21, 800, ind1:auth1\nmarc21, 896, ind1:auth1\n# CORPO_NAME 110 610 697 710 797 810 897\nmarc21, 110, ind1:auth1\nmarc21, 610, ind1:auth1, ind2:thesaurus\nmarc21, 697, ind1:auth1\nmarc21, 710, ind1:auth1\nmarc21, 797, ind1:auth1\nmarc21, 810, ind1:auth1\nmarc21, 897, ind1:auth1\n# MEETI_NAME 111 611 698 711 798 811 898\nmarc21, 111, ind1:auth1\nmarc21, 611, ind1:auth1, ind2:thesaurus\nmarc21, 698, ind1:auth1\nmarc21, 711, ind1:auth1\nmarc21, 798, ind1:auth1\nmarc21, 811, ind1:auth1\nmarc21, 898, ind1:auth1\n# UNIF_TITLE 130 440 630 699 730 799 830 899\nmarc21, 130, ind1:auth2\nmarc21, 240, , ind2:auth2\nmarc21, 440, , ind2:auth2\nmarc21, 630, ind1:auth2, ind2:thesaurus\nmarc21, 699, ind1:auth2\nmarc21, 730, ind1:auth2\nmarc21, 799, ind1:auth2\nmarc21, 830, , ind2:auth2\nmarc21, 899, ind1:auth2\n# CHRON_TERM 648 \nmarc21, 648, , ind2:thesaurus\n# TOPIC_TERM 650 654 656 657 658 690\nmarc21, 650, , ind2:thesaurus\n# GEOGR_NAME 651 662 691\nmarc21, 651, , ind2:thesaurus\n# GENRE/FORM 655 \nmarc21, 655, , ind2:thesaurus\n\n# UNIMARC: Always copy the indicators from the authority\nunimarc, *, ind1:auth1, ind2:auth2',NULL,'Authority controlled indicators per biblio field','Free'),
56	('AuthorityMergeLimit','50',NULL,'Maximum number of biblio records updated immediately when an authority record has been modified.','integer'),	57	('AuthorityMergeLimit','50',NULL,'Maximum number of biblio records updated immediately when an authority record has been modified.','integer'),
57	('AuthorityMergeMode','loose','loose\|strict','Authority merge mode','Choice'),	58	('AuthorityMergeMode','loose','loose\|strict','Authority merge mode','Choice'),
58	('AuthoritySeparator','--','10','Used to separate a list of authorities in a display. Usually --','free'),	59	('AuthoritySeparator','--','10','Used to separate a list of authorities in a display. Usually --','free'),

Lines 8-13 Authorities: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/authorities.pref (-1 / +7 lines)
8	no: "Don't display"	8	no: "Don't display"
9	- broader term/narrower term hierarchies when viewing authorities.	9	- broader term/narrower term hierarchies when viewing authorities.
10	-	10	-
		11	- Use the following text to edit how authority records control indicators of attached biblio fields (and possibly subfield $2).<br>
		12	- "Lines starting with a comment symbol (#) are skipped. Each line should be of the form: (marc21\|unimarc), tag, ind1:(auth1\|auth2\|some_value), ind2:(auth1\|auth2\|thesaurus\|some_value).<br>"
		13	- Here auth1 and auth2 refer to the indicators of the authority record, tag is a biblio field number or an asterisk (*), and some_value is a fixed value (one character).<br>
		14	- The MARC21 option thesaurus refers to indicators controlled by authority field 008/11 and 040$f.
		15	- pref: AuthorityControlledIndicators
		16	type: textarea
		17	-
11	- When editing records,	18	- When editing records,
12	- pref: BiblioAddsAuthorities	19	- pref: BiblioAddsAuthorities
13	default: no	20	default: no
14	-

Return to bug 14769

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_14769.perl (+56 lines)
	1	$DBversion = 'XXX'; # will be replaced by the RM
	2	if( CheckVersion( $DBversion ) ) {
	3	my $pref =
	4	q\|# PERSO_NAME 100 600 696 700 796 800 896
	5	marc21, 100, ind1:auth1
	6	marc21, 600, ind1:auth1, ind2:thesaurus
	7	marc21, 696, ind1:auth1
	8	marc21, 700, ind1:auth1
	9	marc21, 796, ind1:auth1
	10	marc21, 800, ind1:auth1
	11	marc21, 896, ind1:auth1
	12	# CORPO_NAME 110 610 697 710 797 810 897
	13	marc21, 110, ind1:auth1
	14	marc21, 610, ind1:auth1, ind2:thesaurus
	15	marc21, 697, ind1:auth1
	16	marc21, 710, ind1:auth1
	17	marc21, 797, ind1:auth1
	18	marc21, 810, ind1:auth1
	19	marc21, 897, ind1:auth1
	20	# MEETI_NAME 111 611 698 711 798 811 898
	21	marc21, 111, ind1:auth1
	22	marc21, 611, ind1:auth1, ind2:thesaurus
	23	marc21, 698, ind1:auth1
	24	marc21, 711, ind1:auth1
	25	marc21, 798, ind1:auth1
	26	marc21, 811, ind1:auth1
	27	marc21, 898, ind1:auth1
	28	# UNIF_TITLE 130 440 630 699 730 799 830 899 / 240
	29	marc21, 130, ind1:auth2
	30	marc21, 240, , ind2:auth2
	31	marc21, 440, , ind2:auth2
	32	marc21, 630, ind1:auth2, ind2:thesaurus
	33	marc21, 699, ind1:auth2
	34	marc21, 730, ind1:auth2
	35	marc21, 799, ind1:auth2
	36	marc21, 830, , ind2:auth2
	37	marc21, 899, ind1:auth2
	38	# CHRON_TERM 648
	39	marc21, 648, , ind2:thesaurus
	40	# TOPIC_TERM 650 654 656 657 658 690
	41	marc21, 650, , ind2:thesaurus
	42	# GEOGR_NAME 651 662 691 / 751
	43	marc21, 651, , ind2:thesaurus
	44	# GENRE/FORM 655
	45	marc21, 655, , ind2:thesaurus
	46
	47	# UNIMARC: Always copy the indicators from the authority
	48	unimarc, *, ind1:auth1, ind2:auth2\|;
	49
	50	$dbh->do( qq\|
	51	INSERT IGNORE INTO systempreferences ( value, variable, options, explanation, type ) VALUES ( ?, 'AuthorityControlledIndicators', NULL, 'Authority controlled indicators per biblio field', 'Free' );
	52	\|, undef, $pref );
	53
	54	SetVersion( $DBversion );
	55	print "Upgrade to $DBversion done (Bug 14769: Authorities merge: Set correct indicators in biblio field)\n";
	56	}