[Koha-cvs] CVS: koha/C4/Circulation Borrissues.pm,1.5,1.6

[Andrew Arensburger]

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);