[Koha-cvs] CVS: koha/C4 Input.pm,1.7,1.8

[Andrew Arensburger]

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