From 75dbb51498469176ba81b06c20e30d89466b3037 Mon Sep 17 00:00:00 2001
From: Rikard <rikard@morus.se>
Date: Mon, 25 Feb 2013 16:47:53 +0000
Subject: Replaced hardcoded Mapit-URL in error message to use variable from
 config instead

---
 perllib/Open311/PopulateServiceList.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perllib/Open311/PopulateServiceList.pm')

diff --git a/perllib/Open311/PopulateServiceList.pm b/perllib/Open311/PopulateServiceList.pm
index 7990abfbf..c5fc4a506 100644
--- a/perllib/Open311/PopulateServiceList.pm
+++ b/perllib/Open311/PopulateServiceList.pm
@@ -42,8 +42,9 @@ sub process_body {
     my $list = $open311->get_service_list;
     unless ( $list ) {
         my $id = $self->_current_body->id;
+        my $mapit_url = mySociety::Config::get('MAPIT_URL');
         my $areas = join( ",", keys %{$self->_current_body->areas} );
-        warn "Body $id for areas $areas - http://mapit.mysociety.org/areas/$areas.html - did not return a service list\n"
+        warn "Body $id for areas $areas - $mapit_url/areas/$areas.html - did not return a service list\n"
             if $self->verbose >= 1;
         return;
     }
-- 
cgit v1.2.3