[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.82,1.83

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4/Circulation
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9773/C4/Circulation

Modified Files:
        Circ2.pm 
Log Message:
bugfix for manually fixed duedate on issue.

Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.82
retrieving revision 1.83
diff -C2 -r1.82 -r1.83
*** Circ2.pm    15 Sep 2004 16:09:57 -0000      1.82
--- Circ2.pm    15 Sep 2004 16:27:18 -0000      1.83
***************
*** 801,804 ****
--- 801,805 ----
  sub issuebook {
        my ($env,$borrower,$barcode,$date) = @_;
+       warn "D : $date";
        my $dbh = C4::Context->dbh;
  #     my ($borrower, $flags) = &getpatroninformation($env, $borrowernumber, 
0);
***************
*** 855,860 ****
                my @datearr = localtime($datedue);
                my $dateduef = 
(1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
!               if ($env->{'datedue'}) {
!                       $dateduef=$env->{'datedue'};
                }
                $sth->execute($borrower->{'borrowernumber'}, 
$iteminformation->{'itemnumber'}, $dateduef, $env->{'branchcode'});
--- 856,861 ----
                my @datearr = localtime($datedue);
                my $dateduef = 
(1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
!               if ($date) {
!                       $dateduef=$date;
                }
                $sth->execute($borrower->{'borrowernumber'}, 
$iteminformation->{'itemnumber'}, $dateduef, $env->{'branchcode'});