DeleteBiblioInBatch

=head2 DeleteBiblioInBatch

    DeleteBiblioInBatch( $import_record_id );

=cut

sub DeleteBiblioInBatch {

    my ($subroutine, $import_record_id) = @_;

    _delete_import_record_marc($import_record_id);

}

sub _delete_import_record_marc {

    my ($import_record_id, $subroutine) = @_;

    my $dbh = C4::Context->dbh;

    my $sth = $dbh->prepare("DELETE FROM import_records WHERE import_record_id = ?");

    $sth->execute($import_record_id);

    $sth->finish();

}

my $drafts_only = $input->param('drafts_only');

my $count;

#!/usr/bin/perl

# Copyright 2013 ByWater Solutions

# Based on circ/ysearch.pl: Copyright 2007 Tamil s.a.r.l.

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# 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.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

=head1 NAME

batch_records_ajax.pl - A script for searching batch imported records via ajax

=head1 SYNOPSIS

This script is to be used as a data source for DataTables that load and display

the records from an import batch.

=cut

use Modern::Perl;

use CGI qw ( -utf8 );

use JSON qw/ to_json /;

use C4::Context;

use C4::Charset;

use C4::Auth qw/check_cookie_auth/;

use C4::ImportBatch;

my $input = new CGI;

my @sort_columns =

  qw/import_record_id title status overlay_status overlay_status/;

my $import_batch_id   = $input->param('import_batch_id');

my $offset            = $input->param('iDisplayStart');

my $results_per_page  = $input->param('iDisplayLength');

my $sorting_column    = $sort_columns[ $input->param('iSortCol_0') // 0 ];

my $sorting_direction = $input->param('sSortDir_0');

$results_per_page = undef if $results_per_page && $results_per_page == -1;

binmode STDOUT, ":encoding(UTF-8)";

print $input->header( -type => 'text/plain', -charset => 'UTF-8' );

my ( $auth_status, $sessionID ) =

  check_cookie_auth( $input->cookie('CGISESSID'), { tools => 'manage_staged_marc' } );

if ( $auth_status ne "ok" ) {

    exit 0;

}

my $batch = GetImportBatch($import_batch_id);

my $records =

  GetImportRecordsRange( $import_batch_id, $offset, $results_per_page, undef,

    { order_by => $sorting_column, order_by_direction => $sorting_direction } );

my @list = ();

foreach my $record (@$records) {

    my $citation = $record->{'title'} || $record->{'authorized_heading'};

    $citation .= " $record->{'author'}" if $record->{'author'};

    $citation .= " (" if $record->{'issn'} or $record->{'isbn'};

    $citation .= $record->{'isbn'} if $record->{'isbn'};

    $citation .= ", " if $record->{'issn'} and $record->{'isbn'};

    $citation .= $record->{'issn'} if $record->{'issn'};

    $citation .= ")" if $record->{'issn'} or $record->{'isbn'};

    my $match = GetImportRecordMatches( $record->{'import_record_id'}, 1 );

    my $match_citation = '';

    my $match_id;

    if ( $#$match > -1 ) {

        if ( $match->[0]->{'record_type'} eq 'biblio' ) {

            $match_citation .= $match->[0]->{'title'}

              if defined( $match->[0]->{'title'} );

            $match_citation .= ' ' . $match->[0]->{'author'}

              if defined( $match->[0]->{'author'} );

            $match_id = $match->[0]->{'biblionumber'};

        }

        elsif ( $match->[0]->{'record_type'} eq 'auth' ) {

            if ( defined( $match->[0]->{'authorized_heading'} ) ) {

                $match_citation .= $match->[0]->{'authorized_heading'};

                $match_id = $match->[0]->{'candidate_match_id'};

            }

        }

    }

    push @list,

      {

        DT_RowId        => $record->{'import_record_id'},

        import_record_id => $record->{'import_record_id'},

        citation        => $citation,

        status          => $record->{'status'},

        overlay_status  => $record->{'overlay_status'},

        match_citation  => $match_citation,

        matched         => $record->{'matched_biblionumber'}

          || $record->{'matched_authid'}

          || q{},

        score => $#$match > -1 ? $match->[0]->{'score'} : 0,

        match_id => $match_id,

        diff_url => $match_id ? "/cgi-bin/koha/tools/showdiffmarc.pl?batchid=$import_batch_id&importid=$record->{import_record_id}&id=$match_id" : undef,

        catalog_link => "/cgi-bin/koha/cataloguing/addbiblio.pl?breedingid=$record->{import_record_id}",

        delete_link =>"/cgi-bin/koha/cataloguing/draftrecords.pl?biblionumber=$record->{import_record_id}&op=delete_record",

      };

}

my $data;

$data->{'iTotalRecords'}        = $batch->{'num_records'};

$data->{'iTotalDisplayRecords'} = $batch->{'num_records'};

$data->{'sEcho'}                = $input->param('sEcho') || undef;

$data->{'aaData'}               = \@list;

print to_json($data);

#!/usr/bin/perl

# Copyright 2018 Catalyst IT

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY 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, see <http://www.gnu.org/licenses>.

=head1 cataloguing:draftrecords.pl

	TODO

=cut

use strict;

use warnings;

use CGI qw ( -utf8 );

use C4::Auth;

use C4::Biblio;

use C4::Breeding;

use C4::Output;

use C4::Koha;

use C4::Search;

use C4::ImportBatch;

use Koha::BiblioFrameworks;

use Koha::SearchEngine::Search;

use Koha::SearchEngine::QueryBuilder;

my $input = new CGI;

my $success = $input->param('biblioitem');

my $query   = $input->param('q');

my @value   = $input->multi_param('value');

my $page    = $input->param('page') || 1;

my $biblionumber= $input->param('biblionumber');

my $op = $input->param('op');

my $results_per_page = 20;

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

    {

        template_name   => "cataloguing/draftrecords.tt",

        query           => $input,

        type            => "intranet",

        authnotrequired => 0,

        flagsrequired   => { editcatalogue => '*' },

        debug           => 1,

    }

);

