From 52d2d7bf923d49a5322ba6e82fefe702d029fb93 Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Fri, 11 Oct 2002 12:39:34 +0000
Subject: [PATCH] Removed trailing whitespace that was messing up the POD.

---
 C4/Koha.pm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/C4/Koha.pm b/C4/Koha.pm
index c2093c94a8..cd97111a25 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -1,6 +1,5 @@
 package C4::Koha;
 
-
 # Copyright 2000-2002 Katipo Communications
 #
 # This file is part of Koha.
@@ -23,9 +22,9 @@ require Exporter;
 use C4::Context;
 
 use vars qw($VERSION @ISA @EXPORT);
-  
+
 $VERSION = 0.01;
-    
+
 =head1 NAME
 
 C4::Koha - Perl Module containing convenience functions for Koha scripts
@@ -55,10 +54,10 @@ Koha.pm provides many functions for Koha scripts.
 	     &fixEthnicity
 	     &borrowercategories
 	     &ethnicitycategories
-	     $DEBUG); 
+	     $DEBUG);
 
 use vars qw();
-	
+
 my $DEBUG = 0;
 
 =item slashifyDate
@@ -71,7 +70,7 @@ dashes), converts it to the form "YYYY/MM/DD", and returns the result.
 =cut
 
 sub slashifyDate {
-    # accepts a date of the form xx-xx-xx[xx] and returns it in the 
+    # accepts a date of the form xx-xx-xx[xx] and returns it in the
     # form xx/xx/xx[xx]
     my @dateOut = split('-', shift);
     return("$dateOut[2]/$dateOut[1]/$dateOut[0]")
@@ -88,7 +87,7 @@ Koha database ("European" or "Pacific Islander").
 =cut
 #'
 
-sub fixEthnicity($) { 
+sub fixEthnicity($) {
 
     my $ethnicity = shift;
     my $dbh = C4::Context->dbh;
-- 
2.39.5