[Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.29,1.30

[Andrew Arensburger]

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

Modified Files:
        Acquisitions.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: Acquisitions.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -r1.29 -r1.30
*** Acquisitions.pm     13 Oct 2002 08:27:49 -0000      1.29
--- Acquisitions.pm     13 Oct 2002 11:33:34 -0000      1.30
***************
*** 823,827 ****
          $sth2->execute;
          while (my $data = $sth2->fetchrow_hashref) {
!           $error = $error."<br>$data->{'catalogueentry'}";    # FIXME - .=
          } # while
          $sth2->finish;
--- 823,827 ----
          $sth2->execute;
          while (my $data = $sth2->fetchrow_hashref) {
!           $error .= "<br>$data->{'catalogueentry'}";
          } # while
          $sth2->finish;
***************
*** 1267,1271 ****
      $cur=1;
    }
!   $price=$price / $cur;               # FIXME - /=
    return($price);
  }
--- 1267,1271 ----
      $cur=1;
    }
!   $price /= $cur;
    return($price);
  }
***************
*** 1579,1583 ****
    $query="Insert into deleteditems values (";
    foreach my $temp (@data){
!     $query=$query."'$temp',";         # FIXME - .=
    }
    $query=~ s/\,$/\)/;
--- 1579,1583 ----
    $query="Insert into deleteditems values (";
    foreach my $temp (@data){
!     $query .= "'$temp',";
    }
    $query=~ s/\,$/\)/;
***************
*** 1666,1670 ****
      foreach my $temp (@data){
        $temp=~ s/\'/\\\'/g;
!       $query=$query."'$temp',";               # FIXME - .=
      }
      $query=~ s/\,$/\)/;
--- 1666,1670 ----
      foreach my $temp (@data){
        $temp=~ s/\'/\\\'/g;
!       $query .= "'$temp',";
      }
      $query=~ s/\,$/\)/;