From c7f9fb2b996e2ee9260d01110ed5604518d08a54 Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Sun, 13 Oct 2002 05:56:10 +0000
Subject: [PATCH] Added some FIXME comments.

---
 C4/Biblio.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 02504a32ac..3673d542d3 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1,6 +1,9 @@
 package C4::Biblio;
 # $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
 #
@@ -1202,7 +1205,7 @@ sub OLDmodsubject {
 
         $sth2->execute;
         while (my $data = $sth2->fetchrow_hashref) {
-          $error = $error."<br>$data->{'catalogueentry'}";
+          $error = $error."<br>$data->{'catalogueentry'}";	# FIXME - .=
         } # while
         $sth2->finish;
       } # else
@@ -1466,7 +1469,7 @@ sub OLDdelitem{
   $sth->finish;
   $query="Insert into deleteditems values (";
   foreach my $temp (@data){
-    $query=$query."'$temp',";
+    $query=$query."'$temp',";		# FIXME - .=
   }
   $query=~ s/\,$/\)/;
 #  print $query;
@@ -1535,7 +1538,7 @@ sub OLDdelbiblio{
     $query="Insert into deletedbiblio values (";
     foreach my $temp (@data){
       $temp=~ s/\'/\\\'/g;
-      $query=$query."'$temp',";
+      $query=$query."'$temp',";		# FIXME - .=
     }
     $query=~ s/\,$/\)/;
 #   print $query;
@@ -1616,6 +1619,7 @@ sub newbiblio {
 
 # 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) = @_;
   my $dbh  = C4::Context->dbh;
@@ -1625,6 +1629,7 @@ sub modbiblio {
 
 # 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) = @_;
   my $dbh   = C4::Context->dbh;
@@ -1635,6 +1640,7 @@ sub modsubtitle {
 # FIXME - This is functionally identical to
 # &C4::Acquisitions::modaddauthor
 # Pick one and stick with it.
+# FIXME - Get the POD from C4::Acquisitions
 sub modaddauthor {
     my ($bibnum, $author) = @_;
     my $dbh   = C4::Context->dbh;
-- 
2.39.5