[Koha-cvs] CVS: koha/C4 Input.pm,1.7,1.8
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 13:35:10 CEST 2002
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv4865
Modified Files:
Input.pm
Log Message:
Replaced expressions of the form "$x = $x <op> $y" with "$x <op>= $y".
Thus, $x = $x+2 becomes $x += 2, and so forth.
Index: Input.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Input.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** Input.pm 13 Oct 2002 06:03:38 -0000 1.7
--- Input.pm 13 Oct 2002 11:35:08 -0000 1.8
***************
*** 137,149 ****
$c+=$digit*(10-$i);
}
! $c=$c%11; # % is the modulus function
! # FIXME - %=
($c==10) && ($c='X');
# FIXME - $isbngood = $c eq $checksum;
! if ($c eq $checksum) {
! $isbngood=1;
! } else {
! $isbngood=0;
! }
} else {
# FIXME - Put "return 0 if $length($q) != 10" near the
--- 137,144 ----
$c+=$digit*(10-$i);
}
! $c %= 11;
($c==10) && ($c='X');
# FIXME - $isbngood = $c eq $checksum;
! $isbngood = $c eq $checksum;
} else {
# FIXME - Put "return 0 if $length($q) != 10" near the
More information about the Koha-cvs
mailing list