# fill with books in breeding farm

my $countbr = 0;

my @resultsbr;

if ($query) {

# fill isbn or title, depending on what has been entered

#u must do check on isbn because u can find number in beginning of title

#check is on isbn legnth 13 for new isbn and 10 for old isbn

    my ( $title, $isbn );

    if ($query=~/\d/) {

        my $clean_query = $query;

        $clean_query =~ s/-//g; # remove hyphens

        my $querylength = length $clean_query;

        if ( $querylength == 13 || $querylength == 10 ) {

            $isbn = $query;

        }

    }

    if (!$isbn) {

        $title = $query;

    }

    ( $countbr, @resultsbr ) = BreedingSearch( $title, $isbn );

}

if ($op && $op eq 'delete_record') {

    C4::ImportBatch->DeleteBiblioInBatch($biblionumber);

} elsif ($op && $op eq 'delete_all') {

    CleanBatch(1);

}

my $breeding_loop = [];

for my $resultsbr (@resultsbr) {

    push @{$breeding_loop}, {

        id               => $resultsbr->{import_record_id},

        isbn             => $resultsbr->{isbn},

        copyrightdate    => $resultsbr->{copyrightdate},

        editionstatement => $resultsbr->{editionstatement},

        file             => $resultsbr->{file_name},

        title            => $resultsbr->{title},

        author           => $resultsbr->{author},

    };

}

my $schema = Koha::Database->new()->schema();

my $servers = $schema->resultset('Z3950server')->search(

        {

            recordtype => 'biblio',

            servertype => ['zed', 'sru'],

        },

        {   result_class => 'DBIx::Class::ResultClass::HashRefInflator',

            order_by     => ['rank', 'servername'],

        },

);

my $frameworks = Koha::BiblioFrameworks->search({}, { order_by => ['frameworktext'] });

$template->param(

    servers           => $servers,

    frameworks        => $frameworks,

    breeding_count    => $countbr,

    breeding_loop     => $breeding_loop,

    z3950_search_params => C4::Search::z3950_search_args($query),

);

output_html_with_http_headers $input, $cookie, $template->output;

INSERT IGNORE INTO import_batches (import_batch_id,record_type,file_name,comments) VALUES (1, 'biblio', 'Draft record', 'Draft MARC records created in the addbiblio.pl file but not saved to the Koha catalog');

