X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=updatebibitem.pl;h=210d47f2b8f9a2de49186c423196f768d64f9620;hb=b6be7c80da325774e70183ec3c196a338c1818e8;hp=67875a6281d18d6e7799ffad7f08d947949ef1e6;hpb=da5071c2fdd903553a7fa9c0d5f9a5532bc6e15e;p=koha.git

diff --git a/updatebibitem.pl b/updatebibitem.pl
index 67875a6281..210d47f2b8 100755
--- a/updatebibitem.pl
+++ b/updatebibitem.pl
@@ -1,13 +1,33 @@
 #!/usr/bin/perl
 
-use C4::Database;
+# $Id$
+
+# 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::Acquisitions;
+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'));
@@ -32,6 +52,7 @@ if ($itemtype ne 'NF') {
 } # if
 
 if ($class =~/[0-9]+/) {
+#   print $class;
    $dewey= $class;
    $dewey=~ s/[a-z]+//gi;
    my @temp;
@@ -42,14 +63,16 @@ if ($class =~/[0-9]+/) {
    } # 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');
@@ -61,7 +84,11 @@ if ($existing eq 'YES'){
     my $temp="check_group_".$items[$i]->{'barcode'};
     my $barcode=$input->param($temp);
     if ($barcode ne ''){
-      moditem($items[$i]->{'notforloan'},$items[$i]->{'itemnumber'},$group);
+      moditem({ biblionumber => $bibnum,
+		notforloan   => $items[$i]->{'notforloan'},
+		itemnumber   => $items[$i]->{'itemnumber'},
+		group        => $group
+		    });
 #      print "modify $items[$i]->{'itemnumber'} $group";
     }
   }
@@ -103,13 +130,18 @@ if ($existing eq 'YES'){
       }
       for (my $i=0;$i<$count;$i++){
         if ($barcodes[$i] ne ''){
-	  moditem($loan,$items[$i]->{'itemnumber'},$bibitemnum);
+	  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:"",
@@ -129,12 +161,16 @@ if ($existing eq 'YES'){
       } else {
         $loan=0;
       }
-	for (my $i=0;$i<$count;$i++){                                             
-	  if ($barcodes[$i] ne ''){                                               
-	    moditem($loan,$items[$i]->{'itemnumber'},$bibitemnum);                
-	  }                                                                       
+	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,