From d623296c3b8c6a731d058b8466cfc594f3df4595 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 17 Jan 2006 16:29:20 +0000
Subject: [PATCH] removing catalogue-home, it's useless

---
 catalogue-home.pl | 48 -----------------------------------------------
 1 file changed, 48 deletions(-)
 delete mode 100755 catalogue-home.pl

diff --git a/catalogue-home.pl b/catalogue-home.pl
deleted file mode 100755
index de99a8d54b..0000000000
--- a/catalogue-home.pl
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use CGI;
-use C4::Auth;
-use C4::Output;
-use C4::Interface::CGI::Output;
-use C4::Database;
-use C4::Acquisition;
-use C4::Biblio;
-use C4::Koha;
-use HTML::Template;
-
-my $query = new CGI;
-my ($template, $loggedinuser, $cookie)
-    = get_template_and_user({template_name => "catalogue/catalogue-home.tmpl",
-			     query => $query,
-			     type => "intranet",
-			     authnotrequired => 0,
-			     flagsrequired => {catalogue => 1},
-			     debug => 1,
-			     });
-
-my ($branchcount,@branches)=branches();
-
-my $itemtypes = getitemtypes;
-my @itemtypesloop;
-foreach my $thisitemtype (keys %$itemtypes) {
-	my %row =(value => $thisitemtype,
-				description => $itemtypes->{$thisitemtype}->{'description'},
-			);
-	push @itemtypesloop, \%row;
-}
-
-my $classlist='';
-my $dbh=C4::Context->dbh;
-my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");
-$sth->execute;
-while (my ($description,$itemtype) = $sth->fetchrow) {
-    $classlist.="<option value=\"$itemtype\">$description\n";
-}
-
-$template->param(classlist => $classlist,
-				type => 'intranet',
-				branches=>\@branches,
-				itemtypeloop => \@itemtypesloop);
-
-output_html_with_http_headers $query, $cookie, $template->output;
-- 
2.39.2