[Koha-cvs] koha updatebiblio.pl [dev_week]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Joshua Ferraro <kados>	06/09/24 01:00:06

Removed files:
	.              : updatebiblio.pl 

Log message:
	unused script

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/updatebiblio.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.10.2.3&r2=0

Patches:
Index: updatebiblio.pl
===================================================================
RCS file: updatebiblio.pl
diff -N updatebiblio.pl
--- updatebiblio.pl	5 Feb 2006 21:59:21 -0000	1.10.2.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,110 +0,0 @@
-#!/usr/bin/perl
-
-
-# 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;
-require Exporter;
-use C4::Context;
-use C4::Output;  # contains gettemplate
-use C4::Search;
-use C4::Auth;
-use C4::Interface::CGI::Output;
-use CGI;
-use C4::Biblio;
-use C4::Output;
-use HTML::Template;
-
-my $input       = new CGI;
-my $bibnum      = checkinp($input->param('biblionumber'));
-my $biblio = {
-	biblionumber => $bibnum,
-	title        => $input->param('title')?$input->param('title'):"",
-	author       => $input->param('author')?$input->param('author'):"",
-	abstract     => $input->param('abstract')?$input->param('abstract'):"",
-	copyrightdate    => $input->param('copyrightdate')?$input->param('copyrightdate'):"",
-	seriestitle  => $input->param('seriestitle')?$input->param('seriestitle'):"",
-	serial       => $input->param('serial')?$input->param('serial'):"",
-	unititle     => $input->param('unititle')?$input->param('unititle'):"",
-	notes        => $input->param('notes')?$input->param('notes'):"",
-}; # my $biblio
-my $subtitle    = checkinp($input->param('subtitle'));
-my $subject     = checkinp($input->param('subject'));
-my $addauthor   = checkinp($input->param('additionalauthor'));
-my $force       = $input->param('Force');
-my %data;
-my @sub;
-my @subs;
-my @names;
-my $count;
-my $error;
-
-&modsubtitle($bibnum, $subtitle);
-&modaddauthor($bibnum, $addauthor);
-
-$subject = uc($subject);
- at sub     = split(/\||\n/, $subject);
-$count   = @sub;
-
-for (my $i = 0; $i < $count; $i++) {
-	$sub[$i] =~ s/ +$//;
-} # for
-
-$error = &modsubject($bibnum,$force, at sub);
-
-&modbiblio($biblio);
-
-if ($error ne ''){
-		my ($template, $loggedinuser, $cookie) = get_template_and_user({
-			template_name   => "updatebiblio.tmpl",
-			query           => $input,
-			type            => "intranet",
-			flagsrequired   => {catalogue => 1},
-		});
-
-
-	my @subs=split('\n',$error);
-	my @names=$input->param;
-	my $count=@names;
-		my @dataloop;
-	for (my $i=0;$i<$count;$i++) {
-		if ($names[$i] ne 'Force') {
-			my %line;
-		$line{'value'}=$input->param("$names[$i]");
-			$line{'name'}=$names[$i];
-			push(@dataloop, \%line);
-		} # if
-	} # for
-	$template->param(substring =>$subs[0],
-			error =>$error,
-			dataloop => \@dataloop,
-			intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
-		intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-		IntranetNav => C4::Context->preference("IntranetNav"),
-						);
-		print "Content-Type: text/html\n\n", $template->output;
-} else {
-	print $input->redirect("detail.pl?type=intra&bib=$bibnum");
-} # else
-
-sub checkinp{
-  my ($inp)=@_;
-  $inp=~ s/\'/\\\'/g;
-  $inp=~ s/\"/\\\"/g;
-  return($inp);
-}