starting to move ethnicity stuff out of programs and into modules

diff --git a/C4/Koha.pm b/C4/Koha.pm
index 41f1fa7..80beedf 100644 (file)
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -9,10 +9,12 @@ $VERSION = 0.01;
     
 @ISA = qw(Exporter);
 @EXPORT = qw(&slashifyDate
-            &fixEthnicity); 
+            &fixEthnicity
+            $DEBUG); 
 
 use vars qw();
        
+my $DEBUG = 0;
 
 sub slashifyDate {
     # accepts a date of the form xx-xx-xx[xx] and returns it in the