From d5c8d40e2350fd90d9986acbef8e299c3b93660a Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Sun, 13 Oct 2002 06:37:54 +0000
Subject: [PATCH] Deleted unused variables. Removed trailing whitespace.

---
 C4/Circulation/Borrissues.pm | 44 ++++--------------------------------
 1 file changed, 5 insertions(+), 39 deletions(-)

diff --git a/C4/Circulation/Borrissues.pm b/C4/Circulation/Borrissues.pm
index 2aaf671165..f9eb0af737 100755
--- a/C4/Circulation/Borrissues.pm
+++ b/C4/Circulation/Borrissues.pm
@@ -28,47 +28,13 @@ require Exporter;
 use DBI;
 use C4::Context;
 use C4::Print;
-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(&printallissues);
-%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;
 
 # FIXME - This function is only used in C4::InterfaceCDK, which looks
 # obsolete. Does that mean that this module is also obsolete?
@@ -78,11 +44,11 @@ sub printallissues {
   my @issues;
   my $dbh = C4::Context->dbh;
   my $query = "select * from issues,items,biblioitems,biblio
-    where borrowernumber = '$borrower->{'borrowernumber'}' 
+    where borrowernumber = '$borrower->{'borrowernumber'}'
     and (returndate is null)
     and (issues.itemnumber = items.itemnumber)
     and (items.biblioitemnumber = biblioitems.biblioitemnumber)
-    and (items.biblionumber = biblio.biblionumber) 
+    and (items.biblionumber = biblio.biblionumber)
     order by date_due";
   my $sth = $dbh->prepare($query);
   $sth->execute();
-- 
2.20.1