Added some FIXME comments.

diff --git a/C4/Groups.pm b/C4/Groups.pm
index 9d7405b..907155a 100755 (executable)
--- 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 d89193c..1562f5f 100644 (file)
--- 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 84f867b..098dbca 100644 (file)
--- 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;