[Koha-cvs] koha/misc koha2marc.pl [rel_3_0]

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   06/11/17 12:57:15

Removed files:
        misc           : koha2marc.pl 

Log message:
        removing useless scripts

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/koha2marc.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1&r2=0

Patches:
Index: koha2marc.pl
===================================================================
RCS file: koha2marc.pl
diff -N koha2marc.pl
--- koha2marc.pl        20 Oct 2003 15:42:43 -0000      1.1
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,46 +0,0 @@
-#!/usr/bin/perl
-
-use C4::Context;
-use CGI;
-use DBI;
-#use strict;
-use C4::Biblio;
-use C4::Output;
-use Getopt::Long;
-
-my ( $confirm,$delete);
-GetOptions(
-       'c' => \$confirm,
-       'd' => \$delete,
-);
-
-my $dbh = C4::Context->dbh;
-if ($delete) {
-       print "deleting MARC tables\n";
-       $dbh->do("delete from marc_biblio");
-       $dbh->do("delete from marc_subfield_table");
-       $dbh->do("delete from marc_blob_subfield");
-       $dbh->do("delete from marc_word");
-}
-
-my $userid=$ENV{'REMOTE_USER'};
-my $sthbiblioitem = $dbh->prepare("select biblioitemnumber from biblioitems 
where biblionumber=?");
-my $sthitems = $dbh->prepare("select itemnumber from items where 
biblionumber=?");
-my $sth=$dbh->prepare("select biblionumber from biblio");
-$sth->execute;
-my $env;
-$env->{'marconly'}=1;
-my ($MARC, $biblionumber,$biblioitemnumber,$bibid);
-while (($biblionumber) = $sth->fetchrow) {
-       print "Processing $biblionumber\n";
-       $sthbiblioitem->execute($biblionumber);
-       ($biblioitemnumber) = $sthbiblioitem->fetchrow;
-       $MARC =  &MARCkoha2marcBiblio($dbh,$biblionumber,$biblioitemnumber);
-       $bibid = &MARCaddbiblio($dbh,$MARC,$biblionumber);
-       # now, search items, and add them...
-       $sthitems->execute($biblionumber);
-       while (($itemnumber) = $sthitems->fetchrow) {
-               $MARC = &MARCkoha2marcItem($dbh,$biblionumber,$itemnumber);
-               &MARCadditem($dbh,$MARC,$biblionumber);
-       }
-}