X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=tools%2Finventory.pl;h=5e7b198af70caebddbd4908de937e1bf84a45308;hb=306dc79217783ebd7896be64deee12491febc4d3;hp=a144b17ff916cb625e818e64374e7e3cfa2cd91f;hpb=fc6ccb1a616c96e8cddf57efd2195a0bec7bc976;p=koha.git diff --git a/tools/inventory.pl b/tools/inventory.pl index a144b17ff9..5e7b198af7 100755 --- a/tools/inventory.pl +++ b/tools/inventory.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl -# Copyright 2000-2002 Katipo Communications +# Copyright 2000-2009 Biblibre S.A +# John Soros # # This file is part of Koha. # @@ -13,12 +14,18 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; +use warnings; + +#need to open cgi and get the fh before anything else opens a new cgi context (see C4::Auth) use CGI; +my $input = CGI->new; +my $uploadbarcodes = $input->param('uploadbarcodes'); + use C4::Auth; use C4::Context; use C4::Output; @@ -27,24 +34,27 @@ use C4::Items; use C4::Dates qw/format_date format_date_in_iso/; use C4::Koha; use C4::Branch; # GetBranches +use C4::Circulation; -my $input = new CGI; -my $minlocation=$input->param('minlocation') || 'A'; +my $minlocation=$input->param('minlocation') || ''; my $maxlocation=$input->param('maxlocation'); -$maxlocation=$minlocation.'Z' unless $maxlocation; -my $location=$input->param('location'); -my $itemtype=$input->param('itemtype'); +$maxlocation=$minlocation.'Z' unless ( $maxlocation || ! $minlocation ); +my $location=$input->param('location') || ''; +my $itemtype=$input->param('itemtype'); # FIXME note, template does not currently supply this +my $ignoreissued=$input->param('ignoreissued'); my $datelastseen = $input->param('datelastseen'); my $offset = $input->param('offset'); my $markseen = $input->param('markseen'); $offset=0 unless $offset; my $pagesize = $input->param('pagesize'); $pagesize=50 unless $pagesize; -my $uploadbarcodes = $input->param('uploadbarcodes'); -my $branchcode = $input->param('branchcode'); +my $branchcode = $input->param('branchcode') || ''; +my $branch = $input->param('branch'); my $op = $input->param('op'); +my $res; #contains the results loop # warn "uploadbarcodes : ".$uploadbarcodes; # use Data::Dumper; warn Dumper($input); + my ($template, $borrowernumber, $cookie) = get_template_and_user({template_name => "tools/inventory.tmpl", query => $input, @@ -56,86 +66,107 @@ my ($template, $borrowernumber, $cookie) my $branches = GetBranches(); my @branch_loop; -push @branch_loop, {value => "", branchname => "All Locations", }; for my $branch_hash (keys %$branches) { push @branch_loop, {value => "$branch_hash", branchname => $branches->{$branch_hash}->{'branchname'}, selected => ($branch_hash eq $branchcode?1:0)}; } - - -my $itemtypes = GetItemTypes; -my @itemtypesloop; -foreach my $thisitemtype (sort keys %$itemtypes) { - my $selected = 1 if $thisitemtype eq $itemtype; - my %row =(value => $thisitemtype, - selected => $selected, - description => $itemtypes->{$thisitemtype}->{'description'}, - ); - push @itemtypesloop, \%row; -} -$template->param(itemtypeloop => \@itemtypesloop); +@branch_loop = sort {$a->{branchname} cmp $b->{branchname}} @branch_loop; my @authorised_value_list; -my $authorisedvalue_categories; +my $authorisedvalue_categories = ''; -my $dbh=C4::Context->dbh; -my $rqauthcategorie=$dbh->prepare("SELECT authorised_value FROM marc_subfield_structure WHERE frameworkcode=? AND kohafield='items.location'"); -my $rq=$dbh->prepare("SELECT frameworkcode FROM biblio_framework"); -$rq->execute; -while (my ($fwkcode)=$rq->fetchrow){ - $rqauthcategorie->execute($fwkcode); - while (my ($authcat)=$rqauthcategorie->fetchrow){ - if ($authcat && $authorisedvalue_categories!~/\b$authcat\W/){ - $authorisedvalue_categories.="$authcat "; - my $data=GetAuthorisedValues($authcat); +my $frameworks = getframeworks(); +$frameworks->{''} = {frameworkcode => ''}; # Add the default framework + +for my $fwk (keys %$frameworks){ + my $fwkcode = $frameworks->{$fwk}->{'frameworkcode'}; + my $authcode = GetAuthValCode('items.location', $fwkcode); + if ($authcode && $authorisedvalue_categories!~/\b$authcode\W/){ + $authorisedvalue_categories.="$authcode "; + my $data=GetAuthorisedValues($authcode); foreach my $value (@$data){ $value->{selected}=1 if ($value->{authorised_value} eq ($location)); } push @authorised_value_list,@$data; - } - } + } } +my $statuses = []; +for my $statfield (qw/items.notforloan items.itemlost items.wthdrawn items.damaged/){ + my $hash = {}; + $hash->{fieldname} = $statfield; + $hash->{authcode} = GetAuthValCode($statfield); + if ($hash->{authcode}){ + my $arr = GetAuthorisedValues($hash->{authcode}); + $hash->{values} = $arr; + push @$statuses, $hash; + } +} +$template->param( statuses => $statuses ); +my $staton = {}; #authorized values that are ticked +for my $authvfield (@$statuses) { + $staton->{$authvfield->{fieldname}} = []; + for my $authval (@{$authvfield->{values}}){ + if ( defined $input->param('status-' . $authvfield->{fieldname} . '-' . $authval->{id}) && $input->param('status-' . $authvfield->{fieldname} . '-' . $authval->{id}) eq 'on' ){ + push @{$staton->{$authvfield->{fieldname}}}, $authval->{id}; + } + } +} +my $statussth = ''; +for my $authvfield (@$statuses) { + if ( scalar @{$staton->{$authvfield->{fieldname}}} > 0 ){ + my $joinedvals = join ',', @{$staton->{$authvfield->{fieldname}}}; + $statussth .= "$authvfield->{fieldname} in ($joinedvals) and "; + } +} +$statussth =~ s, and $,,g; $template->param(branchloop => \@branch_loop, authorised_values=>\@authorised_value_list, DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), + today => C4::Dates->today(), minlocation => $minlocation, maxlocation => $maxlocation, location=>$location, + ignoreissued=>$ignoreissued, branchcode=>$branchcode, + branch => $branch, offset => $offset, pagesize => $pagesize, datelastseen => $datelastseen, ); +my @brcditems; if ($uploadbarcodes && length($uploadbarcodes)>0){ my $dbh=C4::Context->dbh; my $date = format_date_in_iso($input->param('setdate')) || C4::Dates->today('iso'); # warn "$date"; my $strsth="select * from issues, items where items.itemnumber=issues.itemnumber and items.barcode =?"; my $qonloan = $dbh->prepare($strsth); - $strsth="select * from items where items.barcode =? and issues.wthdrawn=1"; + $strsth="select * from items where items.barcode =? and items.wthdrawn = 1"; my $qwthdrawn = $dbh->prepare($strsth); my @errorloop; my $count=0; while (my $barcode=<$uploadbarcodes>){ - chomp $barcode; -# warn "$barcode"; + $barcode =~ s/\r?\n$//; if ($qwthdrawn->execute($barcode) &&$qwthdrawn->rows){ push @errorloop, {'barcode'=>$barcode,'ERR_WTHDRAWN'=>1}; }else{ my $item = GetItem('', $barcode); - if (defined $item){ + if (defined $item && $item->{'itemnumber'}){ ModItem({ datelastseen => $date }, undef, $item->{'itemnumber'}); + push @brcditems, $item; $count++; $qonloan->execute($barcode); if ($qonloan->rows){ my $data = $qonloan->fetchrow_hashref; my ($doreturn, $messages, $iteminformation, $borrower) =AddReturn($barcode, $data->{homebranch}); - if ($doreturn){push @errorloop, {'barcode'=>$barcode,'ERR_ONLOAN_RET'=>1}} - else {push @errorloop, {'barcode'=>$barcode,'ERR_ONLOAN_NOT_RET'=>1}} + if ($doreturn){ + push @errorloop, {'barcode'=>$barcode,'ERR_ONLOAN_RET'=>1} + } else { + push @errorloop, {'barcode'=>$barcode,'ERR_ONLOAN_NOT_RET'=>1} + } } } else { push @errorloop, {'barcode'=>$barcode,'ERR_BARCODE'=>1}; @@ -147,22 +178,59 @@ if ($uploadbarcodes && length($uploadbarcodes)>0){ $template->param(date=>format_date($date),Number=>$count); # $template->param(errorfile=>$errorfile) if ($errorfile); $template->param(errorloop=>\@errorloop) if (@errorloop); -}else{ +} +#if we want to compare the results to a list of barcodes, or we have no barcode file +if ( ! ($uploadbarcodes && length($uploadbarcodes)>0 ) || ( $input->param('compareinv2barcd') eq 'on' && length($uploadbarcodes)>0) ) { if ($markseen) { foreach ($input->param) { /SEEN-(.+)/ and &ModDateLastSeen($1); } } if ($markseen or $op) { - my $res = GetItemsForInventory($minlocation,$maxlocation,$location,$itemtype,$datelastseen,$branchcode,$offset,$pagesize); + $res = GetItemsForInventory( $minlocation, $maxlocation, $location, $itemtype, $ignoreissued, $datelastseen, $branchcode, $branch, $offset, $pagesize, $staton ); $template->param(loop =>$res, nextoffset => ($offset+$pagesize), prevoffset => ($offset?$offset-$pagesize:0), ); } + if ( defined $input->param('compareinv2barcd') && ( ( $input->param('compareinv2barcd') eq 'on' ) && ( scalar @brcditems != scalar @$res ) ) && length($uploadbarcodes) > 0 ){ + if ( scalar @brcditems > scalar @$res ){ + for my $brcditem (@brcditems) { + if (! grep( $_->{barcode} =~ /$brcditem->{barcode}/ , @$res) ){ + $brcditem->{notfoundkoha} = 1; + push @$res, $brcditem; + } + } + } else { + my @notfound; + for my $item (@$res) { + if ( ! grep( $_->{barcode} =~ /$item->{barcode}/ , @brcditems) ){ + $item->{notfoundbarcode} = 1; + push @notfound, $item; + } + } + $res = [@$res, @notfound]; + } + } } -output_html_with_http_headers $input, $cookie, $template->output; -# Local Variables: -# tab-width: 8 -# End: +if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){ + eval {use Text::CSV}; + my $csv = Text::CSV->new or + die Text::CSV->error_diag (); + print $input->header( + -type => 'text/csv', + -attachment => 'inventory.csv', + ); + for my $re (@$res){ + my @line; + for my $key (keys %$re) { + push @line, $re->{$key}; + } + $csv->combine(@line); + print $csv->string, "\n"; + } + exit; +} + +output_html_with_http_headers $input, $cookie, $template->output;