diff options
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Contact.pm')
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Contact.pm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Contact.pm b/perllib/FixMyStreet/App/Controller/Contact.pm index f28d37989..c300aee9a 100644 --- a/perllib/FixMyStreet/App/Controller/Contact.pm +++ b/perllib/FixMyStreet/App/Controller/Contact.pm @@ -139,17 +139,17 @@ sub prepare_params_for_email : Private { $c->stash->{message} =~ s/\r\n/\n/g; $c->stash->{subject} =~ s/\r|\n/ /g; - my $base_url = $c->cobrand->base_url_for_emails( $c->cobrand->extra_data ); - my $admin_base_url = $c->cobrand->admin_base_url - || 'https://secure.mysociety.org/admin/bci/'; + my $base_url = $c->cobrand->base_url_for_emails( $c->cobrand->extra_data ); + my $admin_url = $c->cobrand->admin_base_url; if ( $c->stash->{update} ) { my $problem_url = $base_url . '/report/' . $c->stash->{update}->problem_id . '#update_' . $c->stash->{update}->id; - my $admin_url = $admin_base_url . 'update_edit/' . $c->stash->{update}->id; + my $admin_url = " - $admin_url" . 'update_edit/' . $c->stash->{update}->id + if $admin_url; $c->stash->{message} .= sprintf( - " \n\n[ Complaint about update %d on report %d - %s - %s ]", + " \n\n[ Complaint about update %d on report %d - %s%s ]", $c->stash->{update}->id, $c->stash->{update}->problem_id, $problem_url, $admin_url @@ -158,9 +158,10 @@ sub prepare_params_for_email : Private { elsif ( $c->stash->{problem} ) { my $problem_url = $base_url . '/report/' . $c->stash->{problem}->id; - my $admin_url = $admin_base_url . 'report_edit/' . $c->stash->{problem}->id; + $admin_url = " - $admin_url" . 'report_edit/' . $c->stash->{problem}->id + if $admin_url; $c->stash->{message} .= sprintf( - " \n\n[ Complaint about report %d - %s - %s ]", + " \n\n[ Complaint about report %d - %s%s ]", $c->stash->{problem}->id, $problem_url, $admin_url ); @@ -183,7 +184,7 @@ generally required to stash sub setup_request : Private { my ( $self, $c ) = @_; - $c->stash->{contact_email} = $c->cobrand->contact_email; + $c->stash->{contact_email} = $c->cobrand->contact_email( 'contact' ); $c->stash->{contact_email} =~ s/\@/@/; for my $param (qw/em subject message/) { @@ -205,7 +206,7 @@ Sends the email sub send_email : Private { my ( $self, $c ) = @_; - my $recipient = $c->cobrand->contact_email(); + my $recipient = $c->cobrand->contact_email( 'contact' ); my $recipient_name = $c->cobrand->contact_name(); $c->stash->{host} = $c->req->header('HOST'); |