From d5c8d40e2350fd90d9986acbef8e299c3b93660a Mon Sep 17 00:00:00 2001 From: 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.39.5