Attachment #140068 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 755-760 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

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

Lines 1383-1388 Circulation: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref (-1 / +8 lines)
1383	- pref: SIP2SortBinMapping	1383	- pref: SIP2SortBinMapping
1384	type: textarea	1384	type: textarea
1385	class: long	1385	class: long
		1386	-
		1387	- Use
		1388	- pref: UseLocationAsAQInSIP
		1389	choices:
		1390	yes: permanent_location
		1391	no: homebranch
		1392	- for AQ field in SIP protocol.
		1393
1386	Curbside pickup module:	1394	Curbside pickup module:
1387	-	1395	-
1388	- pref: CurbsidePickup	1396	- pref: CurbsidePickup
1389	-

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	}