@@ -, +, @@ shared the shared list owned by the first patron --- Koha/List/Patron.pm | 10 ++++++- .../prog/en/modules/patron_lists/add-modify.tt | 9 +++++++ .../prog/en/modules/patron_lists/lists.tt | 17 ++++++++++-- patron_lists/add-modify.pl | 5 ++-- patron_lists/lists.pl | 5 +++- t/db_dependent/PatronLists.t | 31 ++++++++++++++-------- 6 files changed, 60 insertions(+), 17 deletions(-) --- a/Koha/List/Patron.pm +++ a/Koha/List/Patron.pm @@ -63,7 +63,15 @@ sub GetPatronLists { return; } - delete( $params->{owner} ) if ( C4::Context->IsSuperLibrarian() ); + delete $params->{owner} if C4::Context->IsSuperLibrarian(); + + if ( my $owner = $params->{owner} ) { + delete $params->{owner}; + $params->{'-or'} = [ + owner => $owner, + shared => 1, + ]; + } my $schema = Koha::Database->new()->schema(); --- a/koha-tmpl/intranet-tmpl/prog/en/modules/patron_lists/add-modify.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/patron_lists/add-modify.tt @@ -50,6 +50,15 @@ +