X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=tools%2Fexport.pl;h=d3d8646c4dafc46290f3d7c1344e27f807dfe210;hb=621d96d6688867b3469145d5eb5a6a9b2fe0fd84;hp=d90d7fcbffda50b5c9068826462fc394209f6f2b;hpb=4f283bc0fab1469fa994a1313869452dc7ecda3d;p=koha_gimpoz diff --git a/tools/export.pl b/tools/export.pl index d90d7fcbff..d3d8646c4d 100755 --- a/tools/export.pl +++ b/tools/export.pl @@ -18,16 +18,16 @@ use strict; -require Exporter; +use warnings; use C4::Auth; -use C4::Output; # contains gettemplate +use C4::Output; use C4::Biblio; # GetMarcBiblio GetXmlBiblio use CGI; use C4::Koha; # GetItemTypes use C4::Branch; # GetBranches my $query = new CGI; -my $op=$query->param("op"); +my $op=$query->param("op") || ''; my $filename=$query->param("filename"); my $dbh=C4::Context->dbh; my $marcflavour = C4::Context->preference("marcflavour"); @@ -40,13 +40,24 @@ my ($template, $loggedinuser, $cookie) query => $query, type => "intranet", authnotrequired => 0, - flagsrequired => {tools => 1}, + flagsrequired => {tools => 'export_catalog'}, debug => 1, } ); + my $limit_ind_branch=(C4::Context->preference('IndependantBranches') && + C4::Context->userenv && + !(C4::Context->userenv->{flags} & 1) && + C4::Context->userenv->{branch}?1:0); + my $branches = GetBranches($limit_ind_branch); + my $branch = $query->param("branch") || ''; + if ( C4::Context->preference("IndependantBranches") && + !(C4::Context->userenv->{flags} & 1) ) { + $branch = C4::Context->userenv->{'branch'}; + } + if ($op eq "export") { - binmode(STDOUT,":utf8"); + binmode STDOUT, ':encoding(UTF-8)'; print $query->header( -type => 'application/octet-stream', -charset => 'utf-8', -attachment=>$filename); @@ -54,16 +65,26 @@ if ($op eq "export") { my $StartingBiblionumber = $query->param("StartingBiblionumber"); my $EndingBiblionumber = $query->param("EndingBiblionumber"); my $output_format = $query->param("output_format"); - my $branch = $query->param("branch"); my $itemtype = $query->param("itemtype"); my $start_callnumber = $query->param("start_callnumber"); my $end_callnumber = $query->param("end_callnumber"); + my $start_accession = ($query->param("start_accession")) ? C4::Dates->new($query->param("start_accession")) : '' ; + my $end_accession = ($query->param("end_accession")) ? C4::Dates->new($query->param("end_accession")) : '' ; my $dont_export_items = $query->param("dont_export_item"); + my $strip_nonlocal_items = $query->param("strip_nonlocal_items"); my $dont_export_fields = $query->param("dont_export_fields"); my @sql_params; - my $query = " SELECT DISTINCT biblioitems.biblionumber - FROM biblioitems,items - WHERE biblioitems.biblionumber=items.biblionumber "; + + my $items_filter = + $branch || $start_callnumber || $end_callnumber || + $start_accession || $end_accession || + ($itemtype && C4::Context->preference('item-level_itypes')); + my $query = $items_filter ? + "SELECT DISTINCT biblioitems.biblionumber + FROM biblioitems JOIN items + USING (biblionumber) WHERE 1" + : + "SELECT biblioitems.biblionumber FROM biblioitems WHERE biblionumber >0 "; if ( $StartingBiblionumber ) { $query .= " AND biblioitems.biblionumber >= ? "; @@ -74,40 +95,53 @@ if ($op eq "export") { $query .= " AND biblioitems.biblionumber <= ? "; push @sql_params, $EndingBiblionumber; } - - if ( $branch ) { - $query .= " AND biblioitems.biblionumber = items.biblionumber AND homebranch = ? "; + + if ($branch) { + $query .= " AND homebranch = ? "; push @sql_params, $branch; } - - if ( $start_callnumber ) { - $query .= " AND biblioitems.biblionumber = items.biblionumber AND itemcallnumber <= ? "; + + if ($start_callnumber) { + $query .= " AND itemcallnumber <= ? "; push @sql_params, $start_callnumber; } - - if ( $end_callnumber ) { - $query .= " AND biblioitems.biblionumber = items.biblionumber AND itemcallnumber >= ? "; + + if ($end_callnumber) { + $query .= " AND itemcallnumber >= ? "; push @sql_params, $end_callnumber; } + if ($start_accession) { + $query .= " AND dateaccessioned >= ? "; + push @sql_params, $start_accession->output('iso'); + } + + if ($end_accession) { + $query .= " AND dateaccessioned <= ? "; + push @sql_params, $end_accession->output('iso'); + } if ( $itemtype ) { - $query .= " AND biblioitems.itemtype = ?"; + $query .= (C4::Context->preference('item-level_itypes')) ? " AND items.itype = ? " : " AND biblioitems.itemtype = ?"; push @sql_params, $itemtype; } - my $sth = $dbh->prepare($query); $sth->execute(@sql_params); while (my ($biblionumber) = $sth->fetchrow) { - my $record = GetMarcBiblio($biblionumber); - if ( $dont_export_items ) { - # now, find where the itemnumber is stored & extract only the item - my ( $itemnumberfield, $itemnumbersubfield ) = - GetMarcFromKohaField( 'items.itemnumber', '' ); - - # and delete it. - foreach ($record->field($itemnumberfield)){ - $record->delete_field($record->field($itemnumberfield)); + my $record = eval{ GetMarcBiblio($biblionumber); }; + # FIXME: decide how to handle records GetMarcBiblio can't parse or retrieve + if ($@) { + next; + } + next if not defined $record; + C4::Biblio::EmbedItemsInMarcBiblio($record, $biblionumber) unless $dont_export_items; + if ($strip_nonlocal_items || $limit_ind_branch) { + my ( $homebranchfield, $homebranchsubfield ) = + GetMarcFromKohaField( 'items.homebranch', '' ); + for my $itemfield ($record->field($homebranchfield)){ + # if stripping nonlocal items, use loggedinuser's branch if they didn't select one + $branch = C4::Context->userenv->{'branch'} unless $branch; + $record->delete_field($itemfield) if($itemfield->subfield($homebranchsubfield) ne $branch) ; } } @@ -117,6 +151,8 @@ if ($op eq "export") { /^(\d*)(\w)?$/; my $field = $1; my $subfield = $2; + # skip if this record doesn't have this field + next if not defined $record->field($field); if( $subfield ) { $record->field($field)->delete_subfields($subfield); } @@ -148,35 +184,22 @@ else { ); push @itemtypesloop, \%row; } - - my $branches = GetBranches; - my $branch = GetBranch($query,$branches); my @branchloop; - foreach my $thisbranch (keys %$branches) { - my $selected = 1 if $thisbranch eq $branch; - my %row = ( - value => $thisbranch, - selected => $selected, + for my $thisbranch ( + sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } + keys %{$branches} + ) { + push @branchloop, + { value => $thisbranch, + selected => $thisbranch eq $branch, branchname => $branches->{$thisbranch}->{'branchname'}, - ); - push @branchloop, \%row; + }; } - - my ($template, $loggedinuser, $cookie) - = get_template_and_user - ( - { - template_name => "tools/export.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {tools => 'export_catalog'}, - debug => 1, - } - ); + $template->param( branchloop => \@branchloop, - itemtypeloop => \@itemtypesloop + itemtypeloop => \@itemtypesloop, + DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), ); output_html_with_http_headers $query, $cookie, $template->output;