added list method and template with no functionality

2 files changed, 289 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Alert.pm b/perllib/FixMyStreet/App/Controller/Alert.pm
index 481512623..d11c6adf7 100644
--- a/perllib/FixMyStreet/App/Controller/Alert.pm
+++ b/perllib/FixMyStreet/App/Controller/Alert.pm
@@ -63,6 +63,282 @@ sub index :Path('') :Args(0) {
 }
 
 
+
+sub list :Path('list') :Args(0) {
+    my ( $self, $c ) = @_;
+#    my ($q, @errors) = @_;
+#    my @vars = qw(pc rznvy lat lon);
+#    my %input = map { $_ => scalar $q->param($_) } @vars;
+#    my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars;
+#
+#    my($error, $lat, $lon);
+#    if ($input{lat} || $input{lon}) {
+#        $lat = $input{lat};
+#        $lon = $input{lon};
+#    } else {
+#        try {
+#            ($lat, $lon, $error) = FixMyStreet::Geocode::lookup($input{pc}, $q);
+#        } catch Error::Simple with {
+#            $error = shift;
+#        };
+#    }
+#
+#    return FixMyStreet::Geocode::list_choices($error, '/alert', $q) if ref($error) eq 'ARRAY';
+#    return alert_front_page($q, $error) if $error;
+#
+#    my $pretty_pc = $input_h{pc};
+#    my $pretty_pc_text;# This one isnt't getting the nbsp.
+#    if (mySociety::PostcodeUtil::is_valid_postcode($input{pc})) {
+#        $pretty_pc = mySociety::PostcodeUtil::canonicalise_postcode($input{pc});
+#        $pretty_pc_text = $pretty_pc;
+#        $pretty_pc_text =~ s/ //g;
+#        $pretty_pc =~ s/ / /;
+#    }
+#
+#    # truncate the lat,lon for nicer urls
+#    ( $lat, $lon ) = map { Utils::truncate_coordinate($_) } ( $lat, $lon );
+#    
+#    my $errors = '';
+#    $errors = '<ul class="error"><li>' . join('</li><li>', @errors) . '</li></ul>' if @errors;
+#
+#    my $cobrand = Page::get_cobrand($q);
+#    my @types = (Cobrand::area_types($cobrand), @$mySociety::VotingArea::council_child_types);
+#    my %councils = map { $_ => 1 } Cobrand::area_types($cobrand);
+#
+#    my $areas = mySociety::MaPit::call('point', "4326/$lon,$lat", type => \@types);
+#    my ($success, $error_msg) = Cobrand::council_check($cobrand, { all_councils => $areas }, $q, 'alert');    
+#    if (!$success) {
+#        return alert_front_page($q, $error_msg);
+#    }
+#
+#    return alert_front_page($q, _('That location does not appear to be covered by a council, perhaps it is offshore - please try somewhere more specific.')) if keys %$areas == 0;
+#
+#    my ($options, $options_start, $options_end);
+#    if (mySociety::Config::get('COUNTRY') eq 'NO') {
+#
+#        my (@options, $fylke, $kommune);
+#        foreach (values %$areas) {
+#            if ($_->{type} eq 'NKO') {
+#                $kommune = $_;
+#            } else {
+#                $fylke = $_;
+#            }
+#        }
+#        my $kommune_name = $kommune->{name};
+#        my $fylke_name = $fylke->{name};
+#
+#        if ($fylke->{id} == 3) { # Oslo
+#
+#            push @options, [ 'council', $fylke->{id}, Page::short_name($fylke),
+#                sprintf(_("Problems within %s"), $fylke_name) ];
+#        
+#            $options_start = "<div><ul id='rss_feed'>";
+#            $options = alert_list_options($q, @options);
+#            $options_end = "</ul>";
+#
+#        } else {
+#
+#            push @options,
+#                [ 'area', $kommune->{id}, Page::short_name($kommune), $kommune_name ],
+#                [ 'area', $fylke->{id}, Page::short_name($fylke), $fylke_name ];
+#            $options_start = '<div id="rss_list">';
+#            $options = $q->p($q->strong(_('Problems within the boundary of:'))) .
+#                $q->ul(alert_list_options($q, @options));
+#            @options = ();
+#            push @options,
+#                [ 'council', $kommune->{id}, Page::short_name($kommune), $kommune_name ],
+#                [ 'council', $fylke->{id}, Page::short_name($fylke), $fylke_name ];
+#            $options .= $q->p($q->strong(_('Or problems reported to:'))) .
+#                $q->ul(alert_list_options($q, @options));
+#            $options_end = $q->p($q->small(_('FixMyStreet sends different categories of problem
+#to the appropriate council, so problems within the boundary of a particular council
+#might not match the problems sent to that council. For example, a graffiti report
+#will be sent to the district council, so will appear in both of the district
+#council&rsquo;s alerts, but will only appear in the "Within the boundary" alert
+#for the county council.'))) . '</div><div id="rss_buttons">';
+#
+#        }
+#
+#    } elsif (keys %$areas == 2) {
+#
+#        # One-tier council
+#        my (@options, $council, $ward);
+#        foreach (values %$areas) {
+#            if ($councils{$_->{type}}) {
+#                $council = $_;
+#            } else {
+#                $ward = $_;
+#            }
+#        }
+#        my $council_name = $council->{name};
+#        my $ward_name = $ward->{name};
+#        push @options, [ 'council', $council->{id}, Page::short_name($council),
+#            sprintf(_("Problems within %s"), $council_name) ];
+#        push @options, [ 'ward', $council->{id}.':'.$ward->{id}, Page::short_name($council) . '/'
+#            . Page::short_name($ward), sprintf(_("Problems within %s ward"), $ward_name) ];
+#        
+#        $options_start = "<div><ul id='rss_feed'>";
+#        $options = alert_list_options($q, @options);
+#        $options_end = "</ul>";
+#
+#    } elsif (keys %$areas == 1) {
+#
+#        # One-tier council, no ward
+#        my (@options, $council);
+#        foreach (values %$areas) {
+#            $council = $_;
+#        }
+#        my $council_name = $council->{name};
+#        push @options, [ 'council', $council->{id}, Page::short_name($council),
+#            sprintf(_("Problems within %s"), $council_name) ];
+#        
+#        $options_start = "<div><ul id='rss_feed'>"; 
+#        $options = alert_list_options($q, @options);
+#        $options_end = "</ul>";
+#
+#    } elsif (keys %$areas == 4) {
+#
+#        # Two-tier council
+#        my (@options, $county, $district, $c_ward, $d_ward);
+#        foreach (values %$areas) {
+#            if ($_->{type} eq 'CTY') {
+#                $county = $_;
+#            } elsif ($_->{type} eq 'DIS') {
+#                $district = $_;
+#            } elsif ($_->{type} eq 'CED') {
+#                $c_ward = $_;
+#            } elsif ($_->{type} eq 'DIW') {
+#                $d_ward = $_;
+#            }
+#        }
+#        my $district_name = $district->{name};
+#        my $d_ward_name = $d_ward->{name};
+#        my $county_name = $county->{name};
+#        my $c_ward_name = $c_ward->{name};
+#        push @options,
+#            [ 'area', $district->{id}, Page::short_name($district), $district_name ],
+#            [ 'area', $district->{id}.':'.$d_ward->{id}, Page::short_name($district) . '/'
+#              . Page::short_name($d_ward), "$d_ward_name ward, $district_name" ],
+#            [ 'area', $county->{id}, Page::short_name($county), $county_name ],
+#            [ 'area', $county->{id}.':'.$c_ward->{id}, Page::short_name($county) . '/'
+#              . Page::short_name($c_ward), "$c_ward_name ward, $county_name" ];
+#        $options_start = '<div id="rss_list">';
+#        $options = $q->p($q->strong(_('Problems within the boundary of:'))) .
+#            $q->ul(alert_list_options($q, @options));
+#        @options = ();
+#        push @options,
+#            [ 'council', $district->{id}, Page::short_name($district), $district_name ],
+#            [ 'ward', $district->{id}.':'.$d_ward->{id}, Page::short_name($district) . '/' . Page::short_name($d_ward),
+#              "$district_name, within $d_ward_name ward" ];
+#        if ($q->{site} ne 'emptyhomes') {
+#            push @options,
+#                [ 'council', $county->{id}, Page::short_name($county), $county_name ],
+#                [ 'ward', $county->{id}.':'.$c_ward->{id}, Page::short_name($county) . '/'
+#                  . Page::short_name($c_ward), "$county_name, within $c_ward_name ward" ];
+#            $options .= $q->p($q->strong(_('Or problems reported to:'))) .
+#                $q->ul(alert_list_options($q, @options));
+#            $options_end = $q->p($q->small(_('FixMyStreet sends different categories of problem
+#to the appropriate council, so problems within the boundary of a particular council
+#might not match the problems sent to that council. For example, a graffiti report
+#will be sent to the district council, so will appear in both of the district
+#council&rsquo;s alerts, but will only appear in the "Within the boundary" alert
+#for the county council.'))) . '</div><div id="rss_buttons">';
+#        } else {
+#            $options_end = '';
+#        }
+#    } else {
+#        # Hopefully impossible in the UK!
+#        throw Error::Simple('An area with three tiers of council? Impossible! '. $lat . ' ' . $lon . ' ' . join('|',keys %$areas));
+#    }
+#
+#    my $dist = mySociety::Gaze::get_radius_containing_population($lat, $lon, 200000);
+#    $dist = int($dist * 10 + 0.5);
+#    $dist = $dist / 10.0;
+#
+#    my $checked = '';
+#    $checked = ' checked' if $q->param('feed') && $q->param('feed') eq "local:$lat:$lon";
+#    my $cobrand_form_elements = Cobrand::form_elements($cobrand, 'alerts', $q);
+#    my $pics = Cobrand::recent_photos($cobrand, 5, $lat, $lon, $dist);
+#    $pics = '<div id="alert_photos">' . $q->h2(_('Photos of recent nearby reports')) . $pics . '</div>' if $pics;
+#    my $header;
+#    if ($pretty_pc) {
+#        $header = sprintf(_('Local RSS feeds and email alerts for &lsquo;%s&rsquo;'), $pretty_pc); 
+#    } else {
+#        $header = _('Local RSS feeds and email alerts');
+#    }
+#    my $out = $q->h1($header);
+#    my $form_action = Cobrand::url($cobrand, '/alert', $q);
+#    $out .= <<EOF;
+#<form id="alerts" name="alerts" method="post" action="$form_action">
+#<input type="hidden" name="type" value="local">
+#<input type="hidden" name="pc" value="$input_h{pc}">
+#$cobrand_form_elements
+#$pics
+#
+#EOF
+#    $out .= $q->p(($pretty_pc ? sprintf(_('Here are the types of local problem alerts for &lsquo;%s&rsquo;.'), $pretty_pc)
+#    : '') . ' ' . _('Select which type of alert you&rsquo;d like and click the button for an RSS
+#feed, or enter your email address to subscribe to an email alert.'));
+#    $out .= $errors;
+#    $out .= $q->p(_('The simplest alert is our geographic one:'));
+#    my $rss_label = sprintf(_('Problems within %skm of this location'), $dist);
+#    $out .= <<EOF;
+#<p id="rss_local">
+#<input type="radio" name="feed" id="local:$lat:$lon" value="local:$lat:$lon"$checked>
+#<label for="local:$lat:$lon">$rss_label</label>
+#EOF
+#    my $rss_feed;
+#    if ($pretty_pc_text) {
+#        $rss_feed = Cobrand::url($cobrand, "/rss/pc/$pretty_pc_text", $q);
+#    } else {
+#        $rss_feed = Cobrand::url($cobrand, "/rss/l/$lat,$lon", $q);
+#    }
+#
+#    my $default_link = Cobrand::url($cobrand, "/alert?type=local;feed=local:$lat:$lon", $q);
+#    my $rss_details = _('(a default distance which covers roughly 200,000 people)');
+#    $out .= $rss_details;
+#    $out .= " <a href='$rss_feed'><img src='/i/feed.png' width='16' height='16' title='"
+#        . _('RSS feed of nearby problems') . "' alt='" . _('RSS feed') . "' border='0'></a>";
+#    $out .= '</p> <p id="rss_local_alt">' . _('(alternatively the RSS feed can be customised, within');
+#    my $rss_feed_2k  = Cobrand::url($cobrand, $rss_feed.'/2', $q);
+#    my $rss_feed_5k  = Cobrand::url($cobrand, $rss_feed.'/5', $q);
+#    my $rss_feed_10k = Cobrand::url($cobrand, $rss_feed.'/10', $q);
+#    my $rss_feed_20k = Cobrand::url($cobrand, $rss_feed.'/20', $q);
+#    $out .= <<EOF;
+# <a href="$rss_feed_2k">2km</a> / <a href="$rss_feed_5k">5km</a>
+#/ <a href="$rss_feed_10k">10km</a> / <a href="$rss_feed_20k">20km</a>)
+#</p>
+#EOF
+#    $out .= $q->p(_('Or you can subscribe to an alert based upon what ward or council you&rsquo;re in:'));
+#    $out .= $options_start;
+#    $out .= $options;
+#    $out .= $options_end;
+#    $out .= $q->p('<input type="submit" name="rss" value="' . _('Give me an RSS feed') . '">');
+#    $out .= $q->p({-id=>'alert_or'}, _('or'));
+#    $out .= '<p>' . _('Your email:') . ' <input type="text" id="rznvy" name="rznvy" value="' . $input_h{rznvy} . '" size="30"></p>
+#<p><input type="submit" name="alert" value="' . _('Subscribe me to an email alert') . '"></p>
+#</div>
+#</form>';
+#    my %vars = (header => $header, 
+#                cobrand_form_elements => $cobrand_form_elements, 
+#                error => $errors,
+#                rss_label => $rss_label,
+#                rss_feed => $rss_feed,
+#                default_link => $default_link, 
+#                rss_details => $rss_details, 
+#                rss_feed_2k => $rss_feed_2k, 
+#                rss_feed_5k => $rss_feed_5k,   
+#                rss_feed_10k => $rss_feed_10k,   
+#                rss_feed_20k => $rss_feed_20k, 
+#                lat => $lat,
+#                lon => $lon, 
+#                options => $options );
+#    my $cobrand_page = Page::template_include('alert-options', $q, Page::template_root($q), %vars);
+#    $out = $cobrand_page if ($cobrand_page);
+#    return $out;
+}
+
+
 =head1 AUTHOR
 
 Struan Donald
diff --git a/templates/web/default/alert/list.html b/templates/web/default/alert/list.html
new file mode 100644
index 000000000..fd55d5504
--- /dev/null
+++ b/templates/web/default/alert/list.html
@@ -0,0 +1,13 @@
+[% title = loc('Local RSS feeds and email alerts') %]
+[% IF pretty_pc %]
+[% title = tprintf( loc('Local RSS feeds and email alerts for %s'), pretty_pc ) %]
+[% END %]
+
+[% INCLUDE 'header.html', title => title %]
+
+<h1>[% title %]</h1>
+
+
+[%# FIXME - put in blurb here %]
+
+[% INCLUDE 'footer.html' %]