From ef213acf0b2568b5687ba2a593d629d6d9a43c71 Mon Sep 17 00:00:00 2001
From: Chris Nighswonger <chris.nighswonger@gmail.com>
Date: Wed, 22 Feb 2012 14:44:06 -0500
Subject: [PATCH] Revert "Bug 6875 cleaning mainpage.pl"

This reverts commit b21eda0d42b3f2d10c77d17f4a5ac4960b4ada4f.
-Unstable code
---
 mainpage.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/mainpage.pl b/mainpage.pl
index f834985cfe..bd1c9e5ac8 100755
--- a/mainpage.pl
+++ b/mainpage.pl
@@ -23,12 +23,27 @@ use warnings;
 use CGI;
 use C4::Output;
 use C4::Auth;
+use C4::AuthoritiesMarc;
 use C4::Koha;
 use C4::NewsChannels;
 use C4::Review qw/numberofreviews/;
 use C4::Suggestions qw/CountSuggestion/;
 use C4::Tags qw/get_count_by_tag_status/;
 my $query     = new CGI;
+my $authtypes = getauthtypes;
+my @authtypesloop;
+
+foreach my $thisauthtype (
+    sort { $authtypes->{$a} <=> $authtypes->{$b} }
+    keys %$authtypes
+  )
+{
+    my %row = (
+        value        => $thisauthtype,
+        authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
+    );
+    push @authtypesloop, \%row;
+}
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
@@ -42,6 +57,10 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     }
 );
 
+$template->param(
+    authtypesloop => \@authtypesloop
+);
+
 my $all_koha_news   = &GetNewsToDisplay("koha");
 my $koha_news_count = scalar @$all_koha_news;
 
-- 
2.39.5