Lines 701-707
sub CanBookBeIssued {
Link Here
|
701 |
} |
701 |
} |
702 |
if ($duedate) { |
702 |
if ($duedate) { |
703 |
my $today = $now->clone(); |
703 |
my $today = $now->clone(); |
704 |
$today->truncate( to => 'minutes'); |
704 |
$today->truncate( to => 'minute'); |
705 |
if (DateTime->compare($duedate,$today) == -1 ) { # duedate cannot be before now |
705 |
if (DateTime->compare($duedate,$today) == -1 ) { # duedate cannot be before now |
706 |
$needsconfirmation{INVALID_DATE} = output_pref($duedate); |
706 |
$needsconfirmation{INVALID_DATE} = output_pref($duedate); |
707 |
} |
707 |
} |
Lines 738-745
sub CanBookBeIssued {
Link Here
|
738 |
day => $d, |
738 |
day => $d, |
739 |
time_zone => C4::Context->tz, |
739 |
time_zone => C4::Context->tz, |
740 |
); |
740 |
); |
741 |
$expiry_dt->truncate( to => 'days'); |
741 |
$expiry_dt->truncate( to => 'day'); |
742 |
my $today = $now->clone()->truncate(to => 'days'); |
742 |
my $today = $now->clone()->truncate(to => 'day'); |
743 |
if (DateTime->compare($today, $expiry_dt) == 1) { |
743 |
if (DateTime->compare($today, $expiry_dt) == 1) { |
744 |
$issuingimpossible{EXPIRED} = 1; |
744 |
$issuingimpossible{EXPIRED} = 1; |
745 |
} |
745 |
} |
Lines 1051-1057
sub AddIssue {
Link Here
|
1051 |
$datedue = CalcDateDue( $issuedate, $itype, $branch, $borrower ); |
1051 |
$datedue = CalcDateDue( $issuedate, $itype, $branch, $borrower ); |
1052 |
|
1052 |
|
1053 |
} |
1053 |
} |
1054 |
$datedue->truncate( to => 'minutes'); |
1054 |
$datedue->truncate( to => 'minute'); |
1055 |
$sth->execute( |
1055 |
$sth->execute( |
1056 |
$borrower->{'borrowernumber'}, # borrowernumber |
1056 |
$borrower->{'borrowernumber'}, # borrowernumber |
1057 |
$item->{'itemnumber'}, # itemnumber |
1057 |
$item->{'itemnumber'}, # itemnumber |
Lines 2081-2090
sub GetItemIssue {
Link Here
|
2081 |
my $data = $sth->fetchrow_hashref; |
2081 |
my $data = $sth->fetchrow_hashref; |
2082 |
return unless $data; |
2082 |
return unless $data; |
2083 |
$data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); |
2083 |
$data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); |
2084 |
$data->{issuedate}->truncate(to => 'minutes'); |
2084 |
$data->{issuedate}->truncate(to => 'minute'); |
2085 |
$data->{date_due} = dt_from_string($data->{date_due}, 'sql'); |
2085 |
$data->{date_due} = dt_from_string($data->{date_due}, 'sql'); |
2086 |
$data->{date_due}->truncate(to => 'minutes'); |
2086 |
$data->{date_due}->truncate(to => 'minute'); |
2087 |
my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minutes'); |
2087 |
my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minute'); |
2088 |
$data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; |
2088 |
$data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; |
2089 |
return $data; |
2089 |
return $data; |
2090 |
} |
2090 |
} |
Lines 2129-2135
sub GetItemIssues {
Link Here
|
2129 |
my ( $itemnumber, $history ) = @_; |
2129 |
my ( $itemnumber, $history ) = @_; |
2130 |
|
2130 |
|
2131 |
my $today = DateTime->now( time_zome => C4::Context->tz); # get today date |
2131 |
my $today = DateTime->now( time_zome => C4::Context->tz); # get today date |
2132 |
$today->truncate( to => 'minutes' ); |
2132 |
$today->truncate( to => 'minute' ); |
2133 |
my $sql = "SELECT * FROM issues |
2133 |
my $sql = "SELECT * FROM issues |
2134 |
JOIN borrowers USING (borrowernumber) |
2134 |
JOIN borrowers USING (borrowernumber) |
2135 |
JOIN items USING (itemnumber) |
2135 |
JOIN items USING (itemnumber) |
Lines 2151-2157
sub GetItemIssues {
Link Here
|
2151 |
my $results = $sth->fetchall_arrayref({}); |
2151 |
my $results = $sth->fetchall_arrayref({}); |
2152 |
foreach (@$results) { |
2152 |
foreach (@$results) { |
2153 |
my $date_due = dt_from_string($_->{date_due},'sql'); |
2153 |
my $date_due = dt_from_string($_->{date_due},'sql'); |
2154 |
$date_due->truncate( to => 'minutes' ); |
2154 |
$date_due->truncate( to => 'minute' ); |
2155 |
|
2155 |
|
2156 |
$_->{overdue} = (DateTime->compare($date_due, $today) == -1) ? 1 : 0; |
2156 |
$_->{overdue} = (DateTime->compare($date_due, $today) == -1) ? 1 : 0; |
2157 |
} |
2157 |
} |