[Koha-cvs] koha moditem.pl [dev_week]
Joshua Ferraro
jmf at kados.org
Sun Sep 24 02:13:58 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Joshua Ferraro <kados> 06/09/24 00:13:58
Removed files:
. : moditem.pl
Log message:
removing unused script
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/moditem.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.8.2.4&r2=0
Patches:
Index: moditem.pl
===================================================================
RCS file: moditem.pl
diff -N moditem.pl
--- moditem.pl 23 Feb 2006 02:50:36 -0000 1.8.2.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,139 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: moditem.pl,v 1.8.2.4 2006/02/23 02:50:36 bob_lyon Exp $
-
-
-#script to modify/delete biblios
-#written 8/11/99
-# modified 11/11/99 by chris at katipo.co.nz
-# modified 12/16/02 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;
-require Exporter;
-
-use C4::Search;
-use CGI;
-use C4::Output;
-#use C4::Acquisitions;
-use C4::Biblio;
-use HTML::Template;
-use C4::Koha;
-use C4::Acquisition;
-use C4::Auth;
-use C4::Interface::CGI::Output;
-
-my $input = new CGI;
-my $submit=$input->param('delete.x') || $input->param('delete');
-my $itemnum=$input->param('item');
-my $bibitemnum=$input->param('bibitem');
-if ($submit ne ''){
- print $input->redirect("/cgi-bin/koha/delitem.pl?itemnum=$itemnum&bibitemnum=$bibitemnum");
-}
-
-my $data=bibitemdata($bibitemnum);
-
-my $item=itemnodata('blah','',$itemnum);
-#my ($analytictitle)=analytic($biblionumber,'t');
-#my ($analyticauthor)=analytic($biblionumber,'a');
-
-
-my ($template, $loggedinuser, $cookie) = get_template_and_user({
- template_name => 'moditem.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";
-# FIXME - The Dewey code is a string, not a number. And "000" is a
-# perfectly acceptable value.
-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/\.$//;
-
-# 12/16/2002 hdl at ifrance.com : all these inputs seem unused !!!
-
-$inputs{'Barcode'}="text\t$item->{'barcode'}\t0";
-$inputs{'Class'}="hidden\t$data->{'classification'}$dewey$data->{'subclass'}\t2";
-#$inputs{'Item Type'}="text\t$data->{'itemtype'}\t3";
-#$inputs{'Subject'}="textarea\t$sub\t4";
-$inputs{'Publisher'}="hidden\t$data->{'publishercode'}\t5";
-#$inputs{'Copyright date'}="text\t$data->{'copyrightdate'}\t6";
-$inputs{'ISBN'}="hidden\t$data->{'isbn'}\t7";
-$inputs{'Publication Year'}="hidden\t$data->{'publicationyear'}\t8";
-$inputs{'Pages'}="hidden\t$data->{'pages'}\t9";
-$inputs{'Illustrations'}="hidden\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{'ItemNotes'}="textarea\t$item->{'itemnotes'}\t15";
-#$inputs{'Serial'}="text\t$data->{'serial'}\t16";
-$inputs{'Volume'}="hidden\t$data->{'volumeddesc'}\t17";
-$inputs{'Home Branch'}="text\t$item->{'homebranch'}\t18";
-$inputs{'Lost'}="radio\t$item->{'itemlost'}\t19";
-#$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";
-$inputs{'itemnumber'}="hidden\t$itemnum\t22";
-
-#12/16/2002 hdl at ifrance.com : end of comment
-
-
-
-#12/16/2002 hdl at ifrance.com : templating
-$template->param( title => $data->{'title'},
- author => $data->{'author'},
- barcode => $item->{'barcode'},
- classification => "$data->{'classification'}$dewey$data->{'subclass'}",
- publisher => $data->{'publisher'},
- publicationyear => $data->{'publicationyear'},
- pages => $data->{'pages'},
- illustration => $data->{'illustration'},
- itemnotes => $item->{'itemnotes'},
- volumedesc => $data->{'volumedesc'},
- homebranch => $data->{'homebranch'},
- itemlost => ($item->{'itemlost'} ==1),
- itemwithdrawn => ($item->{'wthdrawn'} ==1),
- biblionumber => $data->{'biblionumber'},
- biblioitemnumber => $data->{'biblioitemnumber'},
- itemnumber => $itemnum,
- intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
- );
-
-print "Content-Type: text/html\n\n", $template->output;
-#12/16/2002 hdl at ifrance.com : templating
More information about the Koha-cvs
mailing list