package C4::Koha;
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
use C4::Context;
use vars qw($VERSION @ISA @EXPORT);
-
+
$VERSION = 0.01;
-
+
=head1 NAME
C4::Koha - Perl Module containing convenience functions for Koha scripts
&fixEthnicity
&borrowercategories
ðnicitycategories
- $DEBUG);
+ $DEBUG);
use vars qw();
-
+
my $DEBUG = 0;
=item slashifyDate
=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]")
=cut
#'
-sub fixEthnicity($) {
+sub fixEthnicity($) {
my $ethnicity = shift;
my $dbh = C4::Context->dbh;