deleting unused template

[koha.git] / updatebibitem.pl

diff --git a/updatebibitem.pl b/updatebibitem.pl
index 8c3851e..210d47f 100755 (executable)
--- a/updatebibitem.pl
+++ b/updatebibitem.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -18,10 +19,9 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-use C4::Database;
 use CGI;
 use strict;
-use C4::Acquisitions;
+use C4::Biblio;
 use C4::Output;
 use C4::Search;
 
@@ -70,7 +70,7 @@ if ($class =~/[0-9]+/) {
 } # else
 
 my (@items) = &itemissues($bibitemnum);
-#print @items;           
+#print @items;
 my $count   = @items;
 #print $count;
 my @barcodes;
@@ -84,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";
     }
   }
@@ -126,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:"",
@@ -152,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,