Bug 8521 - Error in warning message when deleting list

When deleting a list the operation is blocked if there are items still
on the list, and the interface shows a warning which includes a count of
the items on the list. This count is broken for lists containing more
items than the number specified in the numSearchResults system
preference.

This patch corrects the item count to use an actual count of the total
number of results, not the total number of results in the first page of
results.

The template change to the staff client copies some language logic from
the OPAC template for dealing with a single number of list entries.

Test in both the OPAC and the staff client.

Check the number specified in the numSearchResults system preference and
locate or create a list containing more than that number of items. Try
to delete the list. You should receive a warning message stating the
correct total number of items on the list.

Test also with a list which contains fewer than numSearchResults
entries, and a list which contains zero entries.

Signed-off-by: Ian Beardslee <ian@catalyst.net.nz>

Tested Public and Private lists with 0, 5 & 25 entries, Public with 40 and Private with 45.  Working as expected.

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Works as described, passes tests and QA script.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

C4/VirtualShelves/Page.pm

@@ -384,13 +384,13 @@ sub shelfpage {
                 }
                 my $contents;
                 ( $contents, $totshelves ) = GetShelfContents( $number, $shelveslimit, $shelvesoffset );
-                if ( my $count = scalar @$contents ) {
+                if ( $totshelves > 0 ) {
                     unless ( scalar grep { /^CONFIRM-$number$/ } $query->param() ) {
                         if ( defined $shelflist->{$number} ) {
-                            push( @paramsloop, { need_confirm => $shelflist->{$number}->{shelfname}, count => $count, single => ($count eq 1 ? 1:0) } );
+                            push( @paramsloop, { need_confirm => $shelflist->{$number}->{shelfname}, count => $totshelves, single => ($totshelves eq 1 ? 1:0) } );
                             $shelflist->{$number}->{confirm} = $number;
                         } else {
-                            push( @paramsloop, { need_confirm => $privshelflist->{$number}->{shelfname}, count => $count } );
+                            push( @paramsloop, { need_confirm => $privshelflist->{$number}->{shelfname}, count => $totshelves } );
                             $privshelflist->{$number}->{confirm} = $number;
                         }
                         $stay = 0;

koha-tmpl/intranet-tmpl/prog/en/modules/virtualshelves/shelves.tt

@@ -234,7 +234,11 @@ function placeHold () {
         [% IF ( paramsloo.noshelfnumber ) %]<div class="dialog alert">ERROR: No list number given.</div>[% END %]
 		[% IF ( paramsloo.need_confirm ) %]
 		<div class="dialog alert">The list <i>[% paramsloo.need_confirm %]</i> is not empty.
-			<br />It has <b>[% paramsloo.count %]</b> entries.
+            [% IF ( paramsloo.single ) %]
+                <br />It has <b>[% paramsloo.count %]</b> entry.
+            [% ELSE %]
+                <br />It has <b>[% paramsloo.count %]</b> entries.
+            [% END %]
 			<br />Use the "Confirm" button below to confirm deletion.
 		</div>
 		[% END %]