Attachment #138925 for bug #20058

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

Lines 84-90 sub new { Link Here

(-)a/C4/SIP/ILS/Item.pm (-1 / +5 lines)
84	my $self = $item->unblessed;	84	my $self = $item->unblessed;
85	$self->{_object} = $item;	85	$self->{_object} = $item;
86	$self->{id} = $item->barcode; # to SIP, the barcode IS the id.	86	$self->{id} = $item->barcode; # to SIP, the barcode IS the id.
87	$self->{permanent_location} = $item->homebranch;	87	if (C4::Context->preference('UseLocationAsAQInSIP')) {
		88	$self->{permanent_location} = $item->permanent_location;
		89	} else {
		90	$self->{permanent_location} = $item->homebranch;
		91	}
88	$self->{collection_code} = $item->ccode;	92	$self->{collection_code} = $item->ccode;
89	$self->{call_number} = $item->itemcallnumber;	93	$self->{call_number} = $item->itemcallnumber;
90	$self->{'shelving_location'} = $item->location;	94	$self->{'shelving_location'} = $item->location;




use Modern::Perl;

return {
    bug_number => "20058",
    description => "Option to use shelving location instead of homebranch for sorting",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};
        $dbh->do(q{INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES
('UseLocationAsAQInSIP', '0', '', 'Use permanent_location instead of homebranch for AQ in SIP response', 'YesNo')});
        say $out "Syspref UseLocationAsAQInSIP has been added";
    },
}

Lines 753-758 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/mandatory/sysprefs.sql (+1 lines)
753	('useDischarge','0','','Allows librarians to discharge borrowers and borrowers to request a discharge','YesNo'),	753	('useDischarge','0','','Allows librarians to discharge borrowers and borrowers to request a discharge','YesNo'),
754	('UseEmailReceipts','0','','Send email receipts for payments and write-offs','YesNo'),	754	('UseEmailReceipts','0','','Send email receipts for payments and write-offs','YesNo'),
755	('UseICUStyleQuotes','0','1','Tell Koha whether to use ICU style quotes ({) or default (") when tracing subjects .','YesNo'),	755	('UseICUStyleQuotes','0','1','Tell Koha whether to use ICU style quotes ({) or default (") when tracing subjects .','YesNo'),
		756	('UseLocationAsAQInSIP', '0', '', 'Use permanent_location instead of homebranch for AQ in SIP response', 'YesNo'),
756	('UseRecalls','0',NULL,'Enable or disable recalls','YesNo'),	757	('UseRecalls','0',NULL,'Enable or disable recalls','YesNo'),
757	('UseTransportCostMatrix','0','','Use Transport Cost Matrix when filling holds','YesNo'),	758	('UseTransportCostMatrix','0','','Use Transport Cost Matrix when filling holds','YesNo'),
758	('UseWYSIWYGinSystemPreferences','0','','Show WYSIWYG editor when editing certain HTML system preferences.','YesNo'),	759	('UseWYSIWYGinSystemPreferences','0','','Show WYSIWYG editor when editing certain HTML system preferences.','YesNo'),

Lines 1376-1381 Circulation: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref (-1 / +8 lines)
1376	- pref: SIP2SortBinMapping	1376	- pref: SIP2SortBinMapping
1377	type: textarea	1377	type: textarea
1378	class: long	1378	class: long
		1379	-
		1380	- Use
		1381	- pref: UseLocationAsAQInSIP
		1382	choices:
		1383	yes: permanent_location
		1384	no: homebranch
		1385	- for AQ field in SIP protocol.
		1386
1379	Curbside pickup module:	1387	Curbside pickup module:
1380	-	1388	-
1381	- pref: CurbsidePickup	1389	- pref: CurbsidePickup
1382	-

Return to bug 20058

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_20058_add_UseLocationAsAQInSIP_syspref.pl (+13 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "20058",
	5	description => "Option to use shelving location instead of homebranch for sorting",
	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
	10	('UseLocationAsAQInSIP', '0', '', 'Use permanent_location instead of homebranch for AQ in SIP response', 'YesNo')});
	11	say $out "Syspref UseLocationAsAQInSIP has been added";
	12	},
	13	}