From 5c871b7093ac2fd137b980979bb210cc1cad59a7 Mon Sep 17 00:00:00 2001
From: Struan Donald <struan@exo.org.uk>
Date: Fri, 21 Mar 2014 17:30:07 +0000
Subject: Add Cobrand config to include update date in email alerts

This is useful for sites where the updates aren't published on the site
so you need a bit more context in the email alerts.

Add inlude_time_in_update_alerts to default cobrand, off as default
If this is set then the date is added after the name string in the
email, passing in 'alert' as the type to dt_prettify in order to allow
the cobrand to format it accordingly.

This does require pulling out the alert confirmed time from the database
in the send_alerts code where it wasn't before.
---
 perllib/FixMyStreet/DB/ResultSet/AlertType.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'perllib/FixMyStreet/DB')

diff --git a/perllib/FixMyStreet/DB/ResultSet/AlertType.pm b/perllib/FixMyStreet/DB/ResultSet/AlertType.pm
index 8e18832a9..545b54c60 100644
--- a/perllib/FixMyStreet/DB/ResultSet/AlertType.pm
+++ b/perllib/FixMyStreet/DB/ResultSet/AlertType.pm
@@ -29,6 +29,7 @@ sub email_alerts ($) {
             $query .= "
                    $item_table.id as item_id, $item_table.text as item_text,
                    $item_table.name as item_name, $item_table.anonymous as item_anonymous,
+                   $item_table.confirmed as item_confirmed,
                    $head_table.*
             from alert
                 inner join $item_table on alert.parameter::integer = $item_table.${head_table}_id
@@ -114,6 +115,27 @@ sub email_alerts ($) {
                     $data{problem_url} = $url . "/report/" . $row->{id};
                 }
                 $data{data} .= $row->{item_name} . ' : ' if $row->{item_name} && !$row->{item_anonymous};
+                if ( $cobrand->include_time_in_update_alerts ) {
+                    # this is basically recreating the code from the inflate wrapper
+                    # in the database model.
+                    my $tz;
+                    if ( FixMyStreet->config('TIME_ZONE') ) {
+                        $tz = FixMyStreet->config('TIME_ZONE');
+                    }
+
+                    my $parser = DateTime::Format::Pg->new();
+                    my $dt = $parser->parse_timestamp( $row->{item_confirmed} );
+                    my $l_tz = DateTime::TimeZone->new( name => "local" );
+                    # We need to always set this otherwise we end up with the DateTime
+                    # object being in the floating timezone in which case applying a
+                    # subsequent timezone set will have no effect. 
+                    $dt->set_time_zone( $l_tz );
+                    if ( $tz ) {
+                        my $tz_obj = DateTime::TimeZone->new( name => $tz );
+                        $dt->set_time_zone( $tz_obj );
+                    }
+                    $data{data} .= $cobrand->prettify_dt( $dt, 'alert' ) . "\n\n";
+                }
                 $data{data} .= $row->{item_text} . "\n\n------\n\n";
             # this is ward and council problems
             } else {
-- 
cgit v1.2.3