From 52d2d7bf923d49a5322ba6e82fefe702d029fb93 Mon Sep 17 00:00:00 2001 From: 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 ðnicitycategories - $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