[Koha-cvs] CVS: koha/C4/Circulation Borrissues.pm,1.5,1.6
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 08:37:56 CEST 2002
Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv24776
Modified Files:
Borrissues.pm
Log Message:
Deleted unused variables.
Removed trailing whitespace.
Index: Borrissues.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Borrissues.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** Borrissues.pm 13 Oct 2002 06:14:10 -0000 1.5
--- Borrissues.pm 13 Oct 2002 06:37:54 -0000 1.6
***************
*** 29,73 ****
use C4::Context;
use C4::Print;
! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
!
# 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
--- 29,39 ----
use C4::Context;
use C4::Print;
! use vars qw($VERSION @ISA @EXPORT);
!
# set the version for version checking
$VERSION = 0.01;
!
@ISA = qw(Exporter);
@EXPORT = qw(&printallissues);
# FIXME - This function is only used in C4::InterfaceCDK, which looks
***************
*** 79,87 ****
my $dbh = C4::Context->dbh;
my $query = "select * from issues,items,biblioitems,biblio
! where borrowernumber = '$borrower->{'borrowernumber'}'
and (returndate is null)
and (issues.itemnumber = items.itemnumber)
and (items.biblioitemnumber = biblioitems.biblioitemnumber)
! and (items.biblionumber = biblio.biblionumber)
order by date_due";
my $sth = $dbh->prepare($query);
--- 45,53 ----
my $dbh = C4::Context->dbh;
my $query = "select * from issues,items,biblioitems,biblio
! where borrowernumber = '$borrower->{'borrowernumber'}'
and (returndate is null)
and (issues.itemnumber = items.itemnumber)
and (items.biblioitemnumber = biblioitems.biblioitemnumber)
! and (items.biblionumber = biblio.biblionumber)
order by date_due";
my $sth = $dbh->prepare($query);
More information about the Koha-cvs
mailing list