use Data::Dumper qw(Dumper);
use vars qw($VERSION @ISA @EXPORT);
use vars qw(@ISA @EXPORT);
BEGIN {
# set the version for version checking
use Time::localtime;
use HTML::Entities;
use Encode qw( encode is_utf8);
# use utf8;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login);
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login);
sub psgi_env { any { /^psgi\./ } keys %ENV }
use YAML;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
require Exporter;
use Net::LDAP;
use Net::LDAP::Filter;
use Carp;
use CGI;
use Koha::Authorities;
use Koha::Authority::Types;
use C4::Auth qw/get_session/;
use Digest::MD5;
use vars qw($VERSION);
use vars qw();
use C4::Barcodes::incremental;
use C4::Barcodes::EAN13;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use vars qw($debug $cgi_debug); # from C4::Debug, of course
use vars qw($max $prefformat);
use Algorithm::CheckDigits;
use vars qw($VERSION @ISA);
use vars qw(@ISA);
use Koha::DateUtils qw( output_pref dt_from_string );
use vars qw($width);
use Koha::DateUtils qw( dt_from_string output_pref );
use vars qw($branch $width);
use strict;
use warnings;
$VERSION = 3.07.00.049;
use Koha::Acquisition::Currencies;
use C4::Context;
use Koha::LibraryCategories;
use Koha::Database;
use Koha::XSLT_Handler;
use C4::Debug;
use vars qw($VERSION @EXPORT);
use vars qw(@EXPORT);
use Date::Calc qw( Date_to_Days Today);
use Unicode::Normalize;
use Encode qw( decode encode is_utf8 );
Day_of_Week
Add_Delta_Days
);
use Class::Factory::Util;
use Library::CallNumber::LC;
use C4::ClassSortRoutine;
use vars qw($VERSION $AUTOLOAD $context @context_stack $servers $memcached $ismemcached);
use vars qw($AUTOLOAD $context @context_stack $servers $memcached $ismemcached);
if ($ENV{'HTTP_USER_AGENT'}) {
require CGI::Carp;
use C4::Biblio qw(GetBiblioFromItemNumber);
use C4::Circulation qw(GetOpenIssue);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);
#use warnings; FIXME - Bug 2505
use Exporter;
# use CGI qw ( -utf8 );
use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug);
use vars qw(@ISA @EXPORT $debug $cgi_debug);
# use vars qw(@EXPORT_OK %EXPORT_TAGS);
use vars qw($user $pass $agent $image_url $link_url);
use List::MoreUtils qw(any);
use Data::Dumper;
$VERSION = 3.03;
use GD;
use vars qw($debug $noimage $VERSION @ISA @EXPORT);
use vars qw($debug $noimage @ISA @EXPORT);
use Koha::Plugins::Handler;
use Koha::Logger;
$VERSION = 3.07.00.049; # set version for version checking
use C4::Koha;
use CGI::Session;
$VERSION = 3.00;
use Business::ISBN;
use autouse 'Data::cselectall_arrayref' => qw(Dumper);
use DBI qw(:sql_types);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $DEBUG);
use vars qw(@ISA @EXPORT @EXPORT_OK $DEBUG);
use List::MoreUtils qw( any );
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
eval {
if (C4::Context->ismemcached) {
use Koha::Email;
use Koha::DateUtils qw( format_sqldatetime );
use Koha::DateUtils;
use Koha::SimpleMARC;
use constant DEBUG => 0;
use MARC::Record;
use C4::Members::AttributeTypes;
use vars qw($VERSION @ISA @EXPORT_OK @EXPORT %EXPORT_TAGS);
use vars qw(@ISA @EXPORT_OK @EXPORT %EXPORT_TAGS);
our ($csv, $AttributeTypes);
$VERSION = 3.07.00.049; # set the version for version checking
use C4::Templates;
use Koha::Account::Line;
use Koha::Account::Lines;
use CGI qw ( -utf8 );
use C4::Templates qw/themelanguage/;
use List::MoreUtils qw( firstidx any );
=head1 NAME
use Modern::Perl;
use List::MoreUtils qw/uniq/;
use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField);
use Koha::SimpleMARC qw(read_field);
use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG);
use C4::SIP::Sip::Checksum qw(checksum);
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
use UNIVERSAL::can;
use vars qw(@ISA $VERSION @EXPORT_OK);
use vars qw(@ISA @EXPORT_OK);
use constant INVALID_CARD => 'Invalid cardnumber';
use constant INVALID_PW => 'Invalid password';
use vars qw(@ISA $VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS);
use vars qw( $VERSION );
use vars qw( );
use Schedule::At;
use MARC::Field;
use Koha::Subscriptions;
use Koha::Subscription::Histories;
# Define statuses
use constant {
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use vars qw(@ISA @EXPORT @EXPORT_OK);
our $debug;
use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created);
use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM tags_all\n";
our $ext_dict;
###############################################################################
$VERSION = 3.07.00.049,
use Encode;
my $engine; #XSLT Handler object
my %authval_per_framework;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
$VERSION = '0.25';
use C4::Output;
use Crypt::Eksblowfish::Bcrypt qw(en_base64);
use base qw( Template::Plugin );
use Template::Plugin;
#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
package pdfformat::layout2pages;
use MIME::Base64;
package pdfformat::layout2pagesde;
package pdfformat::layout3pages;
package pdfformat::layout3pagesfr;
use File::Spec;
use vars qw(@ISA @EXPORT $VERSION);
use vars qw(@ISA @EXPORT );
@ISA = ('Exporter');
@EXPORT = ('backup_changed_files');
use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic );
-