moving fields around toCVS: ----------------------------------------------------...

[koha_fer] / C4 / Circmain.pm

diff --git a/C4/Circmain.pm b/C4/Circmain.pm
index b3adbca..2716699 100755 (executable)
--- a/C4/Circmain.pm
+++ b/C4/Circmain.pm
@@ -1,11 +1,33 @@
-package C4::Circmain; #asummes C4/Circulation
+package C4::Circmain;
 
-#package to deal with circulation 
+# $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::Database;
 use C4::Circulation::Main;
 use C4::Circulation::Issues;
 use C4::Circulation::Returns;
@@ -15,47 +37,13 @@ use C4::Reserves;
 use C4::InterfaceCDK;
 use C4::Security;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-  
+use vars qw($VERSION @ISA @EXPORT);
+
 # set the version for version checking
 $VERSION = 0.01;
-    
+
 @ISA = qw(Exporter);
 @EXPORT = qw(&Start_circ);
-%EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
-                 
-# your exported package globals go here,
-# as well as any optionally exported functions
-
-@EXPORT_OK   = qw($Var1 %Hashit);
-
-
-# non-exported package globals go here
-use vars qw(@more $stuff);
-       
-# initalize package globals, first exported ones
-
-my $Var1   = '';
-my %Hashit = ();
-                   
-# then the others (which are still accessible as $Some::Module::stuff)
-my $stuff  = '';
-my @more   = ();
-       
-# all file-scoped lexicals must be created before
-# the functions below that use them.
-               
-# file-private lexicals go here
-my $priv_var    = '';
-my %secret_hash = ();
-                           
-# here's a file-private function as a closure,
-# callable as &$priv_func;  it cannot be prototyped.
-my $priv_func = sub {
-  # stuff goes here.
-};
-                                                   
-# make all your functions, whether exported or not;
 
 sub Start_circ{
   my ($env)=@_;
@@ -69,32 +57,29 @@ sub Start_circ{
   my $data;
   while ($donext ne 'Quit') {
     if ($donext  eq "Circ") {
-      #($reason,$data) = menu($env,'console','Circulation', 
+      #($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')); 
+        ('Issues','Returns','Select Branch','Select Printer'));
     } else {
       $data = $donext;
     }
-    if ($data eq 'Issues') {  
-      $donext=Issue($env); #C4::Circulation::Issues 
+    if ($data eq 'Issues') {
+      $donext=Issue($env); #C4::Circulation::Issues
     } elsif ($data eq 'Returns') {
-      $donext=Returns($env); #C4::Circulation::Returns 
+      $donext=Returns($env); #C4::Circulation::Returns
     } elsif ($data eq 'Select Branch') {
       getbranch($env);
     } elsif ($data eq 'Select Printer') {
-      getprinter($env);      
+      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=EnterReserves($env); #C4::Reserves
+    } elsif ($data eq 'Quit') {
       $donext = $data;
     }
   }
-  &endint($env)  
+  &endint($env)
 }
-
-
-END { }       # module clean-up code here (global destructor)