diff --git a/circ/reserve.pl b/circ/reserve.pl
deleted file mode 100755
index 14d66a91e7..0000000000
--- a/circ/reserve.pl
+++ /dev/null
@@ -1,161 +0,0 @@
-#!/usr/bin/perl
-
-# $Id$
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
-
-use strict;
-use CGI;
-use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Date;
-
-my $input = new CGI;
-my $order = $input->param('order');
-my $startdate=$input->param('from');
-my $enddate=$input->param('to');
-
-my $theme = $input->param('theme');    # only used if allowthemeoverride is set
-
-my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
-    {
-        template_name   => "circ/reserve.tmpl",
-        query           => $input,
-        type            => "intranet",
-        authnotrequired => 0,
-        flagsrequired   => { circulate => 1 },
-        debug           => 1,
-    }
-);
-
-my $duedate;
-my $borrowernumber;
-my $itemnum;
-my $data1;
-my $data2;
-my $data3;
-my $name;
-my $phone;
-my $email;
-my $biblionumber;
-my $title;
-my $author;
-
-my @datearr    = localtime( time() );
-my $todaysdate =
-    ( 1900 + $datearr[5] ) . '-'
-  . sprintf( "%0.2d", ( $datearr[4] + 1 ) ) . '-'
-  . sprintf( "%0.2d", $datearr[3] );
-
-my $dbh    = C4::Context->dbh;
-my ($sqlorderby, $sqldatewhere) = ("","");
-
-$sqldatewhere .= " && reservedate >= " . $dbh->quote($startdate)  if ($startdate) ;
-$sqldatewhere .= " && reservedate <= " . $dbh->quote($enddate)  if ($enddate) ;
-
-if ($order eq "borrower") {
-	$sqlorderby = " order by  borrower, reservedate";
-} elsif ($order eq "biblio") {
-	$sqlorderby = " order by biblio.title, priority,reservedate";
-} elsif ($order eq "priority") {
-    $sqlorderby = "order by priority DESC";
-} else {
-	$sqlorderby = " order by reservedate, borrower";
-}
-my $strsth =
-"SELECT reservedate,
-        reserves.borrowernumber as borrowernumber,
-        concat(firstname,' ',surname) as borrower,
-        borrowers.phone,
-        borrowers.email,
-        reserves.biblionumber,
-        reserves.branchcode as branch,
-        items.holdingbranch,
-        items.itemcallnumber,
-        items.itemnumber,
-        notes,
-        notificationdate,
-        reminderdate,
-        priority,
-        reserves.found,
-        biblio.title,
-        biblio.author
- FROM  reserves
- LEFT JOIN items ON items.biblionumber=reserves.biblionumber,
-  borrowers,biblio
- WHERE isnull(cancellationdate)
-  && reserves.borrowernumber=borrowers.borrowernumber 
-  && reserves.biblionumber=biblio.biblionumber
-  && reserves.found is NULL
-  && items.holdingbranch=?
- ";
-
-$strsth .= $sqlorderby;
-
-my $sth = $dbh->prepare($strsth);
-
-$sth->execute(C4::Context->userenv->{'branch'});
-
-my @reservedata;
-my $previous;
-my $this;
-while ( my $data = $sth->fetchrow_hashref ) {
-    $this=$data->{biblionumber}.":".$data->{borrowernumber};
-    my @itemlist;
-    push(
-        @reservedata,
-        {
-            reservedate      => $previous eq $this?"":format_date( $data->{reservedate} ),
-            priority         => $previous eq $this?"":$data->{priority},
-            name             => $previous eq $this?"":$data->{borrower},
-            title            => $previous eq $this?"":$data->{title},
-            author           => $previous eq $this?"":$data->{author},
-            borrowernumber   => $previous eq $this?"":$data->{borrowernumber},
-            itemnum          => $previous eq $this?"":$data->{itemnumber},
-            phone            => $previous eq $this?"":$data->{phone},
-            email            => $previous eq $this?"":$data->{email},
-            biblionumber     => $previous eq $this?"":$data->{biblionumber},
-            statusw          => ( $data->{found} eq "w" ),
-            statusf          => ( $data->{found} eq "f" ),
-            holdingbranch    => $data->{holdingbranch},
-            branch           => $previous eq $this?"":$data->{branch},
-            itemcallnumber   => $data->{itemcallnumber},
-            notes            => $previous eq $this?"":$data->{notes},
-            notificationdate => $previous eq $this?"":$data->{notificationdate},
-            reminderdate     => $previous eq $this?"":$data->{reminderdate}
-        }
-    );
-    $previous=$this;
-}
-
-$sth->finish;
-
-$template->param(
-    todaysdate              => format_date($todaysdate),
-	from		            => $startdate,
-	to			            => $enddate,
-    reserveloop             => \@reservedata,
-    intranetcolorstylesheet =>
-      C4::Context->preference("intranetcolorstylesheet"),
-    intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-    IntranetNav        => C4::Context->preference("IntranetNav"),
-    "BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1,
-);
-
-output_html_with_http_headers $input, $cookie, $template->output;