--- /dev/null
+package Koha::Util::FrameworkPlugin;
+
+# Module contains subroutines used in the framework plugins
+#
+# Copyright 2014 Koha Development Team
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 3 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+use Modern::Perl;
+
+our ( @ISA, @EXPORT, @EXPORT_OK );
+BEGIN {
+ require Exporter;
+ @ISA = qw( Exporter );
+ @EXPORT = qw( );
+ @EXPORT_OK = qw( wrapper );
+}
+
+=head1 NAME
+
+Koha::Util::Plugin - utility class with routines for framework plugins
+
+=head1 FUNCTIONS
+
+=head2 wrapper
+
+ wrapper returns a text for strings containing spaces, pipe chars, ...
+ The wrapper subroutine is used in several UNIMARC plugins.
+
+=cut
+
+sub wrapper {
+ my ( $str ) = @_;
+ return "space" if $str eq " ";
+ return "dblspace" if $str eq " ";
+ return "pipe" if $str eq "|";
+ return "dblpipe" if $str eq "||";
+ return $str;
+}
+
+1;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ( $field_number, $res );
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "dblspace" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ( $field_number, $res );
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "dblspace" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($field_number,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($field_number,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ( $field_number, $res );
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ( $field_number, $res );
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ( $field_number, $res );
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "dblspace" if $char eq " ";
- return "pipe" if $char eq "|";
- return "dblpipe" if $char eq "||";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($field_number,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "dblspace" if $char eq " ";
- return "pipe" if $char eq "|";
- return "dblpipe" if $char eq "||";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($function_name,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "dblspace" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($function_name,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($function_name,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($function_name,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($function_name,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "dblpipe" if $char eq "||";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($function_name,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($function_name,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ($function_name,$res);
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "dblspace" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;
use strict;
#use warnings; FIXME - Bug 2505
+
+use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI;
use C4::Context;
return ( $function_name, $res );
}
-sub wrapper {
- my ($char) = @_;
- return "space" if $char eq " ";
- return "pipe" if $char eq "|";
- return $char;
-}
sub plugin {
my ($input) = @_;