use Modern::Perl;

use Modern::Perl;

use C4::Context;

use C4::Context;

use DateTime;

use DateTime;

use Date::Calc qw(:all);

use Date::Calc qw(:all);

    my $flags = C4::Context->userenv->{flags};

    my $flags = C4::Context->userenv->{flags};

    $userid ||= C4::Context->userenv->{'id'};

    $userid ||= C4::Context->userenv->{'id'};

    if ( C4::Context->preference('IndependentBranches') ) {

    if ( C4::Context->preference('IndependentBranches') ) {

        return 1

        return 1

          if C4::Context->IsSuperLibrarian()

          if C4::Context->IsSuperLibrarian()

use Carp;

use Carp;

use Koha::Patrons;

use Koha::Patrons;

use Koha::Database;

use Koha::Database;

use Koha::DateUtils qw( dt_from_string );

use Koha::DateUtils qw( dt_from_string );

    my $patron = Koha::Patrons->find( $borrowernumber );

    my $patron = Koha::Patrons->find( $borrowernumber );

    return 1 if $self->category == $PUBLIC and C4::Auth::haspermission( $patron->userid, { lists => 'delete_public_lists' } );

    return 1 if $self->category == $PUBLIC and C4::Auth::haspermission( $patron->userid, { lists => 'delete_public_lists' } );

    return 0;

    return 0;