[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.25,1.26

[Andrew Arensburger]

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

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


Index: Catalogue.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** Catalogue.pm        10 Oct 2002 04:33:25 -0000      1.25
--- Catalogue.pm        13 Oct 2002 08:29:38 -0000      1.26
***************
*** 1,3 ****
! package C4::Catalogue; #assumes C4/Acquisitions.pm
  
  # Continue working on updateItem!!!!!!
--- 1,3 ----
! package C4::Catalogue;
  
  # Continue working on updateItem!!!!!!
***************
*** 7,12 ****
  #
  # Trying to track down $dbh's that aren't disconnected....
- #
- 
  
  
--- 7,10 ----
***************
*** 34,38 ****
  use C4::Biblio;
  
! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  
  # set the version for version checking
--- 32,36 ----
  use C4::Biblio;
  
! use vars qw($VERSION @ISA @EXPORT);
  
  # set the version for version checking
***************
*** 75,117 ****
             &websitesearch &addwebsite &updatewebsite &deletewebsite
  );
- %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 - Unused
- 
- 
- # non-exported package globals go here
- use vars qw(@more $stuff);            # FIXME - Unused
- 
- # initalize package globals, first exported ones
- # FIXME - Unused
- my $Var1   = '';
- my %Hashit = ();
- 
- 
- # then the others (which are still accessible as $Some::Module::stuff)
- # FIXME - Unused
- my $stuff  = '';
- my @more   = ();
- 
- # all file-scoped lexicals must be created before
- # the functions below that use them.
- 
- # file-private lexicals go here
- # FIXME - Unused
- my $priv_var    = '';
- my %secret_hash = ();
- 
- # here's a file-private function as a closure,
- # callable as &$priv_func;  it cannot be prototyped.
- # FIXME - Unused
- my $priv_func = sub {
-   # stuff goes here.
-   };
- 
- # make all your functions, whether exported or not;
- 
  
  #
--- 73,76 ----