From 45d347b60e531bf622802122f1071eed913fd541 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 4 Mar 2004 15:32:46 +0000
Subject: [PATCH] unsued package. beginning code cleaning

---
 C4/Circmain.pm | 85 --------------------------------------------------
 1 file changed, 85 deletions(-)
 delete mode 100755 C4/Circmain.pm

diff --git a/C4/Circmain.pm b/C4/Circmain.pm
deleted file mode 100755
index 27166993cf..0000000000
--- a/C4/Circmain.pm
+++ /dev/null
@@ -1,85 +0,0 @@
-package C4::Circmain;
-
-# $Id$
-
-#package to deal with circulation
-
-
-# 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
-
-# FIXME - This module doesn't compile! Then again, it's never used, so
-# presumably this file is obsolete, right?
-
-use strict;
-require Exporter;
-use DBI;
-use C4::Circulation::Main;
-use C4::Circulation::Issues;
-use C4::Circulation::Returns;
-use C4::Circulation::Renewals;
-use C4::Circulation::Borrower;
-use C4::Reserves;
-use C4::InterfaceCDK;
-use C4::Security;
-
-use vars qw($VERSION @ISA @EXPORT);
-
-# set the version for version checking
-$VERSION = 0.01;
-
-@ISA = qw(Exporter);
-@EXPORT = qw(&Start_circ);
-
-sub Start_circ{
-  my ($env)=@_;
-  #connect to database
-  #start interface
-  &startint($env,'Circulation');
-  getbranch($env);
-  getprinter($env);
-  my $donext = 'Circ';
-  my $reason;
-  my $data;
-  while ($donext ne 'Quit') {
-    if ($donext  eq "Circ") {
-      #($reason,$data) = menu($env,'console','Circulation',
-      #  ('Issues','Returns','Borrower Enquiries','Reserves','Log In'));
-      #&startint($env,"Menu");
-      ($reason,$data) = menu($env,'console','Circulation',
-        ('Issues','Returns','Select Branch','Select Printer'));
-    } else {
-      $data = $donext;
-    }
-    if ($data eq 'Issues') {
-      $donext=Issue($env); #C4::Circulation::Issues
-    } elsif ($data eq 'Returns') {
-      $donext=Returns($env); #C4::Circulation::Returns
-    } elsif ($data eq 'Select Branch') {
-      getbranch($env);
-    } elsif ($data eq 'Select Printer') {
-      getprinter($env);
-    } elsif ($data eq 'Borrower Enquiries') {
-      #  $donext=Borenq($env); #C4::Circulation::Borrower - conversion
-    } elsif ($data eq 'Reserves'){
-      $donext=EnterReserves($env); #C4::Reserves
-    } elsif ($data eq 'Quit') {
-      $donext = $data;
-    }
-  }
-  &endint($env)
-}
-- 
2.39.5