1 files changed, 0 insertions, 74 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin.pm b/perllib/FixMyStreet/App/Controller/Admin.pm
index b8ef97a2f..b9ee90dcb 100644
--- a/perllib/FixMyStreet/App/Controller/Admin.pm
+++ b/perllib/FixMyStreet/App/Controller/Admin.pm
@@ -447,80 +447,6 @@ sub check_token : Private {
 # }
 # 
 # 
-# # admin_council_edit CGI AREA_ID CATEGORY
-# sub admin_council_edit ($$$) {
-#     my ($q, $area_id, $category) = @_;
-# 
-#     # Get all the data
-#     my $bci_data = select_all("select * from contacts where area_id = ? and category = ?", $area_id, $category);
-#     $bci_data = $bci_data->[0];
-#     my $bci_history = select_all("select * from contacts_history where area_id = ? and category = ? order by contacts_history_id", $area_id, $category);
-#     my $mapit_data = mySociety::MaPit::call('area', $area_id);
-#     
-#     # Title
-#     my $title = sprintf(_('Council contacts for %s'), $mapit_data->{name});
-#     print html_head($q, $title);
-#     print $q->h1($title);
-# 
-#     # Example postcode
-#     my $example_postcode = mySociety::MaPit::call('area/example_postcode', $area_id);
-#     if ($example_postcode && ! ref $example_postcode) {
-#         print $q->p("Example postcode: ",
-#             $q->a({ href => mySociety::Config::get('BASE_URL') . '/?pc=' . $q->escape($example_postcode) }, 
-#                 $example_postcode));
-#     }
-# 
-#     # Display form for editing details
-#     print $q->start_form(-method => 'POST', -action => './');
-#     map { $q->param($_, $bci_data->{$_}) } qw/category email confirmed deleted/;
-#     $q->param('page', 'councilcontacts');
-#     $q->param('posted', 'new');
-#     print $q->strong(_("Category: ")) . $bci_data->{category};
-#     print $q->hidden('token', get_token($q)),
-#     print $q->hidden("category");
-#     print $q->strong(' ' . _("Email: "));
-#     print $q->textfield(-name => "email", -size => 30) . " ";
-#     $q->autoEscape(0);
-#     print $q->checkbox(-id => 'confirmed', -name => "confirmed", -value => 1, -label => ' ' . $q->label({-for => 'confirmed'}, _('Confirmed')));
-#     print ' ';
-#     print $q->checkbox(-id => 'deleted', -name => "deleted", -value => 1, -label => ' ' . $q->label({-for => 'deleted'}, _('Deleted')));
-#     $q->autoEscape(1);
-#     print $q->br();
-#     print $q->strong(_("Note: "));
-#     print $q->textarea(-name => "note", -rows => 3, -columns=>40) . " ";
-#     print $q->br();
-#     print $q->hidden('area_id');
-#     print $q->hidden('posted');
-#     print $q->hidden('page');
-#     print $q->submit(_('Save changes'));
-#     print $q->end_form();
-# 
-#     # Display history of changes
-#     print $q->h2(_('History'));
-#     print $q->start_table({border=>1});
-#     print $q->Tr({}, $q->th({}, [_("When edited"), _("Email"), _("Confirmed"), _("Deleted"), _("Editor"), _("Note")]));
-#     my $html = '';
-#     my $prev = undef;
-#     foreach my $h (@$bci_history) {
-#         $h->{confirmed} = $h->{confirmed} ? _("yes") : _("no"),
-#         $h->{deleted} = $h->{deleted} ? _("yes") : _("no"),
-#         my $emailchanged = ($prev && $h->{email} ne $prev->{email}) ? 1 : 0;
-#         my $confirmedchanged = ($prev && $h->{confirmed} ne $prev->{confirmed}) ? 1 : 0;
-#         my $deletedchanged = ($prev && $h->{deleted} ne $prev->{deleted}) ? 1 : 0;
-#         $html .= $q->Tr({}, $q->td([ 
-#                 $h->{whenedited} =~ m/^(.+)\.\d+$/,
-#                 $emailchanged ? $q->strong($h->{email}) : $h->{email},
-#                 $confirmedchanged ? $q->strong($h->{confirmed}) : $h->{confirmed},
-#                 $deletedchanged ? $q->strong($h->{deleted}) : $h->{deleted},
-#                 $h->{editor},
-#                 $h->{note}
-#             ]));
-#         $prev = $h;
-#     }
-#     print $html;
-#     print $q->end_table();
-#     print html_tail($q);
-# }
 # 
 # sub admin_reports {
 #     my $q = shift;