[Koha-cvs] koha delbiblio.pl modbib.pl [dev_week]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Joshua Ferraro <kados>	06/09/23 23:58:26

Removed files:
	.              : delbiblio.pl modbib.pl 

Log message:
	removing unused files

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/delbiblio.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.8&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/modbib.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.14.4.3&r2=0

Patches:
Index: delbiblio.pl
===================================================================
RCS file: delbiblio.pl
diff -N delbiblio.pl
--- delbiblio.pl	29 Jun 2003 01:27:36 -0000	1.8
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-
-#script to delete biblios
-#written 2/5/00
-#by chris at katipo.co.nz
-
-
-# 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 C4::Search;
-use CGI;
-use C4::Output;
-use C4::Biblio;
-
-my $input = new CGI;
-#print $input->header;
-
-
-my $biblio=$input->param('biblio');
-# check no items attached
-my $count=C4::Biblio::itemcount($biblio);
-
-
-#print $count;
-if ($count > 0){
-  print $input->header;
-  print "This biblio has $count items attached, please delete them before deleting this biblio<p>
-  ";
-} else {
-	delbiblio($biblio);
-	print $input->redirect("/cgi-bin/koha/loadmodules.pl?module=search");
-}

Index: modbib.pl
===================================================================
RCS file: modbib.pl
diff -N modbib.pl
--- modbib.pl	5 Feb 2006 21:59:20 -0000	1.14.4.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,109 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: modbib.pl,v 1.14.4.3 2006/02/05 21:59:20 kados Exp $
-
-#script to modify/delete biblios
-#written 8/11/99
-# modified 11/11/99 by chris at katipo.co.nz
-# modified 12/16/2002 by hdl at ifrance.com : templating
-
-
-# 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 C4::Search;
-use CGI;
-use C4::Output;
-use HTML::Template;
-use C4::Auth;
-use C4::Context;
-use C4::Interface::CGI::Output;
-
-my $input = new CGI;
-
-my $bibnum=$input->param('bibnum');
-my $data=&bibdata($bibnum);
-my ($subjectcount, $subject)     = &subject($bibnum);
-my ($subtitlecount, $subtitle)   = &subtitle($bibnum);
-my ($addauthorcount, $addauthor) = &addauthor($bibnum);
-my $sub        = $subject->[0]->{'subject'};
-my $additional = $addauthor->[0]->{'author'};
-my $dewey;
-my $submit=$input->param('submit.x');
-if ($submit eq '') {
-  print $input->redirect("/cgi-bin/koha/delbiblio.pl?biblio=$bibnum");
-} # if
-
-my ($template, $loggedinuser, $cookie)
-    = get_template_and_user({template_name => "modbib.tmpl",
-			     query => $input,
-			     type => "intranet",
-			     authnotrequired => 0,
-			     flagsrequired => {acquisition => 1},
-			     debug => 1,
-			     });
-
-# have to get all subtitles, subjects and additional authors
-$sub = join("|", map { $_->{'subject'} } @{$subject});
-
-$additional = join("|", map { $_->{'author'} } @{$addauthor});
-
-$dewey = $data->{'dewey'};
-$dewey =~ s/0+$//;
-if ($dewey eq "000.") {
-    $dewey = "";
-} # if
-if ($dewey < 10) {
-    $dewey = '00' . $dewey;
-} # if
-if ($dewey < 100 && $dewey > 10) {
-    $dewey = '0' . $dewey;
-} # if
-if ($dewey <= 0){
-  $dewey='';
-} # if
-$dewey = ~ s/\.$//;
-
-$data->{'title'} = &tidyhtml($data->{'title'});
-
-$template->param ( biblionumber => $bibnum,
-						biblioitemnumber => $data->{'biblioitemnumber'},
-						author => $data->{'author'},
-						title => $data->{'title'},
-						abstract => $data->{'abstract'},
-						subject => $sub,
-						copyrightdate => $data->{'copyrightdate'},
-						seriestitle => $data->{'seriestitle'},
-						additionalauthor => $additional,
-						subtitle => $data->{'subtitle'},
-						unititle => $data->{'unititle'},
-						notes => $data->{'bnotes'},
-						serial => $data->{'serial'},
-						intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
-		intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-		IntranetNav => C4::Context->preference("IntranetNav"),
-		);
-
-output_html_with_http_headers $input, $cookie, $template->output;
-
-sub tidyhtml {
-  my ($inp)=@_;
-  $inp=~ s/\"/\&quot\;/g;
-  return($inp);
-}