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 $matcher_id = $input->param('matcher');
  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 $num_with_matches = 0;
  88     my $checked_matches = 0;
  89     my $matcher_failed = 0;
  90     my $matcher_code = "";
  91     if ($matcher_id ne "") {
  92         my $matcher = C4::Matcher->fetch($matcher_id);
  93         if (defined $matcher) {
  94             $checked_matches = 1;
  95             $matcher_code = $matcher->code();
  96             $num_with_matches = BatchFindBibDuplicates($batch_id, $matcher);
  97         } else {
  98             $matcher_failed = 1;
  99         }
 100     }
 101
 102         $template->param(staged => $num_valid,
 103                          matched => $num_with_matches,
 104                      num_items => $num_items,
 105                      import_errors => scalar(@import_errors),
 106                      total => $num_valid + scalar(@import_errors),
 107                      checked_matches => $checked_matches,
 108                      matcher_failed => $matcher_failed,
 109                      matcher_code => $matcher_code,
 110                      import_batch_id => $batch_id
 111                     );
 112
 113 } else {
 114     # initial form
 115     my @matchers = C4::Matcher::GetMatcherList();
 116     $template->param(available_matchers => \@matchers);
 117 }
 118
 119 output_html_with_http_headers $input, $cookie, $template->output;
 120