[Koha-cvs] CVS: koha/C4 Accounts.pm,1.9,1.10

[Andrew Arensburger]

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

Modified Files:
        Accounts.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: Accounts.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Accounts.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** Accounts.pm 13 Oct 2002 05:50:40 -0000      1.9
--- Accounts.pm 13 Oct 2002 11:32:54 -0000      1.10
***************
*** 133,138 ****
      my $title = $itemdata->{'title'};
      if (length($title) > 15 ) {$title = substr($title,0,15);}
!     $line= $line.$itemdata->{'barcode'}." $title ".$data->{'description'};
!                               # FIXME - .=
      $line = fmtstr($env,$line,"L65")." ".fmtdec($env,$amount,"52");
      push @accountlines,$line;
--- 133,137 ----
      my $title = $itemdata->{'title'};
      if (length($title) > 15 ) {$title = substr($title,0,15);}
!     $line .= $itemdata->{'barcode'}." $title ".$data->{'description'};
      $line = fmtstr($env,$line,"L65")." ".fmtdec($env,$amount,"52");
      push @accountlines,$line;
***************
*** 174,179 ****
       if ($accdata->{'amountoutstanding'} < $amountleft) {
          $newamtos = 0;
!       $amountleft = $amountleft - $accdata->{'amountoutstanding'};
!                               # FIXME - -=
       }  else {
          $newamtos = $accdata->{'amountoutstanding'} - $amountleft;
--- 173,177 ----
       if ($accdata->{'amountoutstanding'} < $amountleft) {
          $newamtos = 0;
!       $amountleft -= $accdata->{'amountoutstanding'};
       }  else {
          $newamtos = $accdata->{'amountoutstanding'} - $amountleft;