From 7b1a99acc603c5af0411cc9f9986182e2bcdaffb Mon Sep 17 00:00:00 2001 From: tipaul Date: Thu, 5 Jun 2003 14:13:58 +0000 Subject: [PATCH] unused script --- acqui.simple/addbookslccn.pl | 436 -- acqui.simple/viewmarc.pl | 10271 --------------------------------- 2 files changed, 10707 deletions(-) delete mode 100755 acqui.simple/addbookslccn.pl delete mode 100755 acqui.simple/viewmarc.pl diff --git a/acqui.simple/addbookslccn.pl b/acqui.simple/addbookslccn.pl deleted file mode 100755 index 5ebb8b7404..0000000000 --- a/acqui.simple/addbookslccn.pl +++ /dev/null @@ -1,436 +0,0 @@ -#!/usr/bin/perl - -# $Id$ - -# -# Modified saas@users.sf.net 12:00 01 April 2001 -# The biblioitemnumber was not correctly initialised -# The max(barcode) value was broken - koha 'barcode' is a string value! -# - If left blank, barcode value now defaults to max(biblionumber) - -# -# TODO -# -# Error checking for pre-existing barcodes, biblionumbers and maybe others -# -# Add info on biblioitems and items already entered as you enter new ones - - -# Copyright 2000-2002 Katipo Communications -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -use strict; -use CGI; -use C4::Context; -use C4::Catalogue; -use C4::Biblio; -use C4::Output; -use C4::Circulation::Circ2; - -my $input = new CGI; -my $dbh = C4::Context->dbh; - -my $lccn=$input->param('lccn'); -my $q_lccn=$dbh->quote($lccn); -my $biblioitemnumber; - -print $input->header; -print startpage(); -print startmenu('acquisitions'); - -($input->param('checkforbiblio')) && (checkforbiblio()); -($input->param('newbiblioitem')) && (newbiblioitem()); -($input->param('newitem')) && (newitem()); - -sub checkforbiblio { - my $title=$input->param('title'); - my $q_title=$dbh->quote($title); - my $author=$input->param('author'); - my $q_author=$dbh->quote($author); - my $seriestitle=$input->param('seriestitle'); - my $serial=0; - ($seriestitle) && ($serial=1); - my $q_seriestitle=$dbh->quote($seriestitle); - my $copyrightdate=$input->param('copyrightdate'); - my $q_copyrightdate=$dbh->quote($copyrightdate); - my $notes=$input->param('notes'); - my $q_notes=$dbh->quote($notes); - my $subtitle=$input->param('subtitle'); - my $q_subtitle=$dbh->quote($subtitle); - my $sth=$dbh->prepare("select biblionumber from biblio where title=$q_title - and author=$q_author and copyrightdate=$q_copyrightdate"); - $sth->execute; - my $biblionumber=0; - if ($sth->rows) { - ($biblionumber) = $sth->fetchrow; - } else { - print "Adding new biblio for $title by $author
\n"; - my $sth=$dbh->prepare("select max(biblionumber) from biblio"); - $sth->execute; - ($biblionumber) = $sth->fetchrow; - $biblionumber++; - $sth=$dbh->prepare("insert into biblio (biblionumber, title, author, - serial, seriestitle, copyrightdate, notes) values ($biblionumber, - $q_title, $q_author, $serial, $q_seriestitle, $q_copyrightdate, - $q_notes)"); - $sth->execute; - $sth=$dbh->prepare("insert into bibliosubtitle (subtitle, biblionumber) - values ($q_subtitle, $biblionumber)"); - $sth->execute; - } - my $itemtypeselect=''; - $sth=$dbh->prepare("select itemtype,description from itemtypes"); - $sth->execute; - while (my ($itemtype, $description) = $sth->fetchrow) { - $itemtypeselect.="