[Koha-cvs] CVS: koha/C4 Search.pm,1.39.2.1,1.39.2.2

[Andrew Arensburger]

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

Modified Files:
      Tag: arensb-context
	Search.pm 
Log Message:
Added a whole mess of FIXME comments.


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.39.2.1
retrieving revision 1.39.2.2
diff -C2 -r1.39.2.1 -r1.39.2.2
*** Search.pm	4 Oct 2002 02:26:20 -0000	1.39.2.1
--- Search.pm	5 Oct 2002 06:14:01 -0000	1.39.2.2
***************
*** 24,27 ****
--- 24,29 ----
  use C4::Context;
  use C4::Reserves2;
+ 	# FIXME - C4::Search uses C4::Reserves2, which uses C4::Search.
+ 	# So Perl complains that all of the functions here get redefined.
  use Set::Scalar;
  
***************
*** 1062,1067 ****
  	   my $sth=$dbh->prepare($query);
  	   $sth->execute;
  	   my $data=$sth->fetchrow_hashref;
- 		# FIXME - There's already a $data in this scope.
  	   my ($dewey, $subclass) = ($data->{'dewey'}, $data->{'subclass'});
  	   # FIXME - The following assumes that the Dewey code is a
--- 1064,1069 ----
  	   my $sth=$dbh->prepare($query);
  	   $sth->execute;
+ 	   # FIXME - There's already a $data in this scope.
  	   my $data=$sth->fetchrow_hashref;
  	   my ($dewey, $subclass) = ($data->{'dewey'}, $data->{'subclass'});
  	   # FIXME - The following assumes that the Dewey code is a
***************
*** 2029,2032 ****
--- 2031,2038 ----
  =cut
  #'
+ 
+ # FIXME - There's also a &C4::Acquisitions::itemcount and
+ # &C4::Biblio::itemcount.
+ # Since they're all exported, acqui/acquire.pl doesn't compile with -w.
  sub itemcount {
    my ($env,$bibnum,$type)=@_;