[Koha-cvs] CVS: koha/C4/Circulation Issues.pm,1.5,1.6
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 13:37:18 CEST 2002
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") {
More information about the Koha-cvs
mailing list