INSERT IGNORE INTO permissions (module_bit, code, description) VALUES (9, 'commit_MARC_records_to_catalog', 'Commit MARC records to the catalog. If not enabled then a patron will only be able to create draft records if other editcatalogue subpermissions are enabled');

INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES ('EnableDraftRecords', 1, NULL, 'If enabled staff and catalogers will be able to save records to the reservoir as a draft rather than to the catalog. Also the link to the draft records interface in the Cataloguing module will be visible', 'YesNo');

('EnableDraftRecords','1', NULL, 'If enabled staff and catalogers will be able to save records to the reservoir as a draft rather than to the catalog. Also the link to the draft records interface in the Cataloguing module will be visible', 'YesNo'),

   ( 9, 'commit_MARC_records_to_catalog', 'Commit MARC records to the catalog. If not enabled then a patron will only be able to create draft records if other editcatalogue subpermissions are enabled'),

                <span class="filteraction" id="filteraction_off"> <a href="#">[-]</a></span>

                <span class="filteraction" id="filteraction_on">  <a href="#">[+]</a></span>

                <div id="filters">

                    <p><input type="checkbox" name="drafts_only" value=1>Drafts only</p>

                </div>

        $("#previewrecord").click(function(){

            $(".btn-group").removeClass("open");

            document.getElementById('preview').value = 1;

            onOption();

            return false;

        });

                <input type="hidden" id="preview" name="preview" />

                        <a class="btn btn-default btn-sm" href="/cgi-bin/koha/cataloguing/draftrecords.pl"><i class="fa fa-eye" aria-hidden="true"></i> View draft records</a></button>

            $("#filteraction_off").hide();

            $("#filters").hide();

            $("#filteraction_off, #filteraction_on").on('click', function(e) {

                e.preventDefault();

                $('#filters').toggle();

                $('.filteraction').toggle();

            });

[% USE raw %]

[% SET footerjs = 1 %]

[% USE Asset %]

[% INCLUDE 'doc-head-open.inc' %]

<title>Koha &rsaquo; Cataloging &rsaquo; Draft records</title>

[% INCLUDE 'doc-head-close.inc' %]

