From b5c2a888bea91b92209dea47cfd0a43badfb646c Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Sat, 28 Sep 2002 04:58:18 +0000
Subject: [PATCH 1/1] Added some FIXME comments.

---
 C4/Groups.pm | 3 +++
 C4/Scan.pm   | 1 +
 C4/Stock.pm  | 3 +++
 3 files changed, 7 insertions(+)

diff --git a/C4/Groups.pm b/C4/Groups.pm
index 9d7405be1f..907155a16d 100755
--- a/C4/Groups.pm
+++ b/C4/Groups.pm
@@ -21,6 +21,9 @@ package C4::Groups;
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
+# FIXME - This package is only used in groups.pl, which in turn is
+# never used. Presumably this module is therefore obsolete.
+
 use strict;
 require Exporter;
 use DBI;
diff --git a/C4/Scan.pm b/C4/Scan.pm
index d89193c104..1562f5f533 100644
--- a/C4/Scan.pm
+++ b/C4/Scan.pm
@@ -29,6 +29,7 @@ $VERSION = 0.01;
 @ISA = qw(Exporter);
 @EXPORT = qw(&getbarcode);
 
+# FIXME - Never used
 sub Getbarcode {
 }
 
diff --git a/C4/Stock.pm b/C4/Stock.pm
index 84f867b725..098dbca366 100644
--- a/C4/Stock.pm
+++ b/C4/Stock.pm
@@ -30,6 +30,9 @@ $VERSION = 0.01;
 @ISA = qw(Exporter);
 @EXPORT = qw(&stockreport);
 
+# FIXME - This function is only used in reports.pl, which in turn is
+# never used. This function (and therefore this module) is probably
+# obsolete.
 sub stockreport {
   my $dbh=C4Connect;
   my @results;
-- 
2.20.1