[Koha-cvs] CVS: koha/C4/Circulation Issues.pm,1.5,1.6

[Andrew Arensburger]

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

Modified Files:
        Issues.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: Issues.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Issues.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** Issues.pm   13 Oct 2002 08:31:35 -0000      1.5
--- Issues.pm   13 Oct 2002 11:37:16 -0000      1.6
***************
*** 200,210 ****
       $dewey =~ s/0*$//;
       $dewey =~ s/\.$//;
!      $iclass = $iclass.$dewey.$item->{'subclass'};    # FIXME - .=
     };
     my $llen = 65 - length($iclass);
     my $line = fmtstr($env,$line,"L".$llen);
                # FIXME - Use sprintf() instead of &fmtstr.
!    my $line = $line." $iclass ";              # FIXME - .=
!    my $line = $line.fmtdec($env,$charge,"22");        # FIXME - .=
     return $line;
  }
--- 200,210 ----
       $dewey =~ s/0*$//;
       $dewey =~ s/\.$//;
!      $iclass .= $dewey.$item->{'subclass'};
     };
     my $llen = 65 - length($iclass);
     my $line = fmtstr($env,$line,"L".$llen);
                # FIXME - Use sprintf() instead of &fmtstr.
!    my $line .= " $iclass ";
!    my $line .= fmtdec($env,$charge,"22");
     return $line;
  }
***************
*** 285,290 ****
         my $resborrower = $btsh->fetchrow_hashref;
         my $msgtxt = chr(7)."Res for $resborrower->{'cardnumber'},";
!          $msgtxt = $msgtxt." $resborrower->{'initials'} 
$resborrower->{'surname'}";
!               # FIXME - .=
           my $ans = msg_ny($env,$msgtxt,"Allow issue?");
         if ($ans eq "N") {
--- 285,289 ----
         my $resborrower = $btsh->fetchrow_hashref;
         my $msgtxt = chr(7)."Res for $resborrower->{'cardnumber'},";
!          $msgtxt .= " $resborrower->{'initials'} $resborrower->{'surname'}";
           my $ans = msg_ny($env,$msgtxt,"Allow issue?");
         if ($ans eq "N") {