diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-08-02 16:38:37 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-08-02 16:38:37 +0100 |
| commit | 6b1256bd00abf11accb6620f1aab3cd70f4ddd3c (patch) | |
| tree | 76b461feb5ea73eaf66988df93dca18a8f81326a /perllib/FixMyStreet/Integrations/ExorRDI.pm | |
| parent | 83d89e76fd1c6f699daeb986ae8f8a481336253e (diff) | |
| parent | 73fcb170e189bbcac6710da7a8ea469989d18f71 (diff) | |
Merge remote-tracking branch 'origin/issues/forcouncils/213-rdi-tweek'
Diffstat (limited to 'perllib/FixMyStreet/Integrations/ExorRDI.pm')
| -rw-r--r-- | perllib/FixMyStreet/Integrations/ExorRDI.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Integrations/ExorRDI.pm b/perllib/FixMyStreet/Integrations/ExorRDI.pm index 87565767a..4ce888cff 100644 --- a/perllib/FixMyStreet/Integrations/ExorRDI.pm +++ b/perllib/FixMyStreet/Integrations/ExorRDI.pm @@ -139,11 +139,14 @@ sub construct { "","","","","" # empty fields ); + my $m_row_activity_code = $activity_code; + $m_row_activity_code .= 'I' if length $activity_code == 1; + $csv->add_row($body_by_activity_code{$activity_code}, "M", # bill of quantities record "resolve", # permanent repair "","", # empty fields - "/C$activity_code", # /C + activity code + "/C$m_row_activity_code", # /C + activity code + perhaps an "I" "", "" # empty fields ); } |