BEGIN {
# set the version for version checking
$VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
if (psgi_env) { die 'psgi:exit' }
else { exit }
}
$VERSION = 3.07.00.049; # set version for version checking
$debug = $ENV{DEBUG};
$VERSION = 3.07.00.049; # set the version for version checking
@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
@EXPORT = qw( checkpw_ldap );
$VERSION = 3.03; # set the version for version checking
@EXPORT =
use strict;
#use warnings; FIXME - Bug 2505
use MARC::Record;
our $VERSION = 3.07.00.049;
=head1 NAME
use vars qw($max $prefformat);
@EXPORT_OK = qw();
use vars qw($debug $cgi_debug); # from C4::Debug, of course
$VERSION = 0.01;
@ISA = qw(C4::Barcodes);
use vars qw($width);
$width = 4;
use vars qw($branch $width);
use vars qw(@ISA);
use vars qw(@ISA @EXPORT);
@ISA = qw( Exporter );
use C4::Bookseller::Contact;
our @EXPORT_OK = qw(
GetBooksellersWithLateOrders
ModBookseller
use Carp;
use base qw(Exporter);
our @EXPORT_OK = qw( true_p);
&GetBranchName
@EXPORT = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth);
$VERSION = 3.07.00.049; # for version checking
# FIXME subs that should probably be elsewhere
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use vars qw();
$ismemcached = $memcached->set('ismemcached','1');
$VERSION = '3.07.00.049';
use Encode;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use version; our $VERSION = qv('3.07.00.049');
use vars qw(@EXPORT @ISA);
our @EXPORT = qw(get_all_templates
use C4::Debug;
sub _check_params {
use C4::Creators::PDF;
# FIXME: Consider this style parameter verification instead...
get_all_layouts
use List::Util qw/first/;
sub _InitVars {
use C4::Creators::Lib qw(get_unit_values);
# use vars qw(@EXPORT_OK %EXPORT_TAGS);
@EXPORT = qw($debug $cgi_debug);
# @EXPOR_OK = qw();
get_amazon_tld
@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
%EXPORT_TAGS = (all=>\@EXPORT_OK);
our @ISA = qw( Exporter ) ;
our @EXPORT = qw(
IsOverDriveEnabled
&get_syndetics_index
use Module::Load;
use MARC::Field;
use C4::Context;
$VERSION = 3.03;
@EXPORT_OK = qw(
$VERSION = 3.00;
use Encode qw( encode is_utf8 );
use C4::Installer::PerlModules;
use DBI;
use C4::Installer::PerlDependencies;
our $PERL_DEPS = $C4::Installer::PerlDependencies::PERL_DEPS;
use vars qw(@ISA @EXPORT @EXPORT_OK $DEBUG);
package C4::Labels;
use C4::Labels::Batch;
use C4::Labels::Label;
use autouse 'Data::Dumper' => qw(Dumper);
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
use C4::Biblio;
my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
use constant TEMPLATE_TABLE => 'creator_templates';
};
&GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages &GetMessageTransportTypes
@EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs);
use constant DEBUG => 0;
$VERSION = 1.00; # set the version for version checking
&GetModificationTemplates
$debug = $ENV{DEBUG} || 0;
@EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
DeleteBorrowerAttribute UpdateBorrowerAttribute
&GetNewsToDisplay
push @EXPORT, qw(
package C4::Patroncards;
our @EXPORT = qw(unpack_UTF8
text_alignment
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
sub new {
@EXPORT = qw(&NetworkPrint);
@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
use Koha::SimpleMARC qw(read_field);
use C4::Reserves;
use Koha::Database;
=encoding UTF-8
use C4::Items qw( GetBarcodeFromItemnumber GetItemnumbersForBiblio);
use C4::Auth qw(checkpw);
our $kp; # koha patron
our $debug;
# Most fields are handled by the Transaction superclass
my %fields = (
our $debug = 0;
my %fields = ();
use parent qw(C4::SIP::ILS::Transaction);
expiration_date => 0,
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
@EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
use vars qw(@ISA @EXPORT_OK);
@EXPORT_OK = qw(handle login_core);
use vars qw( );
=head1 METHODS
our $VERSION = v3.07.00.049;
my %scrubbertypes = (
$DEBUG = ($ENV{DEBUG}) ? 1 : 0;
);
$VERSION = 3.01;
use vars qw(@ISA @EXPORT @EXPORT_OK);
&UpdateStats
use List::MoreUtils qw(any);
ConnectSuggestionAndBiblio
CountSuggestion
our $ext_dict;
&get_tag &get_tags &get_tag_rows
=cut
###############################################################################
$VERSION = 3.07.00.049,
@EXPORT = qw(dt_build_orderby dt_build_having dt_get_params dt_build_query);
&get_xisbns
&XSLTParse4Display
use base 'Exporter';
our $VERSION = '1.01';
our @EXPORT_OK = qw(hash_password);
use base qw(Koha::RecordProcessor::Base);
our $NAME = 'EmbedSeeFromHeadings';
our $VERSION = '1.0';
=head2 filter
our $NAME = 'Null';
use Modern::Perl;
$VERSION = '0.25';
use C4::Output;
__PACKAGE__->mk_ro_accessors(qw( name version ));
__PACKAGE__->mk_accessors(qw( params ));
our $NAME = 'Base';
=head2 new
field_equals
our $VERSION = '0.01';
use base qw( Template::Plugin );
use Template::Plugin;
$VERSION = '0.01';
#------------------------------------------------------------------------
# new(\%options)
use Exporter ();
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
$VERSION = 1.00;
@EXPORT = qw(printpdf);
@ISA = ('Exporter');
@EXPORT = ('backup_changed_files');
$VERSION = '3.00';
$VERSION = 0.02;
## Required for all plugins
use base qw(Koha::Plugins::Base);
our $VERSION = 1.01;
our $metadata = {
name => 'Test Plugin',
author => 'Kyle M Hall',
-