bugfix for manually fixed duedate on issue.

C4/Circulation/Circ2.pm

@@ -800,6 +800,7 @@ C<$date> contains the max date of return. calculated if empty.
 #
 sub issuebook {
 	my ($env,$borrower,$barcode,$date) = @_;
+	warn "D : $date";
 	my $dbh = C4::Context->dbh;
 #	my ($borrower, $flags) = &getpatroninformation($env, $borrowernumber, 0);
 	my $iteminformation = getiteminformation($env, 0, $barcode);
@@ -854,8 +855,8 @@ sub issuebook {
 		my $datedue=time+($loanlength)*86400;
 		my @datearr = localtime($datedue);
 		my $dateduef = (1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
-		if ($env->{'datedue'}) {
-			$dateduef=$env->{'datedue'};
+		if ($date) {
+			$dateduef=$date;
 		}
 		$sth->execute($borrower->{'borrowernumber'}, $iteminformation->{'itemnumber'}, $dateduef, $env->{'branchcode'});
 		$sth->finish;

circ/circulation.pl

@@ -148,6 +148,9 @@ if ($barcode) {
 							NEEDSCONFIRMATION => 1);
 			$noquestion = 0;
 		}
+		$template->param(day => $day,
+						month => $month,
+						year => $year);
 		if ($noerror && ($noquestion || $issueconfirmed)) {
 			issuebook(\%env, $borrower, $barcode, $datedue);
 		}

koha-tmpl/intranet-tmpl/default/en/circ/circulation.tmpl

@@ -195,6 +195,9 @@
 				<input type="hidden" name="barcode" value="<!-- TMPL_VAR NAME="barcode" -->">
 				<input type="hidden" name="borrnumber" value="<!-- TMPL_VAR NAME="borrowernumber">">
 				<input type="hidden" name="issueconfirmed" value="1">
+				<input type="hidden" name="day" value="<!-- TMPL_VAR name="day" -->">
+				<input type="hidden" name="month" value="<!-- TMPL_VAR name="month" -->">
+				<input type="hidden" name="year" value="<!-- TMPL_VAR name="year" -->">
 				<input type="submit" value="Confirm issue" class="button circulation">
 			</form>
 			<!-- /TMPL_UNLESS -->