[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'});