Bug 18309: UNIMARC update from IFLA - authority (fr) (STU)
[koha.git] / Koha / Util / FrameworkPlugin.pm
blobe226295a13abf0472fd96318fdc020a954a5eee2
1 package Koha::Util::FrameworkPlugin;
3 # Module contains subroutines used in the framework plugins
5 # Copyright 2014 Koha Development Team
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it under the
10 # terms of the GNU General Public License as published by the Free Software
11 # Foundation; either version 3 of the License, or (at your option) any later
12 # version.
14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
16 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License along
19 # with Koha; if not, write to the Free Software Foundation, Inc.,
20 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23 use Modern::Perl;
25 our ( @ISA, @EXPORT, @EXPORT_OK );
26 BEGIN {
27 require Exporter;
28 @ISA = qw( Exporter );
29 @EXPORT = qw( );
30 @EXPORT_OK = qw( wrapper date_entered );
33 =head1 NAME
35 Koha::Util::FrameworkPlugin - utility class with routines for framework plugins
37 =head1 FUNCTIONS
39 =head2 wrapper
41 wrapper returns a text for strings containing spaces, pipe chars, ...
42 The wrapper subroutine is used in several UNIMARC plugins.
44 =cut
46 sub wrapper {
47 my ( $str ) = @_;
48 return "space" if $str eq " ";
49 return "dblspace" if $str eq " ";
50 return "pipe" if $str eq "|";
51 return "dblpipe" if $str eq "||";
52 return $str;
55 =head2 date_entered
57 date_entered returns date in yymmdd format as needed by MARC21 field 008
59 =cut
61 sub date_entered {
62 # find today's date
63 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
64 $year +=1900;
65 $mon +=1;
66 return substr($year,2,2).sprintf ("%0.2d", $mon).sprintf ("%0.2d",$mday);