diff options
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Admin/ExorDefects.pm | 1 | ||||
| -rw-r--r-- | perllib/FixMyStreet/Integrations/ExorRDI.pm | 8 |
2 files changed, 5 insertions, 4 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin/ExorDefects.pm b/perllib/FixMyStreet/App/Controller/Admin/ExorDefects.pm index 1711ecb10..b03a2ab98 100644 --- a/perllib/FixMyStreet/App/Controller/Admin/ExorDefects.pm +++ b/perllib/FixMyStreet/App/Controller/Admin/ExorDefects.pm @@ -56,6 +56,7 @@ sub download : Path('download') : Args(0) { my $params = { start_date => $start_date, + inspection_date => $start_date, end_date => $end_date + $one_day, user => $c->get_param('user_id'), }; diff --git a/perllib/FixMyStreet/Integrations/ExorRDI.pm b/perllib/FixMyStreet/Integrations/ExorRDI.pm index dab307fff..87565767a 100644 --- a/perllib/FixMyStreet/Integrations/ExorRDI.pm +++ b/perllib/FixMyStreet/Integrations/ExorRDI.pm @@ -23,7 +23,7 @@ use Scalar::Util 'blessed'; use FixMyStreet::DB; use namespace::clean; -has [qw(start_date end_date)] => ( +has [qw(start_date end_date inspection_date)] => ( is => 'ro', required => 1, ); @@ -154,8 +154,8 @@ sub construct { $link_id, # area/link id, fixed value for our purposes "","", # must be empty $initials || "XX", # inspector initials - $self->start_date->strftime("%y%m%d"), # date of inspection yymmdd - "0700", # time of inspection hhmm, set to static value for now + $self->inspection_date->strftime("%y%m%d"), # date of inspection yymmdd + "1600", # time of inspection hhmm, set to static value for now "D", # inspection variant, should always be D "INS", # inspection type, always INS "N", # Area of the county - north (N) or south (S) @@ -204,7 +204,7 @@ has filename => ( is => 'lazy', default => sub { my $self = shift; - my $start = $self->start_date->strftime("%Y%m%d"); + my $start = $self->inspection_date->strftime("%Y%m%d"); my $end = $self->end_date->strftime("%Y%m%d"); my $filename = sprintf("exor_defects-%s-%s.rdi", $start, $end); if ( $self->user ) { |