[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
      }