Added magic RCS comment.

[koha-ffzg.git] / updatebibitem.pl

diff --git a/updatebibitem.pl b/updatebibitem.pl
index c5fd6b3..cf19a3e 100755 (executable)
--- a/updatebibitem.pl
+++ b/updatebibitem.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -18,7 +19,6 @@
 # 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;
@@ -70,7 +70,7 @@ if ($class =~/[0-9]+/) {
 } # else
 
 my (@items) = &itemissues($bibitemnum);
-#print @items;           
+#print @items;
 my $count   = @items;
 #print $count;
 my @barcodes;
@@ -137,7 +137,7 @@ if ($existing eq 'YES'){
                    });
        }
       }
-      
+
    } elsif ($flag2 eq 'leastone') {
       &modbibitem({
          biblioitemnumber => $bibitemnum,
@@ -161,16 +161,16 @@ if ($existing eq 'YES'){
       } else {
         $loan=0;
       }
-       for (my $i=0;$i<$count;$i++){                                             
-         if ($barcodes[$i] ne ''){                                               
+       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,