From 70d8c21450f1afb0f4f764a8436242e03b4f4e5a Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Fri, 11 Oct 2002 12:42:08 +0000
Subject: [PATCH] Removed bogus unused variables at the top. Prettified @EXPORT
 list. (bug fix): Added missing semicolon.

---
 C4/Circulation/Circ2.pm | 45 +++++------------------------------------
 1 file changed, 5 insertions(+), 40 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 8b84e9a17d..5cb4dbc291 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -62,45 +62,10 @@ returns, as well as general information about the library.
 =cut
 
 @ISA = qw(Exporter);
-@EXPORT = qw(&getbranches &getprinters &getpatroninformation &currentissues &getissues &getiteminformation &findborrower &issuebook &returnbook &find_reserves &transferbook &decode
-calc_charges);
-%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);	# FIXME - Unused
-
-
-# non-exported package globals go here
-#use vars qw(@more $stuff);
-
-# initalize package globals, first exported ones
-# FIXME - Unused
-my $Var1   = '';
-my %Hashit = ();
-
-# then the others (which are still accessible as $Some::Module::stuff)
-# FIXME - Unused
-my $stuff  = '';
-my @more   = ();
-
-# all file-scoped lexicals must be created before
-# the functions below that use them.
-
-# file-private lexicals go here
-# FIXME - Unused
-my $priv_var    = '';
-my %secret_hash = ();
-
-# here's a file-private function as a closure,
-# callable as &$priv_func;  it cannot be prototyped.
-# FIXME - Unused
-my $priv_func = sub {
-  # stuff goes here.
-};
-
-# make all your functions, whether exported or not;
+@EXPORT = qw(&getbranches &getprinters &getpatroninformation
+	&currentissues &getissues &getiteminformation &findborrower
+	&issuebook &returnbook &find_reserves &transferbook &decode
+	&calc_charges);
 
 =item getbranches
 
@@ -1748,7 +1713,7 @@ sub createcharge {
 			 now(), ?, 'Rental', 'Rent',
 			 ?)
 EOT
-    $sth->execute($bornum, $itemno, $nextaccntno, $charge, $charge)
+    $sth->execute($bornum, $itemno, $nextaccntno, $charge, $charge);
     $sth->finish;
 }
 
-- 
2.20.1