From dc044f79bc53780f4e77a719a1cd829518d363ad Mon Sep 17 00:00:00 2001 From: David Cook Date: Wed, 17 Jun 2015 14:50:14 +1000 Subject: [PATCH] Bug 14393 - Add collection code filter to inventory This patch adds the ability to do inventory by collection. _TEST PLAN_ Before applying: 1) Go to "Tools > Inventory/stocktaking" 2) Note that there is no "Collection code:" option Optionally: 2b) You can create a Barcode file with a single barcode 2c) Don't select anything from "Select items you want to check" (or filter if you know how to filter to make it faster... doesn't matter) 2d) Click "Submit" at the bottom of the screen 2e) Note that there is no "Collection code" column in the screen output or CSV output (ie with/without the "Export to CSV file" box ticked before submitting) Apply the patch. After applying: 3) Note that there is a "Collection code" filter on the main inventory screen 4) Create a Barcode file with a single barcode for an item with a collection and upload it using the "Choose file" button. 5) Select that item's collection code from the "Collection code" filter 6) Click "Submit" 7) Note that the screen output and the CSV output contains a "Collection code" column (ie with/without the "Export to CSV file" box ticked before submitting) --- C4/Items.pm | 8 ++++++- .../prog/en/modules/tools/inventory.tt | 21 +++++++++++++++++ tools/inventory.pl | 27 ++++++++++++++++++---- 3 files changed, 51 insertions(+), 5 deletions(-) diff --git a/C4/Items.pm b/C4/Items.pm index 55bb4bd..7967b79 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -1068,12 +1068,13 @@ sub GetItemsForInventory { my $size = $parameters->{'size'} // ''; my $statushash = $parameters->{'statushash'} // ''; my $interface = $parameters->{'interface'} // ''; + my $ccode = $parameters->{'ccode'} // ''; my $dbh = C4::Context->dbh; my ( @bind_params, @where_strings ); my $select_columns = q{ - SELECT items.itemnumber, barcode, itemcallnumber, title, author, biblio.biblionumber, biblio.frameworkcode, datelastseen, homebranch, location, notforloan, damaged, itemlost, withdrawn, stocknumber + SELECT items.itemnumber, barcode, itemcallnumber, title, author, biblio.biblionumber, biblio.frameworkcode, datelastseen, homebranch, location, notforloan, damaged, itemlost, withdrawn, stocknumber, ccode }; my $select_count = q{SELECT COUNT(*)}; my $query = q{ @@ -1090,6 +1091,11 @@ sub GetItemsForInventory { } } + if ($ccode){ + push @where_strings, 'ccode = ?'; + push @bind_params, $ccode; + } + if ($minlocation) { push @where_strings, 'itemcallnumber >= ?'; push @bind_params, $minlocation; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/inventory.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/inventory.tt index fdac5fa..38cbc90 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/inventory.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/inventory.tt @@ -14,6 +14,7 @@ function checkForm() { if ( !( $('#branchloop').val() || $('#locationloop').val() || + $('#ccodeloop').val() || $('#minlocation').val() || $('#maxlocation').val() || $('#statuses input:checked').length @@ -162,6 +163,21 @@ $(document).ready(function(){ [% END %] [% END %] + [% IF ( ccode_list ) %] +
  • + + +
  • + [% END %]
  • (items.itemcallnumber)
  • @@ -231,6 +247,7 @@ $(document).ready(function(){ + [% UNLESS compareinv2barcd %]
    [Select all] [Clear all]
    @@ -242,6 +259,7 @@ $(document).ready(function(){ [% UNLESS compareinv2barcd %]Seen[% END %] Barcode Library + Collection code Title Status Lost @@ -267,6 +285,9 @@ $(document).ready(function(){ [% result.location | html %] [% IF ( result.itemcallnumber ) %][[% result.itemcallnumber | html %]][% ELSE %][% END %] + [% result.ccode | html %] + +

    [% result.title | html %]

    [% result.author | html %]

    diff --git a/tools/inventory.pl b/tools/inventory.pl index a4bf639..edaed20 100755 --- a/tools/inventory.pl +++ b/tools/inventory.pl @@ -52,6 +52,7 @@ my $branchcode = $input->param('branchcode') || ''; my $branch = $input->param('branch'); my $op = $input->param('op'); my $compareinv2barcd = $input->param('compareinv2barcd'); +my $ccode = $input->param('ccode'); my ( $template, $borrowernumber, $cookie ) = get_template_and_user( { template_name => "tools/inventory.tt", @@ -79,6 +80,9 @@ my $authorisedvalue_categories = ''; my $frameworks = getframeworks(); $frameworks->{''} = {frameworkcode => ''}; # Add the default framework +my @collections = (); +my @collection_codes = (); + for my $fwk (keys %$frameworks){ my $fwkcode = $frameworks->{$fwk}->{'frameworkcode'}; my $authcode = GetAuthValCode('items.location', $fwkcode); @@ -90,7 +94,19 @@ for my $fwk (keys %$frameworks){ } push @authorised_value_list,@$data; } + + my $collection_authorised_value = C4::Koha::GetAuthValCode("items.ccode", $fwkcode); + if ($collection_authorised_value && (! grep { $collection_authorised_value eq $_ } @collection_codes) ) { + #Add authorised value category to array + push (@collection_codes,$collection_authorised_value); + my $collection_values = C4::Koha::GetAuthorisedValues($collection_authorised_value); + if (ref $collection_values eq 'ARRAY' && @$collection_values){ + #Add authorised values to array + push(@collections,@$collection_values); + } + } } +$template->param( ccode_list => \@collections ); my $statuses = []; for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.damaged/){ @@ -138,7 +154,8 @@ $template->param( branch => $branch, datelastseen => $datelastseen, compareinv2barcd => $compareinv2barcd, - notforloanlist => $notforloanlist + notforloanlist => $notforloanlist, + ccode => $ccode, ); my @notforloans; @@ -253,9 +270,10 @@ if ( $markseen or $op ) { size => undef, statushash => $staton, interface => 'staff', + ccode => $ccode, } ); - # For the items that may be marked as "wrong place", we only check the location (callnumbers, location and branch) + # For the items that may be marked as "wrong place", we only check the location (callnumbers, location, ccode and branch) ($wrongplacelist, $totalrecords) = GetItemsForInventory( { minlocation => $minlocation, maxlocation => $maxlocation, @@ -269,6 +287,7 @@ if ( $markseen or $op ) { size => undef, statushash => undef, interface => 'staff', + ccode => $ccode, } ); } @@ -382,7 +401,7 @@ if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){ my @translated_keys; for my $key (qw / biblioitems.title biblio.author items.barcode items.itemnumber - items.homebranch items.location + items.homebranch items.location items.ccode items.itemcallnumber items.notforloan items.itemlost items.damaged items.withdrawn items.stocknumber @@ -394,7 +413,7 @@ if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){ $csv->combine(@translated_keys); print $csv->string, "\n"; - my @keys = qw / title author barcode itemnumber homebranch location itemcallnumber notforloan lost damaged withdrawn stocknumber /; + my @keys = qw / title author barcode itemnumber homebranch location ccode itemcallnumber notforloan lost damaged withdrawn stocknumber /; for my $item ( @results ) { my @line; for my $key (@keys) { -- 2.1.4