Add default service to api data, set header later

1 files changed, 4 insertions, 1 deletions

diff --git a/perllib/Problems.pm b/perllib/Problems.pm
index f34e4af9b..098572917 100644
--- a/perllib/Problems.pm
+++ b/perllib/Problems.pm
@@ -6,7 +6,7 @@
 # Copyright (c) 2008 UK Citizens Online Democracy. All rights reserved.
 # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/
 #
-# $Id: Problems.pm,v 1.15 2009-07-01 12:52:41 louise Exp $
+# $Id: Problems.pm,v 1.16 2009-07-01 13:02:07 louise Exp $
 #
 
 package Problems;
@@ -194,6 +194,9 @@ sub problems_matching_criteria{
         if ($problem->{anonymous} == 1){
             $problem->{name} = '';
         }
+	if ($problem->{service} == ''){
+            $problem->{service} = 'Web interface';
+        }
         if ($problem->{council}) {
             $problem->{council} =~ s/\|.*//g;
 	    my @council_ids = split /,/, $problem->{council};