[Koha-cvs] CVS: koha/C4 Biblio.pm,1.9,1.10

[Andrew Arensburger]

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

Modified Files:
        Biblio.pm 
Log Message:
Added some FIXME comments.


Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** Biblio.pm   20 Sep 2002 12:57:46 -0000      1.9
--- Biblio.pm   22 Sep 2002 16:50:08 -0000      1.10
***************
*** 2,5 ****
--- 2,8 ----
  # $Id$
  # $Log$
+ # Revision 1.10  2002/09/22 16:50:08  arensb
+ # Added some FIXME comments.
+ #
  # Revision 1.9  2002/09/20 12:57:46  tipaul
  # long is the road to 1.4.0
***************
*** 132,143 ****
  # 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 = ();
--- 135,147 ----
  # as well as any optionally exported functions
  
! @EXPORT_OK   = qw($Var1 %Hashit);     # FIXME - These are never used
  
  
  # non-exported package globals go here
! use vars qw(@more $stuff);            # FIXME - These are never used
  
  # initalize package globals, first exported ones
  
+ # FIXME - These are never used
  my $Var1   = '';
  my %Hashit = ();
***************
*** 145,148 ****
--- 149,153 ----
  
  # then the others (which are still accessible as $Some::Module::stuff)
+ # FIXME - These are never used
  my $stuff  = '';
  my @more   = ();
***************
*** 152,155 ****
--- 157,161 ----
  
  # file-private lexicals go here
+ # FIXME - These are never used
  my $priv_var    = '';
  my %secret_hash = ();
***************
*** 157,160 ****
--- 163,167 ----
  # here's a file-private function as a closure,
  # callable as &$priv_func;  it cannot be prototyped.
+ # FIXME - This is never used
  my $priv_func = sub {
    # stuff goes here.
***************
*** 173,176 ****
--- 180,184 ----
  
  =head1 SYNOPSIS
+ 
    MARCxxx related subs
    all subs requires/use $dbh as 1st parameter.