@@ -, +, @@ 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 @@ +
  • + + [% IF list.shared %] + + [% ELSE %] + + [% END %] +
  • +
  • Owner: [% loggedinusername %]
  • --- a/koha-tmpl/intranet-tmpl/prog/en/modules/patron_lists/lists.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/patron_lists/lists.tt @@ -32,15 +32,26 @@ Name Patrons in list + Shared   [% FOREACH l IN lists %] + [% SET shared_by_other = l.owner.id != logged_in_user %] [% l.name |html%] [% l.patron_list_patrons_rs.count || 0 %] + + [% IF l.shared %] + [% IF shared_by_other %] + by [% INCLUDE 'patron-title.inc' patron=l.owner %] + [% ELSE %] + by you + [% END %] + [% END %] +