[Koha-cvs] CVS: koha updatebibitem.pl,1.10,1.11

[Andrew Arensburger]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv4663

Modified Files:
	updatebibitem.pl 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: updatebibitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/updatebibitem.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** updatebibitem.pl	5 Oct 2002 09:47:08 -0000	1.10
--- updatebibitem.pl	13 Oct 2002 07:35:50 -0000	1.11
***************
*** 1,4 ****
--- 1,5 ----
  #!/usr/bin/perl
  
+ # $Id$
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 70,74 ****
  
  my (@items) = &itemissues($bibitemnum);
! #print @items;           
  my $count   = @items;
  #print $count;
--- 71,75 ----
  
  my (@items) = &itemissues($bibitemnum);
! #print @items;
  my $count   = @items;
  #print $count;
***************
*** 137,141 ****
  	}
        }
!       
     } elsif ($flag2 eq 'leastone') {
        &modbibitem({
--- 138,142 ----
  	}
        }
! 
     } elsif ($flag2 eq 'leastone') {
        &modbibitem({
***************
*** 161,166 ****
          $loan=0;
        }
! 	for (my $i=0;$i<$count;$i++){                                             
! 	  if ($barcodes[$i] ne ''){                                               
  	    moditem( {biblionumber => $bibnum,
  		      loan         => $loan,
--- 162,167 ----
          $loan=0;
        }
! 	for (my $i=0;$i<$count;$i++){
! 	  if ($barcodes[$i] ne ''){
  	    moditem( {biblionumber => $bibnum,
  		      loan         => $loan,
***************
*** 168,174 ****
  		      bibitemnum   => $bibitemnum
  		      });
! 	  }                                                                       
  	}
!       
     } else {
       &modbibitem({
--- 169,175 ----
  		      bibitemnum   => $bibitemnum
  		      });
! 	  }
  	}
! 
     } else {
       &modbibitem({