|
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 2084-2093
sub GetItemIssue {
Link Here
|
| 2084 |
my $data = $sth->fetchrow_hashref; |
2084 |
my $data = $sth->fetchrow_hashref; |
| 2085 |
return unless $data; |
2085 |
return unless $data; |
| 2086 |
$data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); |
2086 |
$data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); |
| 2087 |
$data->{issuedate}->truncate(to => 'minutes'); |
2087 |
$data->{issuedate}->truncate(to => 'minute'); |
| 2088 |
$data->{date_due} = dt_from_string($data->{date_due}, 'sql'); |
2088 |
$data->{date_due} = dt_from_string($data->{date_due}, 'sql'); |
| 2089 |
$data->{date_due}->truncate(to => 'minutes'); |
2089 |
$data->{date_due}->truncate(to => 'minute'); |
| 2090 |
my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minutes'); |
2090 |
my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minute'); |
| 2091 |
$data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; |
2091 |
$data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; |
| 2092 |
return $data; |
2092 |
return $data; |
| 2093 |
} |
2093 |
} |
|
Lines 2132-2138
sub GetItemIssues {
Link Here
|
| 2132 |
my ( $itemnumber, $history ) = @_; |
2132 |
my ( $itemnumber, $history ) = @_; |
| 2133 |
|
2133 |
|
| 2134 |
my $today = DateTime->now( time_zome => C4::Context->tz); # get today date |
2134 |
my $today = DateTime->now( time_zome => C4::Context->tz); # get today date |
| 2135 |
$today->truncate( to => 'minutes' ); |
2135 |
$today->truncate( to => 'minute' ); |
| 2136 |
my $sql = "SELECT * FROM issues |
2136 |
my $sql = "SELECT * FROM issues |
| 2137 |
JOIN borrowers USING (borrowernumber) |
2137 |
JOIN borrowers USING (borrowernumber) |
| 2138 |
JOIN items USING (itemnumber) |
2138 |
JOIN items USING (itemnumber) |
|
Lines 2154-2160
sub GetItemIssues {
Link Here
|
| 2154 |
my $results = $sth->fetchall_arrayref({}); |
2154 |
my $results = $sth->fetchall_arrayref({}); |
| 2155 |
foreach (@$results) { |
2155 |
foreach (@$results) { |
| 2156 |
my $date_due = dt_from_string($_->{date_due},'sql'); |
2156 |
my $date_due = dt_from_string($_->{date_due},'sql'); |
| 2157 |
$date_due->truncate( to => 'minutes' ); |
2157 |
$date_due->truncate( to => 'minute' ); |
| 2158 |
|
2158 |
|
| 2159 |
$_->{overdue} = (DateTime->compare($date_due, $today) == -1) ? 1 : 0; |
2159 |
$_->{overdue} = (DateTime->compare($date_due, $today) == -1) ? 1 : 0; |
| 2160 |
} |
2160 |
} |