[Koha-cvs] CVS: koha updatebibitem.pl,1.10,1.11
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 09:35:52 CEST 2002
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({
More information about the Koha-cvs
mailing list