- 

use Modern::Perl;

return {

    bug_number  => "14783",

    description => "Allow patrons to change pickup location for non-waiting holds",

    up => sub {

        my ($args) = @_;

        my ($dbh, $out) = @$args{qw(dbh out)};

        $dbh->do(q{

            INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type)

            VALUES ('OPACAllowUserToChangeBranch','','Pending, In-Transit, Suspended','Allow users to change the library to pick up a hold for these statuses:','multiple');

        });

        $dbh->do(q{

            UPDATE systempreferences SET value = (SELECT CASE WHEN value = 1 THEN 'intransit' ELSE '' END

            FROM systempreferences

            WHERE variable = 'OPACInTransitHoldPickupLocationChange')

        });

        say $out "Added new system preference 'OPACAllowUserToChangeBranch'";

        $dbh->do(q{

            DELETE FROM systempreferences

            WHERE variable = 'OPACInTransitHoldPickupLocationChange'

        });

        say $out "Removed system preference 'OPACInTransitHoldPickupLocationChange'";

    },

};