[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);
-	}
-}