[Koha-cvs] CVS: koha/C4 BookShelves.pm,1.8,1.9

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv14754

Modified Files:
        BookShelves.pm 
Log Message:
Deleted unused variables.
Removed trailing whitespace.


Index: BookShelves.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/BookShelves.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** BookShelves.pm      10 Oct 2002 04:32:44 -0000      1.8
--- BookShelves.pm      13 Oct 2002 08:29:18 -0000      1.9
***************
*** 1,9 ****
! package C4::BookShelves; #assumes C4/BookShelves
! 
! #
! # $Header$
! #
! #requires DBI.pm to be installed
  
  
  # Copyright 2000-2002 Katipo Communications
--- 1,5 ----
! package C4::BookShelves;
  
+ # $Id$
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 29,33 ****
  use C4::Context;
  use C4::Circulation::Circ2;
! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  
  # set the version for version checking
--- 25,29 ----
  use C4::Context;
  use C4::Circulation::Circ2;
! use vars qw($VERSION @ISA @EXPORT);
  
  # set the version for version checking
***************
*** 56,96 ****
  @ISA = qw(Exporter);
  @EXPORT = qw(&GetShelfList &GetShelfContents &AddToShelf &RemoveFromShelf 
&AddShelf &RemoveShelf);
- %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 - Never used
- 
- 
- # non-exported package globals go here
- use vars qw(@more $stuff);            # FIXME - Never used
- 
- # initalize package globals, first exported ones
- # FIXME - Never used
- my $Var1   = '';
- my %Hashit = ();
- 
- # then the others (which are still accessible as $Some::Module::stuff)
- # FIXME - Never used
- my $stuff  = '';
- my @more   = ();
- 
- # all file-scoped lexicals must be created before
- # the functions below that use them.
- 
- # file-private lexicals go here
- # FIXME - Never used
- my $priv_var    = '';
- my %secret_hash = ();
- 
- # here's a file-private function as a closure,
- # callable as &$priv_func;  it cannot be prototyped.
- # FIXME - Never used
- my $priv_func = sub {
-   # stuff goes here.
- };
- 
- # make all your functions, whether exported or not;
  
  my $dbh = C4::Context->dbh;
--- 52,55 ----
***************
*** 281,284 ****
--- 240,247 ----
  #
  # $Log$
+ # Revision 1.9  2002/10/13 08:29:18  arensb
+ # Deleted unused variables.
+ # Removed trailing whitespace.
+ #
  # Revision 1.8  2002/10/10 04:32:44  arensb
  # Simplified references.