<style type="text/css">

    #jobpanel,#jobstatus,#jobfailed { display : none; }

    span.change-status { font-style:italic; color:#666; display:none; }

</style>

[% Asset.css("css/datatables.css") %]

</head>

<body class="cat">

    [% INCLUDE 'header.inc' %]

    <div id="breadcrumbs">

        <a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo;

        <a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a>  &rsaquo; View draft records

    </div>

    <div class="main container-fluid">

        <div class="row">

            <div class="col-md-10 col-md-offset-1">

           [% IF ( CAN_user_editcatalogue_edit_catalogue ) %]

            <div id="toolbar" class="btn-toolbar">

                [% IF Koha.Preference( 'EnableAdvancedCatalogingEditor' ) == 1 %]

                    <a id="useadvanced" href="/cgi-bin/koha/cataloguing/editor.pl" class="btn btn-default btn-sm"><i class="fa fa-pencil"></i> Advanced editor</a>

                [% END %]

                <div class="btn-group">

                    <button class="btn btn-default btn-sm dropdown-toggle" data-toggle="dropdown"><i class="fa fa-plus"></i> New record <span class="caret"></span></button>

                    <ul class="dropdown-menu">

                         <li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?frameworkcode=">Default framework</a></li>

                         [% FOREACH framework IN frameworks %]

                             <li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?frameworkcode=[% framework.frameworkcode %]">[% framework.frameworktext %]</a></li>

                         [% END %]

                    </ul>

                </div>

                [% IF servers.count > 0 %]

                   <div class="btn-group">

                        <button class="btn btn-default btn-sm" id="z3950search"><i class="fa fa-search"></i> New from Z39.50/SRU</button>

                        <button class="btn btn-default btn-sm dropdown-toggle" data-toggle="dropdown">

                           <span class="caret"></span>

                        </button>

                        <ul class="dropdown-menu">

                             <li id="" class="z3950searchFw"><a href="#">Default framework</a></li>

                             [% FOREACH framework IN frameworks %]

                                 <li id="[% framework.frameworkcode %]" class="z3950searchFw"><a href="#">[% framework.frameworktext %]</a></li>

                             [% END %]

                        </ul>

                   </div>

                [% END %]

                <a class="btn btn-default btn-sm" href="/cgi-bin/koha/cataloguing/draftrecords.pl"><i class="fa fa-eye" aria-hidden="true"></i> View draft records</a></button>

                [% IF ( total ) %]

                    <div class="btn-group"><button type="submit" class="btn btn-default btn-sm merge-items"><i class="fa fa-compress"></i> Merge selected</button></div>

                [% END %]

            </div>

            [% END %]

            <h1>View draft records</h1>

                <div id="draftrecords">

                   <p> To edit or save these draft records click the 'Edit' link beside the appropriate record.

                   <form action="/cgi-bin/koha/cataloguing/draftrecords.pl" method="post">

                       <input type="hidden" name="op" id="delete_all_drafts" value='delete_all'/>

                       <button type="submit">Delete all drafts from reservoir</button>

                   </form>

                   </p>

                   <table id="records-table">

                     <thead>

                        <tr>

                           <th>#</th>

                           <th>Citation</th>

                           <th>Status</th>

                           <th>Edit record</th>

                           <th>Delete record</th>

                        </tr>

                     </thead>

                   </table>

                </div>

          </div>

     </div>

  </div>

</body>

[% MACRO jsinclude BLOCK %]

[% Asset.js("js/tools-menu.js") %]

[% Asset.js("js/background-job-progressbar.js") %]

[% INCLUDE 'datatables.inc' %]

<script type="text/javascript">

    $(document).ready(function(){

       $("#records-table").dataTable($.extend(true, {}, dataTablesDefaults, {

          "bSort": true,

          "order": [0, "desc"],

          "bAutoWidth": false,

          "bFilter": false,

          "bProcessing": true,

          "bServerSide": true,

          "sAjaxSource": 'batch_records_ajax.pl',

          "sPaginationType": "full_numbers",

          "sDom": '<"top pager"iflp>rt<"bottom pager"flp><"clear">',

          "aoColumns": [

             { "mDataProp": "import_record_id" },

             { "mDataProp": "citation" },

             { "mDataProp": "status" },

             { "mDataProp": "catalog_link" },

             { "mDataProp": "delete_link" }

          ],

           "fnServerData": function ( sSource, aoData, fnCallback ) {

              aoData.push( { "name": "import_batch_id", "value": 1 } );

                 $.ajax({

                      'dataType': 'json',

                      'type': 'POST',

                      'url': sSource,

                      'data': aoData,

                      'success': function(json){

                        fnCallback(json);

                      }

                 });

             },

            "fnRowCallback": function( nRow, aData, iDisplayIndex, iDisplayIndexFull ) {

               [% IF ( record_type == 'auth' ) %]

                  var record_details_url = "/cgi-bin/koha/authorities/detail.pl?authid=";

               [% ELSE %]

                  var record_details_url = "/cgi-bin/koha/catalogue/detail.pl?biblionumber=";

               [% END %]

               $('td:eq(1)', nRow).html(

                  '<a href="/cgi-bin/koha/catalogue/showmarc.pl?importid=' + aData['import_record_id'] + '&viewas=html" class="previewMARC">' + aData['citation'] + '</a>'

               );

               $('td:eq(2)', nRow).html(

                  aData['status'] == 'staged'   ? _("Draft")   :

                  aData['status']

               );

               if (aData['catalog_link']){

                  $('td:eq(3)', nRow).html(

                      '<a href="' + aData['catalog_link'] + '">' + "Edit" + '</a>'

                  );

               }

               if (aData['delete_link']){

                  $('td:eq(4)', nRow).html(

                      '<a href="' + aData['delete_link'] + '">' + "Delete" + '</a>'

                  );

               }

            },

        }));

    });

</script>

[% END %]

[% INCLUDE 'intranet-bottom.inc' %]

use Cwd qw(abs_path);

#Test DeleteBiblioInBatch

my @a = DeleteBiblioInBatch( $import_record_id); #Remove the MARC record from import_biblios and import_records tables

my $biblio_in_import_records = $dbh->do('SELECT * FROM import_records WHERE import_batch_id = "$import_record_id"');

is( $biblio_in_import_records, "0E0", 'No biblio expected since we deleted the biblio from the batch' );