BEGIN {
# set the version for version checking
$VERSION = 3.03;
$VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
$VERSION = 3.01;
if ( psgi_env ) { die 'psgi:exit' }
else { exit }
}
$VERSION = 3.02; # set version for version checking
$VERSION = 3.07.00.049; # set version for version checking
$debug = $ENV{DEBUG};
@EXPORT = qw(&checkauth &get_template_and_user &haspermission &get_user_subpermissions);
$VERSION = 3.03; # set the version for version checking
$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);
$VERSION = 3.10; # set the version for version checking
@EXPORT = qw( checkpw_ldap );
use strict;
#use warnings; FIXME - Bug 2505
use MARC::Record;
our $VERSION = 3.00;
our $VERSION = 3.07.00.049;
=head1 NAME
$VERSION = 3.00;
use vars qw($max $prefformat);
$VERSION = 0.01;
@EXPORT_OK = qw();
$VERSION = 0.02;
@EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY);
use vars qw($width);
@ISA = qw(C4::Barcodes);
$width = 4;
use vars qw($branch $width);
use vars qw($VERSION @ISA);
use vars qw($VERSION @ISA @EXPORT);
$VERSION = 1.00;
@ISA = qw( Exporter );
use base qw( Exporter );
our $VERSION = 4.01;
our @EXPORT_OK = qw(
GetBookSeller GetBooksellersWithLateOrders GetBookSellerFromId
ModBookseller
use Carp;
use base qw(Exporter);
our $VERSION = 0.03;
our @EXPORT_OK = qw( true_p);
$VERSION = 3.02;
&GetBranchCategory
@EXPORT = qw(&ImportBreeding &BreedingSearch);
$VERSION = 3.02; # for version checking
$VERSION = 3.07.00.049; # for version checking
# FIXME subs that should probably be elsewhere
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use vars qw($VERSION);
$ismemcached = $memcached->set('ismemcached','1');
$VERSION = '3.00.00.036';
$VERSION = '3.07.00.049';
use DBI;
$VERSION = 3.2;
package C4::Creators;
use version; our $VERSION = qv('1.0.0_1');
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 PDF::Reuse::Barcode;
sub _InitVars {
use C4::Creators::Lib 1.000000 qw(get_unit_values);
use vars qw($debug $cgi_debug);
$VERSION = 0.04;
@EXPORT_OK = qw(format_date_in_iso format_date);
# use vars qw(@EXPORT_OK %EXPORT_TAGS);
$VERSION = 1.00; # set the version for version checking
@EXPORT = qw($debug $cgi_debug);
# @EXPOR_OK = qw();
$VERSION = 0.03;
get_amazon_details
@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
%EXPORT_TAGS = (all=>\@EXPORT_OK);
&get_syndetics_index
use Module::Load;
use MARC::Field;
use C4::Context;
$VERSION = 3.03; # set version for version checking
use C4::Installer::PerlModules 1.000000;
use C4::Installer::PerlDependencies;
our $PERL_DEPS = $C4::Installer::PerlDependencies::PERL_DEPS;
use vars qw($VERSION @ISA @EXPORT $DEBUG);
package C4::Labels;
use C4::Labels::Batch 1.000000;
use C4::Labels::Label 1.000000;
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 &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages
@EXPORT = qw(&logaction &GetLogStatus &displaylog &GetLogs);
our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug);
$debug = $ENV{DEBUG} || 0;
@EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
extended_attributes_code_value_arrayref extended_attributes_merge
$VERSION = 3.01; # set the version for version checking
&GetNewsToDisplay
# subs to rename (and maybe merge some...)
package C4::Patroncards;
our @EXPORT = qw(unpack_UTF8
text_alignment
use C4::Patroncards::Lib 1.000000 qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
sub new {
@EXPORT = qw(&printslip);
$VERSION = 0.13;
$VERSION = 0.12;
@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$VERSION = 2.11;
$VERSION = 2.03;
@EXPORT_OK = qw(invalid_patron);
use vars qw($VERSION @ISA $debug);
$VERSION = 1.03;
@ISA = qw(ILS::Transaction);
our $debug = 0;
our $VERSION = 1.00;
my %fields = ();
$VERSION = 1.01;
use vars qw(@ISA $VERSION);
$VERSION = 1.02;
@ISA = qw(Net::Server::PreFork);
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
@EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
use vars qw(@ISA $VERSION @EXPORT_OK);
@EXPORT_OK = qw(handle);
use vars qw( $VERSION );
=head1 METHODS
$VERSION = 0.5;
@EXPORT_OK=qw(
@EXPORT =
our $VERSION = 0.02;
our $VERSION = v3.07.00.049;
my %scrubbertypes = (
$DEBUG = ($ENV{DEBUG}) ? 1 : 0;
$VERSION = 3.01; # set version for version checking
&UpdateStats
use List::MoreUtils qw<any>;
use C4::Dates qw(format_date_in_iso);
our $VERSION = 3.01;
our @EXPORT = qw<
ConnectSuggestionAndBiblio
CountSuggestion
use vars qw($ext_dict $select_all @fields);
@EXPORT_OK = qw(
&get_tag &get_tags &get_tag_rows
###############################################################################
@EXPORT_OK = qw(&maxwidth &hashdump);
$VERSION = 3.04,
$VERSION = 3.07.00.049,
@EXPORT = qw(dt_build_orderby dt_build_having dt_get_params dt_build_query);
use vars qw($debug @EXPORT @ISA $VERSION);
@EXPORT = qw(&shelfpage);
&get_xisbns
&XSLTParse4Display
-