[Koha-cvs] koha modbibitem.pl deletebiblioitem.pl [dev_week]
Joshua Ferraro
jmf at kados.org
Sun Sep 24 03:10:22 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Joshua Ferraro <kados> 06/09/24 01:10:21
Removed files:
. : modbibitem.pl deletebiblioitem.pl
Log message:
removing unused files
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/modbibitem.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.14.2.4&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/deletebiblioitem.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.3&r2=0
Patches:
Index: modbibitem.pl
===================================================================
RCS file: modbibitem.pl
diff -N modbibitem.pl
--- modbibitem.pl 23 Feb 2006 02:44:10 -0000 1.14.2.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,158 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: modbibitem.pl,v 1.14.2.4 2006/02/23 02:44:10 bob_lyon Exp $
-
-#script to modify/delete groups
-
-#written 8/11/99
-# modified 11/11/99 by chris at katipo.co.nz
-# modified 18/4/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;
-require Exporter;
-
-use C4::Search;
-use C4::Output;
-use C4::Koha;
-use CGI;
-use HTML::Template;
-use C4::Date;
-use C4::Biblio;
-use C4::Acquisition;
-use C4::Auth;
-use C4::Interface::CGI::Output;
-
-my $input = new CGI;
-my $bibitemnum=$input->param('bibitem');
-my $data=bibitemdata($bibitemnum);
-my $biblio=$input->param('biblio');
-my $submit=$input->param('submit.x') || $input->param('submit');
-if ($submit eq ''){
- print $input->redirect("deletebiblioitem.pl?biblioitemnumber=$bibitemnum&biblionumber=$biblio");
-}
-
-my ($template, $loggedinuser, $cookie) = get_template_and_user({
- template_name => 'modbibitem.tmpl',
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- });
-
-
-my %inputs;
-
-#hash is set up with input name being the key then
-#the value is a tab separated list, the first item being the input type
-#$inputs{'Author'}="text\t$data->{'author'}\t0";
-#$inputs{'Title'}="text\t$data->{'title'}\t1";
-my $dewey = $data->{'dewey'};
-$dewey =~ s/0+$//;
-if ($dewey eq "000.") { $dewey = "";};
-if ($dewey < 10){$dewey='00'.$dewey;}
-if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
-if ($dewey <= 0){
- $dewey='';
-}
-$dewey=~ s/\.$//;
-$inputs{'Class'}="text\t$data->{'classification'}$dewey$data->{'subclass'}\t2";
-$inputs{'Item Type'}="text\t$data->{'itemtype'}\t3";
-$inputs{'URL'}="text\t$data->{'url'}\t4";
-$inputs{'Publisher'}="text\t$data->{'publishercode'}\t5";
-#$inputs{'Copyright date'}="text\t$data->{'copyrightdate'}\t6";
-$inputs{'ISBN'}="text\t$data->{'isbn'}\t7";
-$inputs{'Publication Year'}="text\t$data->{'publicationyear'}\t8";
-$inputs{'Pages'}="text\t$data->{'pages'}\t9";
-$inputs{'Illustrations'}="text\t$data->{'illustration'}\t10";
-#$inputs{'Series Title'}="text\t$data->{'seriestitle'}\t11";
-#$inputs{'Additional Author'}="text\t$additional\t12";
-#$inputs{'Subtitle'}="text\t$subtitle->[0]->{'subtitle'}\t13";
-#$inputs{'Unititle'}="text\t$data->{'unititle'}\t14";
-#$inputs{'Notes'}="textarea\t$data->{'notes'}\t15";
-#$inputs{'Serial'}="text\t$data->{'serial'}\t16";
-$inputs{'Volume'}="text\t$data->{'volumeddesc'}\t17";
-#$inputs{'Analytic author'}="text\t\t18";
-#$inputs{'Analytic title'}="text\t\t19";
-
-$inputs{'bibnum'}="hidden\t$data->{'biblionumber'}\t20";
-$inputs{'bibitemnum'}="hidden\t$data->{'biblioitemnumber'}\t21";
-
-$template->param( biblionumber => $data->{'biblionumber'},
- title => $data->{'title'},
- author => $data->{'author'},
- description => $data->{'description'},
- loggedinuser => $loggedinuser,
- intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
- );
-
-my ($count, at bibitems)=bibitems($data->{'biblionumber'});
-
-my @bibitemloop;
-
-for (my $i=0;$i<$count;$i++){
- my %line;
- $line{biblioitemnumber} = $bibitems[$i]->{'biblioitemnumber'};
- $line{description} = $bibitems[$i]->{'description'};
- $line{isbn} = $bibitems[$i]->{'isbn'};
- push(@bibitemloop,\%line);
-}
-$template->param(bibitemloop =>\@bibitemloop);
-
-
-#my $notesinput=$input->textfield(-name=>'Notes', -default=>$data->{'bnotes'}, -size=>20);
-$template->param(bnotes=>$data->{'bnotes'});
-
-$template->param(itemtype => $data->{'itemtype'});
-
-$template->param(url => $data->{'url'});
-$template->param(classification => $data->{'classification'},
- dewey => $dewey,
- subclass => $data->{'subclass'},
- publishercode => $data->{'publishercode'},
- place => $data->{'place'},
- isbn => $data->{'isbn'},
- publicationyear => $data->{'publicationyear'},
- pages => $data->{'pages'},
- illustration => $data->{'illustration'},
- volumeddesc => $data->{'volumeddesc'},
- size => $data->{'size'},
- biblionumber => $data->{'biblionumber'},
- biblioitemnumber => $data->{'biblioitemnumber'});
-
-my (@items)=itemissues($data->{'biblioitemnumber'});
-#print @items;
-my @itemloop;
-my $count=@items;
-for (my $i=0;$i<$count;$i++){
- my %line;
- $items[$i]->{'datelastseen'} = format_date($items[$i]->{'datelastseen'});
- $line{barcode}=$items[$i]->{'barcode'};
- $line{itemnumber}=$items[$i]->{'itemnumber'};
- $line{biblionumber}=$data->{'biblionumber'};
- $line{biblioitemnumber}=$data->{'biblioitemnumber'};
- $line{holdingbranch}=$items[$i]->{'holdingbranch'};
- $line{datelastseen}=$items[$i]->{'datelastseen'};
- push(@itemloop,\%line);
-}
-$template->param(itemloop => \@itemloop);
-print "Content-Type: text/html\n\n", $template->output;
-
Index: deletebiblioitem.pl
===================================================================
RCS file: deletebiblioitem.pl
diff -N deletebiblioitem.pl
--- deletebiblioitem.pl 16 Oct 2002 12:35:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,39 +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;
-use C4::Biblio; # For &deletebiblioitem
-use CGI;
-
-my $input = new CGI;
-my $biblionumber = $input->param('biblionumber');
-my $biblioitemnumber = $input->param('biblioitemnumber');
-
-if (! $biblionumber) {
- print $input->redirect("/catalogue/");
-
-} elsif (! $biblioitemnumber) {
- print $input->param("detail.pl?type=intra&bib=$biblionumber");
-
-} else {
- &deletebiblioitem($biblioitemnumber);
-
- print $input->redirect("detail.pl?type=intra&bib=$biblionumber");
-} # else
More information about the Koha-cvs
mailing list