From eb6438e8cdd4772a12417280b0e8a27132829214 Mon Sep 17 00:00:00 2001 From: Laura_Escamilla Date: Wed, 17 Sep 2025 19:37:09 +0000 Subject: [PATCH] Bug 35612: Added new AccountLinesBranchSource system preference --- .../data/mysql/atomicupdate/bug_35612.pl | 22 +++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug_35612.pl diff --git a/installer/data/mysql/atomicupdate/bug_35612.pl b/installer/data/mysql/atomicupdate/bug_35612.pl new file mode 100644 index 0000000000..a3ef966291 --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_35612.pl @@ -0,0 +1,22 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); + +return { + bug_number => "35612", + description => "System preference to control which branchcode is recorded in populate accountlines", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + # Do you stuffs here + $dbh->do( + q{INSERT INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('AccountLinesBranchSource', 'circcontrolbranch', 'Choose how the branchcode is recorded in accountlines for overdue and similar charges.', 'patronhomebranch|itemhomebranch|checkoutbranch|circcontrolbranch', 'Choice')} + ); + + # sysprefs + say $out "Added new system preference 'AccountLinesBranchSource'"; + + # Other information + say_success( $out, "System preference added successfully." ); + }, +}; -- 2.39.5