tools/stage-marc-import.pl

   1 #!/usr/bin/perl
   2
   3 # Script for handling import of MARC data into Koha db
   4 #   and Z39.50 lookups
   5
   6 # Koha library project  www.koha.org
   7
   8 # Licensed under the GPL
   9
  10 # Copyright 2000-2002 Katipo Communications
  11 #
  12 # This file is part of Koha.
  13 #
  14 # Koha is free software; you can redistribute it and/or modify it under the
  15 # terms of the GNU General Public License as published by the Free Software
  16 # Foundation; either version 2 of the License, or (at your option) any later
  17 # version.
  18 #
  19 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  20 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  21 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  22 #
  23 # You should have received a copy of the GNU General Public License along with
  24 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  25 # Suite 330, Boston, MA  02111-1307 USA
  26
  27 use strict;
  28
  29 # standard or CPAN modules used
  30 use CGI;
  31 use MARC::File::USMARC;
  32
  33 # Koha modules used
  34 use C4::Context;
  35 use C4::Auth;
  36 use C4::Input;
  37 use C4::Output;
  38 use C4::Biblio;
  39 use C4::ImportBatch;
  40 use C4::Matcher;
  41
  42 #------------------
  43 # Constants
  44
  45 my $includes = C4::Context->config('includes') ||
  46         "/usr/local/www/hdl/htdocs/includes";
  47
  48 # HTML colors for alternating lines
  49 my $lc1='#dddddd';
  50 my $lc2='#ddaaaa';
  51
  52 #-------------
  53 #-------------
  54 # Initialize
  55
  56 my $userid=$ENV{'REMOTE_USER'};
  57
  58 my $input = new CGI;
  59 my $dbh = C4::Context->dbh;
  60
  61 my $uploadmarc=$input->param('uploadmarc');
  62 my $check_for_matches = $input->param('check_for_matches');
  63 my $parse_items = $input->param('parse_items');
  64 my $comments = $input->param('comments');
  65 my $syntax = $input->param('syntax');
  66 my ($template, $loggedinuser, $cookie)
  67         = get_template_and_user({template_name => "tools/stage-marc-import.tmpl",
  68                                         query => $input,
  69                                         type => "intranet",
  70                                         authnotrequired => 0,
  71                                         flagsrequired => {tools => 1},
  72                                         debug => 1,
  73                                         });
  74
  75 $template->param(SCRIPT_NAME => $ENV{'SCRIPT_NAME'},
  76                                                 uploadmarc => $uploadmarc);
  77 my $filename = $uploadmarc;
  78 if ($uploadmarc && length($uploadmarc)>0) {
  79         my $marcrecord='';
  80         while (<$uploadmarc>) {
  81                 $marcrecord.=$_;
  82         }
  83
  84     # FIXME branch code
  85     my ($batch_id, $num_valid, $num_items, @import_errors) = BatchStageMarcRecords($syntax, $marcrecord, $filename,
  86                                                                                    $comments, '', $parse_items, 0);
  87     my $matcher = C4::Matcher->new('biblio');
  88     $matcher->add_matchpoint("020", "a", '', 'isbn', 1000);
  89     my $num_with_matches = 0;
  90     my $checked_matches = 0;
  91     if ($check_for_matches) {
  92         $checked_matches = 1;
  93         $num_with_matches = BatchFindBibDuplicates($batch_id, $matcher);
  94     }
  95
  96         $template->param(staged => $num_valid,
  97                          matched => $num_with_matches,
  98                      num_items => $num_items,
  99                      import_errors => scalar(@import_errors),
 100                      total => $num_valid + scalar(@import_errors),
 101                      checked_matches => $checked_matches,
 102                      import_batch_id => $batch_id
 103                     );
 104
 105 }
 106
 107 output_html_with_http_headers $input, $cookie, $template->output;
 108