[Koha-cvs] koha updatebibitem.pl [rel_2_2]
Robert Lyon
bob at katipo.co.nz
Thu Feb 23 04:33:17 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Robert Lyon <bob_lyon at savannah.gnu.org> 06/02/23 03:33:17
Modified files:
. : updatebibitem.pl
Log message:
Adding ability to update ISSN number
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/updatebibitem.pl.diff?only_with_tag=rel_2_2&tr1=1.12&tr2=1.12.4.1&r1=text&r2=text
Patches:
Index: koha/updatebibitem.pl
diff -u /dev/null koha/updatebibitem.pl:1.12.4.1
--- /dev/null Thu Feb 23 03:33:17 2006
+++ koha/updatebibitem.pl Thu Feb 23 03:33:17 2006
@@ -0,0 +1,205 @@
+#!/usr/bin/perl
+
+# $Id: updatebibitem.pl,v 1.12.4.1 2006/02/23 03:33:17 bob_lyon Exp $
+
+# 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 CGI;
+use strict;
+use C4::Biblio;
+use C4::Output;
+use C4::Search;
+
+my $input= new CGI;
+#print $input->header;
+#print $input->Dump;
+
+my $bibitemnum = checkinp($input->param('bibitemnum'));
+my $bibnum = checkinp($input->param('bibnum'));
+my $itemtype = checkinp($input->param('Item'));
+my $url = checkinp($input->param('url'));
+my $isbn = checkinp($input->param('ISBN'));
+my $issn = checkinp($input->param('ISSN'));
+my $publishercode = checkinp($input->param('Publisher'));
+my $publicationdate = checkinp($input->param('Publication'));
+my $class = checkinp($input->param('Class'));
+my $illus = checkinp($input->param('Illustrations'));
+my $pages = checkinp($input->param('Pages'));
+my $volumeddesc = checkinp($input->param('Volume'));
+my $notes = checkinp($input->param('Notes'));
+my $size = checkinp($input->param('Size'));
+my $place = checkinp($input->param('Place'));
+my $classification;
+my $dewey;
+my $subclass;
+
+if ($itemtype ne 'NF') {
+ $classification=$class;
+} # if
+
+if ($class =~/[0-9]+/) {
+# print $class;
+ $dewey= $class;
+ $dewey=~ s/[a-z]+//gi;
+ my @temp;
+ if ($class =~ /\./) {
+ @temp=split(/[0-9]+\.[0-9]+/,$class);
+ } else {
+ @temp=split(/[0-9]+/,$class);
+ } # else
+ $classification=$temp[0];
+ $subclass=$temp[1];
+# print $classification,$dewey,$subclass;
+} else {
+ $dewey='';
+ $subclass='';
+} # else
+
+my (@items) = &itemissues($bibitemnum);
+#print @items;
+my $count = @items;
+#print $count;
+my @barcodes;
+
+my $existing=$input->param('existing');
+if ($existing eq 'YES'){
+# print "yes";
+ my $group=$input->param('existinggroup');
+ #go thru items assing selected ones to group
+ for (my $i=0;$i<$count;$i++){
+ my $temp="check_group_".$items[$i]->{'barcode'};
+ my $barcode=$input->param($temp);
+ if ($barcode ne ''){
+ moditem({ biblionumber => $bibnum,
+ notforloan => $items[$i]->{'notforloan'},
+ itemnumber => $items[$i]->{'itemnumber'},
+ group => $group
+ });
+# print "modify $items[$i]->{'itemnumber'} $group";
+ }
+ }
+ $bibitemnum=$group;
+} else {
+ my $flag;
+ my $flag2;
+ for (my $i=0;$i<$count;$i++){
+ my $temp="check_group_".$items[$i]->{'barcode'};
+ $barcodes[$i]=$input->param($temp);
+ if ($barcodes[$i] eq ''){
+ $flag="notall";
+ } else {
+ $flag2="leastone";
+ }
+ }
+ my $loan;
+ if ($flag eq 'notall' && $flag2 eq 'leastone'){
+ $bibitemnum = &newbiblioitem({
+ biblionumber => $bibnum,
+ itemtype => $itemtype?$itemtype:"",
+ url => $url?$url:"",
+ isbn => $isbn?$isbn:"",
+ issn => $issn?$issn:"",
+ publishercode => $publishercode?$publishercode:"",
+ publicationyear => $publicationdate?$publicationdate:"",
+ volumeddesc => $volumeddesc?$volumeddesc:"",
+ classification => $classification?$classification:"",
+ dewey => $dewey?$dewey:"",
+ subclass => $subclass?$subclass:"",
+ illus => $illus?$illus:"",
+ pages => $pages?$pages:"",
+ notes => $notes?$notes:"",
+ size => $size?$size:"",
+ place => $place?$place:"" });
+ if ($itemtype =~ /REF/){
+ $loan=1;
+ } else {
+ $loan=0;
+ }
+ for (my $i=0;$i<$count;$i++){
+ if ($barcodes[$i] ne ''){
+ moditem({ biblionumber => $bibnum,
+ loan => $loan,
+ itemnumber => $items[$i]->{'itemnumber'},
+ bibitemnum => $bibitemnum
+ });
+ }
+ }
+
+ } elsif ($flag2 eq 'leastone') {
+ &modbibitem({
+ biblioitemnumber => $bibitemnum,
+ biblionumber => $bibnum,
+ itemtype => $itemtype?$itemtype:"",
+ url => $url?$url:"",
+ isbn => $isbn?$isbn:"",
+ issn => $issn?$issn:"",
+ publishercode => $publishercode?$publishercode:"",
+ publicationyear => $publicationdate?$publicationdate:"",
+ classification => $classification?$classification:"",
+ dewey => $dewey?$dewey:"",
+ subclass => $subclass?$subclass:"",
+ illus => $illus?$illus:"",
+ pages => $pages?$pages:"",
+ volumeddesc => $volumeddesc?$volumeddesc:"",
+ notes => $notes?$notes:"",
+ size => $size?$size:"",
+ place => $place?$place:"" });
+ if ($itemtype =~ /REF/){
+ $loan=1;
+ } else {
+ $loan=0;
+ }
+ for (my $i=0;$i<$count;$i++){
+ if ($barcodes[$i] ne ''){
+ moditem( {biblionumber => $bibnum,
+ loan => $loan,
+ itemnumber => $items[$i]->{'itemnumber'},
+ bibitemnum => $bibitemnum
+ });
+ }
+ }
+
+ } else {
+ &modbibitem({
+ biblioitemnumber => $bibitemnum,
+ itemtype => $itemtype?$itemtype:"",
+ url => $url?$url:"",
+ isbn => $isbn?$isbn:"",
+ issn => $issn?$issn:"",
+ publishercode => $publishercode?$publishercode:"",
+ publicationyear => $publicationdate?$publicationdate:"",
+ classification => $classification?$classification:"",
+ dewey => $dewey?$dewey:"",
+ subclass => $subclass?$subclass:"",
+ illus => $illus?$illus:"",
+ pages => $pages?$pages:"",
+ volumeddesc => $volumeddesc?$volumeddesc:"",
+ notes => $notes?$notes:"",
+ size => $size?$size:"",
+ place => $place?$place:"" });
+ } # else
+}
+print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");
+
+
+sub checkinp{
+ my ($inp)=@_;
+ $inp=~ s/\'/\\\'/g;
+ $inp=~ s/\"/\\\"/g;
+ return($inp);
+}
More information about the Koha-cvs
mailing list