aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStruan Donald <struan@exo.org.uk>2011-05-04 14:45:06 +0100
committerStruan Donald <struan@exo.org.uk>2011-05-04 14:45:06 +0100
commit2025cde75a554048b0d3ac60c70029b98914ed37 (patch)
treeaf821ed890b936bc67236bcc7dc92371135e1bae
parent6bca29716bd28f5724527e7a3037c47c225d0896 (diff)
added in commented out code from alert.cgi for reference
-rw-r--r--perllib/FixMyStreet/App/Controller/Alert.pm34
1 files changed, 34 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Alert.pm b/perllib/FixMyStreet/App/Controller/Alert.pm
index 3e5c4e128..73e54a8a2 100644
--- a/perllib/FixMyStreet/App/Controller/Alert.pm
+++ b/perllib/FixMyStreet/App/Controller/Alert.pm
@@ -26,6 +26,40 @@ Show the alerts page
sub alert_index :Path :Args(0) {
my ( $self, $c ) = @_;
+# my $q = shift;
+# my $cobrand = Page::get_cobrand($q);
+# my $error = shift;
+# my $errors = '';
+# $errors = '<ul class="error"><li>' . $error . '</li></ul>' if $error;
+#
+# my $form_action = Cobrand::url(Page::get_cobrand($q), '/alert', $q);
+# my $cobrand_form_elements = Cobrand::form_elements($cobrand, 'alerts', $q);
+# my $cobrand_extra_data = Cobrand::extra_data($cobrand, $q);
+#
+# $out .= $errors . qq(<form method="get" action="$form_action">);
+# $out .= $q->p($pc_label, '<input type="text" name="pc" value="' . $input_h{pc} . '">
+#<input type="submit" value="' . $submit_text . '">');
+# $out .= $cobrand_form_elements;
+#
+# my %vars = (error => $error,
+# header => $header,
+# intro => $intro,
+# pc_label => $pc_label,
+# form_action => $form_action,
+# input_h => \%input_h,
+# submit_text => $submit_text,
+# cobrand_form_elements => $cobrand_form_elements,
+# cobrand_extra_data => $cobrand_extra_data,
+# url_home => Cobrand::url($cobrand, '/', $q));
+#
+# my $cobrand_page = Page::template_include('alert-front-page', $q, Page::template_root($q), %vars);
+# $out = $cobrand_page if ($cobrand_page);
+#
+# return $out if $q->referer() && $q->referer() =~ /fixmystreet\.com/;
+# my $recent_photos = Cobrand::recent_photos($cobrand, 10);
+# $out .= '<div id="alert_recent">' . $q->h2(_('Some photos of recent reports')) . $recent_photos . '</div>' if $recent_photos;
+#
+# return $out;
}