[Koha-cvs] CVS: koha/C4 Biblio.pm,1.18,1.19

[Andrew Arensburger]

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

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.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** Biblio.pm   11 Oct 2002 12:34:53 -0000      1.18
--- Biblio.pm   13 Oct 2002 05:56:10 -0000      1.19
***************
*** 2,5 ****
--- 2,8 ----
  # $Id$
  # $Log$
+ # Revision 1.19  2002/10/13 05:56:10  arensb
+ # Added some FIXME comments.
+ #
  # Revision 1.18  2002/10/11 12:34:53  arensb
  # Replaced &requireDBI with C4::Context->dbh
***************
*** 1203,1207 ****
          $sth2->execute;
          while (my $data = $sth2->fetchrow_hashref) {
!           $error = $error."<br>$data->{'catalogueentry'}";
          } # while
          $sth2->finish;
--- 1206,1210 ----
          $sth2->execute;
          while (my $data = $sth2->fetchrow_hashref) {
!           $error = $error."<br>$data->{'catalogueentry'}";    # FIXME - .=
          } # while
          $sth2->finish;
***************
*** 1467,1471 ****
    $query="Insert into deleteditems values (";
    foreach my $temp (@data){
!     $query=$query."'$temp',";
    }
    $query=~ s/\,$/\)/;
--- 1470,1474 ----
    $query="Insert into deleteditems values (";
    foreach my $temp (@data){
!     $query=$query."'$temp',";         # FIXME - .=
    }
    $query=~ s/\,$/\)/;
***************
*** 1536,1540 ****
      foreach my $temp (@data){
        $temp=~ s/\'/\\\'/g;
!       $query=$query."'$temp',";
      }
      $query=~ s/\,$/\)/;
--- 1539,1543 ----
      foreach my $temp (@data){
        $temp=~ s/\'/\\\'/g;
!       $query=$query."'$temp',";               # FIXME - .=
      }
      $query=~ s/\,$/\)/;
***************
*** 1617,1620 ****
--- 1620,1624 ----
  # FIXME - This is in effect the same as &C4::Acquisitions::modbiblio.
  # Pick one and stick with it.
+ # FIXME - Get the POD from C4::Acquisitions
  sub modbiblio {
    my ($biblio) = @_;
***************
*** 1626,1629 ****
--- 1630,1634 ----
  # FIXME - This is in effect identical to &C4::Acquisitions::modsubtitle.
  # Pick one and stick with it.
+ # FIXME - Get the POD from C4::Acquisitions
  sub modsubtitle {
    my ($bibnum, $subtitle) = @_;
***************
*** 1636,1639 ****
--- 1641,1645 ----
  # &C4::Acquisitions::modaddauthor
  # Pick one and stick with it.
+ # FIXME - Get the POD from C4::Acquisitions
  sub modaddauthor {
      my ($bibnum, $author) = @_;