[Koha-cvs] CVS: koha/C4/Circulation Renewals.pm,1.4,1.5

Andrew Arensburger arensb at users.sourceforge.net
Sun Oct 13 13:37:32 CEST 2002


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

Modified Files:
	Renewals.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: Renewals.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Renewals.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Renewals.pm	13 Oct 2002 06:22:48 -0000	1.4
--- Renewals.pm	13 Oct 2002 11:37:30 -0000	1.5
***************
*** 203,219 ****
          $dbh,$issrec->{'itemnumber'});
       if ($resbor ne "") {
!        $line = $line."R";		# FIXME - .=
         $rstatuses[$x] ="R";
       } elsif ($renewstatus == 0) {
!        $line = $line."N";		# FIXME - .=
         $rstatuses[$x] = "N";
       } else {
!        $line = $line."Y";		# FIXME - .=
         $rstatuses[$x] = "Y";
       }
!      $line = $line.fmtdec($env,$issrec->{'renewals'},"20")." ";
! 					# FIXME - .=
!      $line = $line.$itemdata->{'barcode'}." ".$itemdata->{'itemtype'}." ".$itemdata->{'title'};
! 					# FIXME - .=
       $items[$x] = $line;
       #debug_msg($env,$line);
--- 203,217 ----
          $dbh,$issrec->{'itemnumber'});
       if ($resbor ne "") {
!        $line .= "R";
         $rstatuses[$x] ="R";
       } elsif ($renewstatus == 0) {
!        $line .= "N";
         $rstatuses[$x] = "N";
       } else {
!        $line .= "Y";
         $rstatuses[$x] = "Y";
       }
!      $line .= fmtdec($env,$issrec->{'renewals'},"20")." ";
!      $line .= $itemdata->{'barcode'}." ".$itemdata->{'itemtype'}." ".$itemdata->{'title'};
       $items[$x] = $line;
       #debug_msg($env,$line);





More information about the Koha-cvs mailing list