[Koha-cvs] CVS: koha memberentry.pl,1.14,1.15

[Andrew Arensburger]

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

Modified Files:
        memberentry.pl 
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: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/memberentry.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** memberentry.pl      13 Oct 2002 07:33:10 -0000      1.14
--- memberentry.pl      13 Oct 2002 11:32:24 -0000      1.15
***************
*** 96,101 ****
        my $temp2 = substr($cardnumber,$i,1);   # sequence left to right, 1 
char at a time
    #print "$temp2<br>";
!       $sum = $sum + ($temp1*$temp2);  # mult each char 1-7 by its 
corresponding weighting
!                                       # FIXME - +=
        $i++;                           # increment counter
      }
--- 96,100 ----
        my $temp2 = substr($cardnumber,$i,1);   # sequence left to right, 1 
char at a time
    #print "$temp2<br>";
!       $sum += $temp1*$temp2;  # mult each char 1-7 by its corresponding 
weighting
        $i++;                           # increment counter
      }