completed removal of breeding.pl; fixed location of help for import.pl

[koha_fer] / tools / import.pl

diff --git a/tools/import.pl b/tools/import.pl
index 6b6ca69..07a4b10 100755 (executable)
--- a/tools/import.pl
+++ b/tools/import.pl
@@ -1,7 +1,5 @@
 #!/usr/bin/perl
 
-# $Id$
-
 # Script for handling import of MARC data into Koha db
 #   and Z39.50 lookups
 
@@ -9,7 +7,6 @@
 
 # Licensed under the GPL
 
-
 # Copyright 2000-2002 Katipo Communications
 #
 # This file is part of Koha.
@@ -80,7 +77,7 @@ if ($uploadmarc && length($uploadmarc)>0) {
        while (<$uploadmarc>) {
                $marcrecord.=$_;
        }
-       my ($notmarcrecord,$alreadyindb,$alreadyinfarm,$imported) = ImportBreeding($marcrecord,$overwrite_biblio,$filename,$syntax,int(rand(99999)));
+       my ($notmarcrecord,$alreadyindb,$alreadyinfarm,$imported) = ImportBreeding($marcrecord,$overwrite_biblio,$filename,$syntax,int(rand(99999)), 'batch');
 
        $template->param(imported => $imported,
                                                        alreadyindb => $alreadyindb,
@@ -96,7 +93,7 @@ output_html_with_http_headers $input, $cookie, $template->output;
 
 #---------------
 # log cleared, as marcimport is (almost) rewritten from scratch.
-# $Log$
+#
 # Revision 1.5  2007/04/24 13:54:30  hdl
 # functions that were in C4::Interface::CGI::Output are now in C4::Output.
 # So this implies quite a change for files.