foreach my $code (@codes) {
foreach my $toBranch (@branchcodes) {
next if $toBranch eq $branchcode;
my $isSet = not $input->param( $code . "_" . $toBranch );
if ($isSet) {
CreateBranchTransferLimit( $toBranch, $branchcode, $code );
use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_success say_info);
return {
bug_number => "41131",
description => "Delete transfer limits that are from a branch to the same branch",
up => sub {
my ($args) = @_;
my ( $dbh, $out ) = @$args{qw(dbh out)};
# Do you stuffs here
$dbh->do(
q{
DELETE FROM branch_transfer_limits WHERE toBranch = fromBranch;
}
);
say $out "Removed nonsensical transfer limits that prevent a branch transferring to itself";
},
};
></td
>
<td>
[% IF ( to_branch_loo.isChecked ) %]
[% IF ( to_branch_loo.toBranch == branchcode ) %]
<input type="checkbox" checked="checked" disabled="disabled" />
[% ELSIF ( to_branch_loo.isChecked ) %]
<input
type="checkbox"
class="cb cb[% codes_loo.code | html %]"
-