Attachment #158242 for bug #35131

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




use Modern::Perl;

return {
    bug_number => 35131,
    description => "Add preference ShowBarcodeOnPatronRecord",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};
        $dbh->do(q{
INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type` ) VALUES
('ShowBarcodeOnPatronRecord', '0', '|0|Code39|COOP2of5|EAN13|EAN8|IATA2of5|Industrial2of5|ITF|Matrix2of5|NW7|QRcode|UPCA|UPCE', 'Show a patron carnumber as a barcode on the patron record ', 'Choice')
        });
        say $out "Added new system preference 'ShowBarcodeOnPatronRecord'";
    },
};

Lines 685-690 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/mandatory/sysprefs.sql (-1 / +1 lines)
685	('MaxComponentRecords', '300', '','Max number of component records to display','Integer'),	685	('MaxComponentRecords', '300', '','Max number of component records to display','Integer'),
686	('ShowHeadingUse', '0', NULL, 'Show whether authority record contains an established heading that conforms to descriptive cataloguing rules, and can therefore be used as a main/added entry, or subject, or series title', 'YesNo'),	686	('ShowHeadingUse', '0', NULL, 'Show whether authority record contains an established heading that conforms to descriptive cataloguing rules, and can therefore be used as a main/added entry, or subject, or series title', 'YesNo'),
687	('showLastPatron','0','','If ON, enables the last patron feature in the intranet','YesNo'),	687	('showLastPatron','0','','If ON, enables the last patron feature in the intranet','YesNo'),
		688	('ShowBarcodeOnPatronRecord','\|0\|Code39\|COOP2of5\|EAN13\|EAN8\|IATA2of5\|Industrial2of5\|ITF\|Matrix2of5\|NW7\|QRcode\|UPCA\|UPCE','0','Show a patron\'s carnumber as a barcode on the patron record','Choice'),
688	('showLastPatronCount', '10', '', 'How many patrons should showLastPatron remember', 'Integer'),	689	('showLastPatronCount', '10', '', 'How many patrons should showLastPatron remember', 'Integer'),
689	('ShowPatronImageInWebBasedSelfCheck','0','','If ON, displays patron image when a patron uses web-based self-checkout','YesNo'),	690	('ShowPatronImageInWebBasedSelfCheck','0','','If ON, displays patron image when a patron uses web-based self-checkout','YesNo'),
690	('ShowReviewer','full','none\|full\|first\|surname\|firstandinitial\|username','Choose how a commenter\'s identity is presented alongside comments in the OPAC','Choice'),	691	('ShowReviewer','full','none\|full\|first\|surname\|firstandinitial\|username','Choose how a commenter\'s identity is presented alongside comments in the OPAC','Choice'),
691	-

Return to bug 35131

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_35131.pl (+15 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => 35131,
	5	description => "Add preference ShowBarcodeOnPatronRecord",
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out)};
	9	$dbh->do(q{
	10	INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type` ) VALUES
	11	('ShowBarcodeOnPatronRecord', '0', '\|0\|Code39\|COOP2of5\|EAN13\|EAN8\|IATA2of5\|Industrial2of5\|ITF\|Matrix2of5\|NW7\|QRcode\|UPCA\|UPCE', 'Show a patron carnumber as a barcode on the patron record ', 'Choice')
	12	});
	13	say $out "Added new system preference 'ShowBarcodeOnPatronRecord'";
	14	},
	15	};