use strict;
use warnings;
-use DateTime;
use Sys::Syslog qw(syslog);
use Carp;
# check if its on issue and if so get the borrower
my $issue = GetItemIssue($item->{'itemnumber'});
- if ( $issue ) {
- my $date = $issue->{ date_due };
- my $dt = DateTime->new(
- year => substr($date, 0, 4),
- month => substr($date,5,2),
- day => substr($date, 8, 2) );
- $item->{ due_date } = $dt->epoch();
+ if ($issue) {
+ $item->{due_date} = $issue->{date_due};
}
my $borrower = GetMember(borrowernumber=>$issue->{'borrowernumber'});
$item->{patron} = $borrower->{'cardnumber'};
$item->{hold_queue} = [ sort priority_sort @$arrayref ];
$item->{hold_shelf} = [( grep { defined $_->{found} and $_->{found} eq 'W' } @{$item->{hold_queue}} )];
$item->{pending_queue} = [( grep {(! defined $_->{found}) or $_->{found} ne 'W' } @{$item->{hold_queue}} )];
- $item->{due_date} = $issue->{date_due};
$self = $item;
bless $self, $type;
use English;
use Exporter;
-use DateTime;
use Sys::Syslog qw(syslog);
use POSIX qw(strftime);
use Socket qw(:crlf);
sub timestamp {
my $time = $_[0] || time();
if ($time=~m/^(\d{4})\-(\d{2})\-(\d{2})/) {
- my $dt = DateTime->new(
- year => $1,
- month => $2,
- day => $3);
- $time = $dt->epoch();
+ # passing a db returned date as is + bogus time
+ return sprintf( '%04d%02d%02d 235900', $1, $2, $3);
}
return strftime(SIP_DATETIME, localtime($time));
}
if (($i = scalar @{$item->hold_queue}) > 0) {
$resp .= add_field(FID_HOLD_QUEUE_LEN, $i);
}
- if (($i = $item->due_date) != 0) {
- $resp .= add_field(FID_DUE_DATE, Sip::timestamp($i));
+ if ($item->due_date) {
+ $resp .= add_field(FID_DUE_DATE, Sip::timestamp($item->due_date));
}
if (($i = $item->recall_date) != 0) {
$resp .= add_field(FID_RECALL_DATE, Sip::timestamp($i));