Attachment #170488 for bug #27063

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

Lines 536-541 $template->param( Link Here

(-)a/acqui/neworderempty.pl (+1 lines)
536	users => \@order_users,	536	users => \@order_users,
537	( uc( C4::Context->preference("marcflavour") ) ) => 1,	537	( uc( C4::Context->preference("marcflavour") ) ) => 1,
538	estimated_delivery_date => $data->{estimated_delivery_date},	538	estimated_delivery_date => $data->{estimated_delivery_date},
		539	relink_invoiceid => ( C4::Context->preference('KeepInvoiceOnOrderRelink') and $input->param("relink") ) ? $data->{invoiceid} : undef,
539	);	540	);
540		541
541	output_html_with_http_headers $input, $cookie, $template->output;	542	output_html_with_http_headers $input, $cookie, $template->output;




use Modern::Perl;

return {
    bug_number  => "27063",
    description => "Allow changing which record an order is linked to",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

        $dbh->do(
            q{ INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('KeepInvoiceOnOrderRelink', '0', NULL, 'Keep or empty the invoice when an order is relinked in Acquisitions', 'YesNo') }
        );

        say $out "Added system preference 'KeepInvoiceOnOrderRelink'";
    },
};

Lines 358-363 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/mandatory/sysprefs.sql (+1 lines)
358	('itemBarcodeInputFilter','','whitespace\|T-prefix\|cuecat\|libsuite8\|EAN13','If set, allows specification of a item barcode input filter','Choice'),	358	('itemBarcodeInputFilter','','whitespace\|T-prefix\|cuecat\|libsuite8\|EAN13','If set, allows specification of a item barcode input filter','Choice'),
359	('itemcallnumber','',NULL,'The MARC field/subfield that is used to calculate the itemcallnumber (Dewey would be 082ab or 092ab; LOC would be 050ab or 090ab) could be 852hi from an item record','free'),	359	('itemcallnumber','',NULL,'The MARC field/subfield that is used to calculate the itemcallnumber (Dewey would be 082ab or 092ab; LOC would be 050ab or 090ab) could be 852hi from an item record','free'),
360	('ItemsDeniedRenewal','','','This syspref allows to define custom rules for denying renewal of specific items.','Textarea'),	360	('ItemsDeniedRenewal','','','This syspref allows to define custom rules for denying renewal of specific items.','Textarea'),
		361	('KeepInvoiceOnOrderRelink', '0', NULL, 'Keep or empty the invoice when an order is relinked in Acquisitions', 'YesNo'),
361	('KohaAdminEmailAddress','root@localhost','','Define the email address where patron modification requests are sent','free'),	362	('KohaAdminEmailAddress','root@localhost','','Define the email address where patron modification requests are sent','free'),
362	('KohaManualBaseURL','https://koha-community.org/manual/','','Where is the Koha manual/documentation located?','Free'),	363	('KohaManualBaseURL','https://koha-community.org/manual/','','Where is the Koha manual/documentation located?','Free'),
363	('KohaManualLanguage','en','en\|ar\|cs\|de\|es\|fr\|it\|pt_BR\|tr\|zh_TW','What is the language of the online manual you want to use?','Choice'),	364	('KohaManualLanguage','en','en\|ar\|cs\|de\|es\|fr\|it\|pt_BR\|tr\|zh_TW','What is the language of the online manual you want to use?','Choice'),

Lines 356-361 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/neworderempty.tt (+3 lines)
356	<input type="hidden" name="invoiceincgst" id="invoiceincgst" value="[% invoiceincgst \| html %]" />	356	<input type="hidden" name="invoiceincgst" id="invoiceincgst" value="[% invoiceincgst \| html %]" />
357	<input type="hidden" name="suggestionid" value="[% suggestionid \| html %]" />	357	<input type="hidden" name="suggestionid" value="[% suggestionid \| html %]" />
358	<input type="hidden" name="import_batch_id" value="[% import_batch_id \| html %]" />	358	<input type="hidden" name="import_batch_id" value="[% import_batch_id \| html %]" />
		359	[% IF relink_invoiceid %]
		360	<input type="hidden" name="invoiceid" id="invoiceid" value="[% relink_invoiceid \| html %]" />
		361	[% END %]
359		362
360	[% FOREACH c IN currencies %]	363	[% FOREACH c IN currencies %]
361	<input type="hidden" id="currency_rate_[% c.currency \| html %]" name="[% c.currency \| html %]" value="[% c.rate \| html %]" />	364	<input type="hidden" id="currency_rate_[% c.currency \| html %]" name="[% c.currency \| html %]" value="[% c.rate \| html %]" />

Lines 138-143 Acquisitions: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/acquisitions.pref (-1 / +7 lines)
138	class: email	138	class: email
139	- 'when sending acquisitions order and claim notices.'	139	- 'when sending acquisitions order and claim notices.'
140	- '<br>If left empty, it will fall back to the first defined address in the following list: library reply-to, library email, <a href="/cgi-bin/koha/admin/preferences.pl?op=search&searchfield=ReplytoDefault">ReplytoDefault</a>, <a href="/cgi-bin/koha/admin/preferences.pl?op=search&searchfield=KohaAdminEmailAddress">KohaAdminEmailAddress</a>.'	140	- '<br>If left empty, it will fall back to the first defined address in the following list: library reply-to, library email, <a href="/cgi-bin/koha/admin/preferences.pl?op=search&searchfield=ReplytoDefault">ReplytoDefault</a>, <a href="/cgi-bin/koha/admin/preferences.pl?op=search&searchfield=KohaAdminEmailAddress">KohaAdminEmailAddress</a>.'
		141	-
		142	- pref: KeepInvoiceOnOrderRelink
		143	default: no
		144	choices:
		145	1: "Keep"
		146	0: "Do not keep"
		147	- " a link to the invoice when an order is relinked."
141	Printing:	148	Printing:
142	-	149	-
143	- Use the	150	- Use the
144	-

Return to bug 27063

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_27063_-_KeepInvoiceOnOrderRelink_syspref.pl (+16 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "27063",
	5	description => "Allow changing which record an order is linked to",
	6	up => sub {
	7	my ($args) = @_;
	8	my ( $dbh, $out ) = @$args{qw(dbh out)};
	9
	10	$dbh->do(
	11	q{ INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('KeepInvoiceOnOrderRelink', '0', NULL, 'Keep or empty the invoice when an order is relinked in Acquisitions', 'YesNo') }
	12	);
	13
	14	say $out "Added system preference 'KeepInvoiceOnOrderRelink'";
	15	},
	16	};