[Koha-cvs] CVS: koha/C4 Biblio.pm,1.20,1.21

[Andrew Arensburger]

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

Modified Files:
        Biblio.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: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** Biblio.pm   13 Oct 2002 08:28:32 -0000      1.20
--- Biblio.pm   13 Oct 2002 11:34:14 -0000      1.21
***************
*** 2,5 ****
--- 2,9 ----
  # $Id$
  # $Log$
+ # Revision 1.21  2002/10/13 11:34:14  arensb
+ # Replaced expressions of the form "$x = $x <op> $y" with "$x <op>= $y".
+ # Thus, $x = $x+2 becomes $x += 2, and so forth.
+ #
  # Revision 1.20  2002/10/13 08:28:32  arensb
  # Deleted unused variables.
***************
*** 1203,1207 ****
          $sth2->execute;
          while (my $data = $sth2->fetchrow_hashref) {
!           $error = $error."<br>$data->{'catalogueentry'}";    # FIXME - .=
          } # while
          $sth2->finish;
--- 1207,1211 ----
          $sth2->execute;
          while (my $data = $sth2->fetchrow_hashref) {
!           $error .= "<br>$data->{'catalogueentry'}";
          } # while
          $sth2->finish;
***************
*** 1467,1471 ****
    $query="Insert into deleteditems values (";
    foreach my $temp (@data){
!     $query=$query."'$temp',";         # FIXME - .=
    }
    $query=~ s/\,$/\)/;
--- 1471,1475 ----
    $query="Insert into deleteditems values (";
    foreach my $temp (@data){
!     $query .= "'$temp',";
    }
    $query=~ s/\,$/\)/;
***************
*** 1536,1540 ****
      foreach my $temp (@data){
        $temp=~ s/\'/\\\'/g;
!       $query=$query."'$temp',";               # FIXME - .=
      }
      $query=~ s/\,$/\)/;
--- 1540,1544 ----
      foreach my $temp (@data){
        $temp=~ s/\'/\\\'/g;
!       $query .= "'$temp',";
      }
      $query=~ s/\,$/\)/;