[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)address@hidden;