Attachment #121309 for bug #17600

View | Details | Raw Unified | Return to bug 17600
Collapse All | Expand All




use URI::Escape;
use CGI::Session;

require Exporter;
use C4::Context;
use C4::Templates;    # to get the template
use C4::Languages;

use C4::Log qw/logaction/;

# use utf8;
use vars qw($debug $ldap $cas $caslogout);
our (@ISA, @EXPORT_OK);
BEGIN {
    sub psgi_env { any { /^psgi\./ } keys %ENV }


    C4::Context->set_remote_address;

    $debug     = $ENV{DEBUG};
    require Exporter;
    @ISA = qw(Exporter);

    @EXPORT_OK = qw(&check_api_auth &get_session &check_cookie_auth &checkpw &checkpw_internal &checkpw_hash
      &get_all_subpermissions &get_user_subpermissions track_login_daily &in_iprange
      &get_template_and_user
    );

    $debug     = $ENV{DEBUG};
    $ldap      = C4::Context->config('useldapserver') || 0;
    $cas       = C4::Context->preference('casAuthentication');
    $caslogout = C4::Context->preference('casLogout');




use YAML::XS;


use vars qw($debug);
our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;
    $debug = $ENV{DEBUG};
    @ISA   = qw(Exporter);
    @EXPORT_OK = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required);
}
my $defaultcasserver;
my $casservers;




use Net::LDAP;
use Net::LDAP::Filter;

use vars qw($debug);
our (@ISA, @EXPORT_OK);
BEGIN {
	require Exporter;
	@ISA    = qw(Exporter);
	@EXPORT_OK = qw( checkpw_ldap );
}

# Redefine checkpw_ldap:




use CGI;
use List::MoreUtils qw(any);

use vars qw($debug);
our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    $debug   = $ENV{DEBUG};
    @ISA     = qw(Exporter);
    @EXPORT_OK =
      qw(shib_ok logout_shib login_shib_url checkpw_shib get_login_shib);
}





use C4::Barcodes::incremental;
use C4::Barcodes::EAN13;

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);

BEGIN {
	require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw();
}

sub _prefformat {
	unless (defined $prefformat) {
		unless ($prefformat = C4::Context->preference('autoBarcode')) {





use Modern::Perl;

use vars qw(@ISA @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA = qw(Exporter);

    @EXPORT_OK = qw(
        AddBiblio
        GetBiblioData
        GetMarcBiblio

    # those functions are exported but should not be used
    # they are useful in a few circumstances, so they are exported,
    # but don't use them unless you are a core developer ;-)
    push @EXPORT_OK, qw(
      ModBiblioMarc
    );
}

use C4::Koha;
use C4::Log;    # logaction
use C4::Budgets;
use C4::ClassSource qw( GetClassSort );
use C4::Charset qw( SetUTF8Flag );
use C4::Linker;
use C4::OAI::Sets;
use C4::Debug;
use C4::Items;

use Koha::Caches;
use Koha::Authority::Types;


use vars qw($debug $cgi_debug);


=head1 NAME

C4::Biblio - cataloging management functions




use Koha::Database;
use Koha::XSLT::Base;

our (@ISA, @EXPORT_OK);

BEGIN {
	require Exporter;
	@ISA = qw(Exporter);
    @EXPORT_OK = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth);
}

=head1 NAME




use Unicode::Normalize;
use Encode qw( decode encode is_utf8 );

our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
        NormalizeString
        IsStringUTF8ish
        MarcToUTF8Record




  Day_of_Week
  Add_Delta_Days
);
our (@ISA, @EXPORT_OK);

BEGIN {

    require Exporter;
    @ISA = qw(Exporter);

    # FIXME subs that should probably be elsewhere
    push @EXPORT_OK, qw(
      &barcodedecode
      &LostItem
      &ReturnLostItem
      &GetPendingOnSiteCheckouts

      &CanBookBeIssued
      &CanBookBeRenewed
      &AddIssue
      &AddRenewal
      &GetRenewCount
      &GetSoonestRenewDate
      &GetLatestAutoRenewDate
      &GetIssuingCharges
      &GetBranchBorrowerCircRule
      &GetBranchItemRule
      &GetBiblioIssues
      &GetOpenIssue
      &CheckIfIssuedToPatron
      &IsItemIssued
      GetTopIssues

      &AddReturn
      &MarkIssueReturned

      &transferbook
      &GetTransfers
      &GetTransfersFromTo
      &updateWrongTransfer
      &IsBranchTransferAllowed
      &CreateBranchTransferLimit
      &DeleteBranchTransferLimits
      &TransferSlip

		&GetTransfersFromTo
		&updateWrongTransfer
                &IsBranchTransferAllowed
                &CreateBranchTransferLimit
                &DeleteBranchTransferLimits
        &TransferSlip
	);

    # subs to deal with offline circulation
    push @EXPORT, qw(
      &GetOfflineOperations
      &GetOfflineOperation
      &AddOfflineOperation




use strict;
use warnings;

require Exporter;
use Class::Factory::Util;
use C4::Context;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
       &GetSortRoutineNames
       &GetClassSortKey
    );
}

=head1 NAME 



=cut

@ISA    = qw(Exporter);
@EXPORT = qw(
   &GetSortRoutineNames
   &GetClassSortKey
);

# initialization code
my %loaded_routines = ();
my @sort_routines = GetSortRoutineNames();




use strict;
use warnings;

require Exporter;
use C4::Context;
use C4::ClassSortRoutine qw( GetClassSortKey );

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
        &GetClassSources
        &GetClassSource
        &GetClassSortRule
        &GetClassSort
    );
}

=head1 NAME



=cut


@ISA    = qw(Exporter);
@EXPORT = qw(
    &GetClassSources
    &GetClassSource
    &GetClassSortRule

    &GetClassSort

);

=head2 GetClassSources

  my $sources = GetClassSources();

Lines 27-34 use Koha::Course::Instructors; Link Here

(-)a/C4/CourseReserves.pm (-3 / +3 lines)
27	use Koha::Course::Items;	27	use Koha::Course::Items;
28	use Koha::Course::Reserves;	28	use Koha::Course::Reserves;
29		29
30	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);	30	use vars qw($DEBUG @FIELDS);
31		31	our (@ISA, @EXPORT_OK);
32	BEGIN {	32	BEGIN {
33	require Exporter;	33	require Exporter;
34	@ISA = qw(Exporter);	34	@ISA = qw(Exporter);
Lines 53-59 BEGIN { Link Here
53		53
54	&GetItemCourseReservesInfo	54	&GetItemCourseReservesInfo
55	);	55	);
56	%EXPORT_TAGS = ( 'all' => \@EXPORT_OK );	56	#%EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
57		57
58	$DEBUG = 0;	58	$DEBUG = 0;
59	@FIELDS = ( 'itype', 'ccode', 'homebranch', 'holdingbranch', 'location' );	59	@FIELDS = ( 'itype', 'ccode', 'homebranch', 'holdingbranch', 'location' );





use Modern::Perl;

use vars qw(%EXPORT_TAGS $VERSION);
our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;
    @ISA = qw(Exporter);
    $VERSION = 3.07.00.049;
    @EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
#	%EXPORT_TAGS = (all=>\@EXPORT_OK);
}

# These variables are plack safe: they are initialized each time

Lines 37-43 use List::Util qw(shuffle); Link Here

(-)a/C4/HoldsQueue.pm (-1 / +1 lines)
37	use List::MoreUtils qw(any);	37	use List::MoreUtils qw(any);
38	use Data::Dumper;	38	use Data::Dumper;
39		39
40	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	40	our (@ISA, @EXPORT_OK);
41	BEGIN {	41	BEGIN {
42	require Exporter;	42	require Exporter;
43	@ISA = qw(Exporter);	43	@ISA = qw(Exporter);




use Koha::Plugins::Handler;
use Koha::Logger;

our (@ISA, @EXPORT_OK);

BEGIN {
	require Exporter;
	@ISA    = qw(Exporter);
	@EXPORT_OK = qw(
    GetZ3950BatchId
    GetWebserviceBatchId
    GetImportRecordMarc




use C4::Debug;


our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
        &ExportFramework
        &ImportFramework
        &createODS




use C4::Templates;
use C4::Koha;

our (@ISA, @EXPORT_OK);
BEGIN {
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
      &checkauth
      &get_template_and_user
    );
}

=head1 NAME






use Modern::Perl;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA = qw(Exporter);

    @EXPORT_OK = qw(
        AddItemFromMarc
        AddItemBatchFromMarc
        ModItemFromMarc

use Try::Tiny;
use C4::Context;
use C4::Koha;
use C4::Biblio qw( GetFrameworkCode );
use Koha::DateUtils;
use MARC::Record;
use C4::ClassSource;




use Business::ISBN;
use Business::ISSN;
use autouse 'Data::cselectall_arrayref' => qw(Dumper);
our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
        &GetItemTypesCategorized
        &getallthemes
        &getFacets

        &GetVariationsOfISSNs
        &NormalizeISSN

        GetDailyQuote

    );
}

=head1 NAME

    my @imagesets = (); # list of hasrefs of image set data to pass to template
    my @subdirectories = _getSubdirectoryNames( $paths->{'staff'}{'filesystem'} );
    foreach my $imagesubdir ( @subdirectories ) {
    warn $imagesubdir if $DEBUG;
        my @imagelist     = (); # hashrefs of image info
        my @imagenames = _getImagesFromDirectory( File::Spec->catfile( $paths->{'staff'}{'filesystem'}, $imagesubdir ) );
        my $imagesetactive = 0;




use C4::Context;
use Koha::Caches;
use Koha::Cache::Memory::Lite;
use vars qw($DEBUG);
our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
        &getFrameworkLanguages
        &getTranslatedLanguages
        &getLanguages
        &getAllLanguages
    );
    push @EXPORT_OK, qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage);
    $DEBUG = 0;
}





use Koha::SMTP::Servers;
use Koha::Subscriptions;

our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(
        &EnqueueLetter &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &SendAlerts &GetPrintMessages &GetMessageTransportTypes
    );
}




use Koha::Patrons;
use Koha::Patron::Categories;

our ($debug);

our (@ISA, @EXPORT_OK);
BEGIN {
    $debug = $ENV{DEBUG} || 0;
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(
        &GetMemberDetails
        &GetMember

        &GetAllIssues

        &GetBorrowersToExpunge

        &IssueSlip
    );

    #Check data
    push @EXPORT, qw(
        &checkuserpassword
        &checkcardnumber
    );





use C4::Context;

our ( @ISA, @EXPORT_OK, $debug );

BEGIN {
    $debug = $ENV{DEBUG} || 0;
    require Exporter;
    @ISA = qw(Exporter);

    @EXPORT_OK = qw(
        &GetTotalIssuesTodayByBorrower
        &GetTotalIssuesReturnedTodayByBorrower
        &GetPrecedentStateByBorrower




use C4::Context;
use C4::Templates;

our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;

    @ISA    = qw(Exporter);
    @EXPORT_OK, qw(
        is_ajax
        ajax_fail
                    ajax =>[qw(&output_with_http_headers &output_ajax_with_http_headers is_ajax)],
                    html =>[qw(&output_with_http_headers &output_html_with_http_headers)]
                );
    push @EXPORT, qw(
        setlanguagecookie getlanguagecookie pagination_bar parametrized_url
    );
    push @EXPORT, qw(
        &output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers
        &output_and_exit_if_error &output_and_exit &output_error
    );
#    %EXPORT_TAGS = ( all =>[qw(setlanguagecookie pagination_bar parametrized_url
#                                &output_with_http_headers &output_ajax_with_http_headers &output_html_with_http_headers)],
#                    ajax =>[qw(&output_with_http_headers &output_ajax_with_http_headers is_ajax)],
#                    html =>[qw(&output_with_http_headers &output_html_with_http_headers)]
#                );
}

=head1 NAME




use Koha::Account::Offsets;
use Koha::Libraries;

our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;
    @ISA = qw(Exporter);

    # subs to rename (and maybe merge some...)
    @EXPORT_OK = qw(
      &CalcFine
      &Getoverdues
      &checkoverdues

      &GetOverduesForBranch
      &GetOverdueMessageTransportTypes
      &parse_overdues_letter
    );

    # subs to move to Circulation.pm
    push @EXPORT, qw(
      &GetIssuesIteminfo
    );
}




use Modern::Perl;
use CGI qw ( -utf8 );

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use C4::Context;
use C4::Debug;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(
        GetDelimiterChoices
    );
}




use Carp;
use JSON qw( from_json );

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use C4::Context;
use C4::Templates qw/themelanguage/;
use C4::Koha;

use Koha::Patron::Categories;
use Koha::SharedContent;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
      get_report_types get_report_areas get_report_groups get_columns build_query get_criteria
      save_report get_saved_reports execute_query
      get_column_type get_distinct_values save_dictionary get_from_dictionary




use Data::Dumper;
use List::MoreUtils qw( firstidx any );

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

=head1 NAME

C4::Reserves - Koha functions for dealing with reservation.


=cut

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(
        &AddReserve

        &GetReserveStatus

        IsItemOnHoldAndFound

        GetMaxPatronHoldsForRecord

        MergeHolds
    );
    @EXPORT_OK = qw( MergeHolds );
}

=head2 AddReserve




package C4::SIP::Sip::Checksum;

use Exporter;
use strict;
use warnings;

our (@ISA, @EXPORT_OK);
our @EXPORT_OK = qw(checksum verify_cksum);
our $debug = 0;
BEGIN {
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(checksum verify_cksum);
}

sub checksum {
    my $pkt = shift;





use Modern::Perl;

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use C4::Context;
use Schedule::At;

our (@ISA, @EXPORT_OK);
BEGIN {
	require Exporter;
	@ISA = qw(Exporter);
	@EXPORT_OK =
		qw(get_jobs get_at_jobs get_at_job add_at_job remove_at_job);
}





# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;
require Exporter;
use C4::Context;
use C4::Biblio;    # GetMarcFromKohaField, GetBiblioData
use C4::Koha;      # getFacets

use Business::ISBN;
use MARC::Record;
use MARC::Field;
use vars qw($DEBUG);

our (@ISA, @EXPORT_OK);
BEGIN {
    $DEBUG = ($ENV{DEBUG}) ? 1 : 0;

    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
      &FindDuplicate
      &SimpleSearch
      &searchResults
      &getRecords
      &buildQuery
      &GetDistinctValues
      &enabled_staff_search_views
    );
}

=head1 NAME


=cut

@ISA    = qw(Exporter);
@EXPORT = qw(
  &FindDuplicate
  &SimpleSearch
  &searchResults
  &getRecords
  &buildQuery
  &GetDistinctValues
  &enabled_staff_search_views
);

# make all your functions, whether exported or not;

=head2 FindDuplicate




use Koha::SharedContent;
use Scalar::Util qw( looks_like_number );

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

# Define statuses
use constant {
    EXPECTED               => 1,

    MISSING_LOST
);

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(
      &NewSubscription    &ModSubscription    &DelSubscription
      &GetSubscription    &CountSubscriptionFromBiblionumber      &GetSubscriptionsFromBiblionumber
      &SearchSubscriptions




use Koha::Biblios;
use Koha::Libraries;

our (@ISA, @EXPORT_OK);

BEGIN {
	require Exporter;
	@ISA    = qw(Exporter);
	@EXPORT = qw(
	    &GetNearbyItems
    );
    @EXPORT_OK = qw(
	    &GetNearbyItems
    );
}


Lines 30-37 use Module::Load::Conditional qw/check_install/; Link Here

(-)a/C4/Tags.pm (-3 / +1 lines)
30	use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created);	30	use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created);
31	use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM tags_all\n";	31	use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM tags_all\n";
32		32
33	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	33	our (@ISA, @EXPORT_OK);
34
35	BEGIN {	34	BEGIN {
36	@ISA = qw(Exporter);	35	@ISA = qw(Exporter);
37	@EXPORT_OK = qw(	36	@EXPORT_OK = qw(
Lines 49-55 BEGIN { Link Here
49	&get_filters	48	&get_filters
50	stratify_tags	49	stratify_tags
51	);	50	);
52	# %EXPORT_TAGS = ();
53	my $ext_dict = C4::Context->preference('TagsExternalDictionary');	51	my $ext_dict = C4::Context->preference('TagsExternalDictionary');
54	if ( $ext_dict && ! check_install( module => 'Lingua::Ispell' ) ) {	52	if ( $ext_dict && ! check_install( module => 'Lingua::Ispell' ) ) {
55	warn "Ignoring TagsExternalDictionary, because Lingua::Ispell is not installed.";	53	warn "Ignoring TagsExternalDictionary, because Lingua::Ispell is not installed.";




use Modern::Perl;
require Exporter;

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

###############################################################################

=head1 NAME

###############################################################################


@ISA = qw(Exporter);
@EXPORT_OK = qw(
    &TEXT
    &TEXT_PARAMETRIZED
    &CDATA
    &TAG
    &DECL
    &PI
    &DIRECTIVE
    &COMMENT
    &UNKNOWN
);

###############################################################################

use vars qw( $_text $_text_parametrized $_cdata
    $_tag $_decl $_pi $_directive $_comment $_null $_unknown );

our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(
        &TEXT
        &TEXT_PARAMETRIZED
        &CDATA
        &TAG
        &DECL
        &PI
        &DIRECTIVE
        &COMMENT
        &UNKNOWN
    );

    my $new = sub {
	my $this = 'C4::TmplTokenType';#shift;
	my $class = ref($this) || $this;




use Koha::SearchEngine;
use Koha::SearchEngine::Search;

our (@ISA, @EXPORT_OK);

BEGIN {
	require Exporter;
	@ISA = qw(Exporter);
    @EXPORT_OK = qw(
		&get_xisbns
	);
}





use C4::Context;

use base 'Exporter';

our @EXPORT_OK   = qw(hash_password get_script_name);

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(hash_password get_script_name);
};
=head1 NAME

Koha::AuthUtils - utility routines for authentication

Lines 41-47 use Koha::Acquisition::Baskets; Link Here

(-)a/Koha/EDI.pm (-1 / +1 lines)
41	use Koha::Acquisition::Booksellers;	41	use Koha::Acquisition::Booksellers;
42		42
43	our $VERSION = 1.1;	43	our $VERSION = 1.1;
44	our @EXPORT_OK =	44	push @EXPORT_OK,
45	qw( process_quote process_invoice process_ordrsp create_edi_order get_edifact_ean );	45	qw( process_quote process_invoice process_ordrsp create_edi_order get_edifact_ean );
46		46
47	sub create_edi_order {	47	sub create_edi_order {




package Koha::Item::Search::Field;

use Modern::Perl;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter
    @ISA = qw(Exporter);
    @EXPORT_OK, qw(
        AddItemSearchField
        ModItemSearchField
        DelItemSearchField
        GetItemSearchField
        GetItemSearchFields
    );
};

use C4::Context;





use Crypt::Eksblowfish::Bcrypt qw(en_base64);
use Koha::DateUtils;

our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(
      &ValidateBorrowernumber
      &SendPasswordRecoveryEmail
      &GetValidLinkInfo





use Modern::Perl;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    our @ISA = qw(Exporter);

    @EXPORT_OK = qw(
      read_field
      add_field
      update_field
      copy_field
      copy_and_replace_field
      move_field
      delete_field
      field_exists
      field_equals
    );
}
  move_field
  delete_field
  field_exists
  field_equals
);


our $debug = 0;






use Modern::Perl;

our ( @ISA, @EXPORT, @EXPORT_OK );
BEGIN {
    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT = qw( );
    @EXPORT_OK = qw( wrapper date_entered );
}

=head1 NAME

Koha::Util::FrameworkPlugin - utility class with routines for framework plugins




# along with Koha; if not, see <http://www.gnu.org/licenses>.

#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
use vars qw(@ISA @EXPORT);
use MIME::Base64;
use Modern::Perl;
use utf8;

use Koha::DateUtils;
use Koha::Libraries;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT_OK = qw(printpdf);
	@EXPORT = qw(printpdf);
}






use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic );
require Exporter;

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

###############################################################################

=head1 NAME

###############################################################################


@ISA = qw(Exporter);
@EXPORT_OK = qw();

use vars qw( $pedantic_attribute_error_in_nonpedantic_mode_p );
use vars qw( $pedantic_tmpl_var_use_in_nonpedantic_mode_p );
use vars qw( $pedantic_error_markup_in_pcdata_p );

Lines 1-9 Link Here

(-)a/misc/translator/VerboseWarnings.pm (-17 / +17 lines)
1	package VerboseWarnings;	1	package VerboseWarnings;
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	require Exporter;
5
6	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
7		4
8	###############################################################################	5	###############################################################################
9		6
Lines 20-39 verbose warnings. Link Here
20		17
21	###############################################################################	18	###############################################################################
22		19
23		20	our (@ISA, @EXPORT_OK);
24	@ISA = qw(Exporter);	21	BEGIN {
25	@EXPORT_OK = qw(	22	require Exporter;
26	&pedantic_p	23	@ISA = qw(Exporter);
27	&warn_additional	24	@EXPORT_OK = qw(
28	&warn_normal	25	&pedantic_p
29	&warn_pedantic	26	&warn_additional
30	&error_additional	27	&warn_normal
31	&error_normal	28	&warn_pedantic
32	);	29	&error_additional
33	%EXPORT_TAGS = (	30	&error_normal
34	'warn' => [ 'warn_additional', 'warn_normal', 'warn_pedantic' ],	31	);
35	'die' => [ 'error_additional', 'error_normal' ],	32	%EXPORT_TAGS = (
36	);	33	'warn' => [ 'warn_additional', 'warn_normal', 'warn_pedantic' ],
		34	'die' => [ 'error_additional', 'error_normal' ],
		35	);
		36	}
37		37
38	###############################################################################	38	###############################################################################
39		39

Lines 25-32 use Test::MockTime qw( set_fixed_time ); Link Here

(-)a/t/db_dependent/Members/IssueSlip.t (-3 / +2 lines)
25	use t::lib::TestBuilder;	25	use t::lib::TestBuilder;
26		26
27	use C4::Circulation;	27	use C4::Circulation;
28	use C4::Biblio;	28	use C4::Biblio qw( AddBiblio );
29	use C4::Items;	29	use C4::Items qw( AddItem );
30	use C4::Members;	30	use C4::Members;
31		31
32	use Koha::DateUtils qw( dt_from_string output_pref );	32	use Koha::DateUtils qw( dt_from_string output_pref );
33	-

Return to bug 17600

Lines 76-133 use Date::Calc qw( Link Here

(-)a/C4/Circulation.pm (-51 / +40 lines)
76	Day_of_Week	76	Day_of_Week
77	Add_Delta_Days	77	Add_Delta_Days
78	);	78	);
79	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	79	our (@ISA, @EXPORT_OK);
80
81	BEGIN {	80	BEGIN {
82	require Exporter;	81
83	@ISA = qw(Exporter);	82	require Exporter;
84		83	@ISA = qw(Exporter);
85	# FIXME subs that should probably be elsewhere	84
86	push @EXPORT, qw(	85	# FIXME subs that should probably be elsewhere
87	&barcodedecode	86	push @EXPORT_OK, qw(
88	&LostItem	87	&barcodedecode
89	&ReturnLostItem	88	&LostItem
90	&GetPendingOnSiteCheckouts	89	&ReturnLostItem
91	);	90	&GetPendingOnSiteCheckouts
92		91
93	# subs to deal with issuing a book	92	&CanBookBeIssued
94	push @EXPORT, qw(	93	&CanBookBeRenewed
95	&CanBookBeIssued	94	&AddIssue
96	&CanBookBeRenewed	95	&AddRenewal
97	&AddIssue	96	&GetRenewCount
98	&AddRenewal	97	&GetSoonestRenewDate
99	&GetRenewCount	98	&GetLatestAutoRenewDate
100	&GetSoonestRenewDate	99	&GetIssuingCharges
101	&GetLatestAutoRenewDate	100	&GetBranchBorrowerCircRule
102	&GetIssuingCharges	101	&GetBranchItemRule
103	&GetBranchBorrowerCircRule	102	&GetBiblioIssues
104	&GetBranchItemRule	103	&GetOpenIssue
105	&GetOpenIssue	104	&CheckIfIssuedToPatron
106	&CheckIfIssuedToPatron	105	&IsItemIssued
107	&IsItemIssued	106	GetTopIssues
108	GetTopIssues	107
109	);	108	&AddReturn
110		109	&MarkIssueReturned
111	# subs to deal with returns	110
112	push @EXPORT, qw(	111	&transferbook
113	&AddReturn	112	&GetTransfers
114	&MarkIssueReturned	113	&GetTransfersFromTo
115	);	114	&updateWrongTransfer
116		115	&IsBranchTransferAllowed
117	# subs to deal with transfers	116	&CreateBranchTransferLimit
118	push @EXPORT, qw(	117	&DeleteBranchTransferLimits
119	&transferbook	118	&TransferSlip
120	&GetTransfers	119
121	&GetTransfersFromTo
122	&updateWrongTransfer
123	&IsBranchTransferAllowed
124	&CreateBranchTransferLimit
125	&DeleteBranchTransferLimits
126	&TransferSlip
127	);
128
129	# subs to deal with offline circulation
130	push @EXPORT, qw(
131	&GetOfflineOperations	120	&GetOfflineOperations
132	&GetOfflineOperation	121	&GetOfflineOperation
133	&AddOfflineOperation	122	&AddOfflineOperation

Lines 26-32 use JSON qw/encode_json/; Link Here

(-)a/C4/Auth.pm (-6 / +8 lines)
26	use URI::Escape;	26	use URI::Escape;
27	use CGI::Session;	27	use CGI::Session;
28		28
29	require Exporter;
30	use C4::Context;	29	use C4::Context;
31	use C4::Templates; # to get the template	30	use C4::Templates; # to get the template
32	use C4::Languages;	31	use C4::Languages;
Lines 50-57 use Net::CIDR; Link Here
50	use C4::Log qw/logaction/;	49	use C4::Log qw/logaction/;
51		50
52	# use utf8;	51	# use utf8;
53	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout);	52	use vars qw($debug $ldap $cas $caslogout);
54		53	our (@ISA, @EXPORT_OK);
55	BEGIN {	54	BEGIN {
56	sub psgi_env { any { /^psgi\./ } keys %ENV }	55	sub psgi_env { any { /^psgi\./ } keys %ENV }
57		56
Lines 63-74 BEGIN { Link Here
63	C4::Context->set_remote_address;	62	C4::Context->set_remote_address;
64		63
65	$debug = $ENV{DEBUG};	64	$debug = $ENV{DEBUG};
66	@ISA = qw(Exporter);	65	require Exporter;
67	@EXPORT = qw(&checkauth &get_template_and_user &haspermission &get_user_subpermissions);	66	@ISA = qw(Exporter);
		67
68	@EXPORT_OK = qw(&check_api_auth &get_session &check_cookie_auth &checkpw &checkpw_internal &checkpw_hash	68	@EXPORT_OK = qw(&check_api_auth &get_session &check_cookie_auth &checkpw &checkpw_internal &checkpw_hash
69	&get_all_subpermissions &get_user_subpermissions track_login_daily &in_iprange	69	&get_all_subpermissions &get_user_subpermissions track_login_daily &in_iprange
		70	&get_template_and_user
70	);	71	);
71	%EXPORT_TAGS = ( EditPermissions => [qw(get_all_subpermissions get_user_subpermissions)] );	72
		73	$debug = $ENV{DEBUG};
72	$ldap = C4::Context->config('useldapserver') \|\| 0;	74	$ldap = C4::Context->config('useldapserver') \|\| 0;
73	$cas = C4::Context->preference('casAuthentication');	75	$cas = C4::Context->preference('casAuthentication');
74	$caslogout = C4::Context->preference('casLogout');	76	$caslogout = C4::Context->preference('casLogout');

Lines 29-41 use FindBin; Link Here

(-)a/C4/Auth_with_cas.pm (-2 / +3 lines)
29	use YAML::XS;	29	use YAML::XS;
30		30
31		31
32	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);	32	use vars qw($debug);
		33	our (@ISA, @EXPORT_OK);
33		34
34	BEGIN {	35	BEGIN {
35	require Exporter;	36	require Exporter;
36	$debug = $ENV{DEBUG};	37	$debug = $ENV{DEBUG};
37	@ISA = qw(Exporter);	38	@ISA = qw(Exporter);
38	@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required);	39	@EXPORT_OK = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required);
39	}	40	}
40	my $defaultcasserver;	41	my $defaultcasserver;
41	my $casservers;	42	my $casservers;

Lines 30-41 use List::MoreUtils qw( any ); Link Here

(-)a/C4/Auth_with_ldap.pm (-3 / +3 lines)
30	use Net::LDAP;	30	use Net::LDAP;
31	use Net::LDAP::Filter;	31	use Net::LDAP::Filter;
32		32
33	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);	33	use vars qw($debug);
34		34	our (@ISA, @EXPORT_OK);
35	BEGIN {	35	BEGIN {
36	require Exporter;	36	require Exporter;
37	@ISA = qw(Exporter);	37	@ISA = qw(Exporter);
38	@EXPORT = qw( checkpw_ldap );	38	@EXPORT_OK = qw( checkpw_ldap );
39	}	39	}
40		40
41	# Redefine checkpw_ldap:	41	# Redefine checkpw_ldap:

Lines 29-41 use Carp; Link Here

(-)a/C4/Auth_with_shibboleth.pm (-3 / +3 lines)
29	use CGI;	29	use CGI;
30	use List::MoreUtils qw(any);	30	use List::MoreUtils qw(any);
31		31
32	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);	32	use vars qw($debug);
33		33	our (@ISA, @EXPORT_OK);
34	BEGIN {	34	BEGIN {
35	require Exporter;	35	require Exporter;
36	$debug = $ENV{DEBUG};	36	$debug = $ENV{DEBUG};
37	@ISA = qw(Exporter);	37	@ISA = qw(Exporter);
38	@EXPORT =	38	@EXPORT_OK =
39	qw(shib_ok logout_shib login_shib_url checkpw_shib get_login_shib);	39	qw(shib_ok logout_shib login_shib_url checkpw_shib get_login_shib);
40	}	40	}
41		41

Lines 29-44 use C4::Barcodes::annual; Link Here

(-)a/C4/Barcodes.pm (-7 lines)
29	use C4::Barcodes::incremental;	29	use C4::Barcodes::incremental;
30	use C4::Barcodes::EAN13;	30	use C4::Barcodes::EAN13;
31		31
32	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
33	use vars qw($debug $cgi_debug); # from C4::Debug, of course	32	use vars qw($debug $cgi_debug); # from C4::Debug, of course
34	use vars qw($max $prefformat);	33	use vars qw($max $prefformat);
35		34
36	BEGIN {
37	require Exporter;
38	@ISA = qw(Exporter);
39	@EXPORT_OK = qw();
40	}
41
42	sub _prefformat {	35	sub _prefformat {
43	unless (defined $prefformat) {	36	unless (defined $prefformat) {
44	unless ($prefformat = C4::Context->preference('autoBarcode')) {	37	unless ($prefformat = C4::Context->preference('autoBarcode')) {

Lines 21-32 package C4::Biblio; Link Here

(-)a/C4/Biblio.pm (-6 / +6 lines)
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use vars qw(@ISA @EXPORT);	24	use vars qw(@ISA @EXPORT_OK);
25	BEGIN {	25	BEGIN {
26	require Exporter;	26	require Exporter;
27	@ISA = qw(Exporter);	27	@ISA = qw(Exporter);
28		28
29	@EXPORT = qw(	29	@EXPORT_OK = qw(
30	AddBiblio	30	AddBiblio
31	GetBiblioData	31	GetBiblioData
32	GetMarcBiblio	32	GetMarcBiblio
Lines 69-75 BEGIN { Link Here
69	# those functions are exported but should not be used	69	# those functions are exported but should not be used
70	# they are useful in a few circumstances, so they are exported,	70	# they are useful in a few circumstances, so they are exported,
71	# but don't use them unless you are a core developer ;-)	71	# but don't use them unless you are a core developer ;-)
72	push @EXPORT, qw(	72	push @EXPORT_OK, qw(
73	ModBiblioMarc	73	ModBiblioMarc
74	);	74	);
75	}	75	}
Lines 88-98 use Module::Load::Conditional qw(can_load); Link Here
88	use C4::Koha;	88	use C4::Koha;
89	use C4::Log; # logaction	89	use C4::Log; # logaction
90	use C4::Budgets;	90	use C4::Budgets;
91	use C4::ClassSource;	91	use C4::ClassSource qw( GetClassSort );
92	use C4::Charset;	92	use C4::Charset qw( SetUTF8Flag );
93	use C4::Linker;	93	use C4::Linker;
94	use C4::OAI::Sets;	94	use C4::OAI::Sets;
95	use C4::Debug;	95	use C4::Debug;
		96	use C4::Items;
96		97
97	use Koha::Caches;	98	use Koha::Caches;
98	use Koha::Authority::Types;	99	use Koha::Authority::Types;
Lines 108-114 use Koha::Util::MARC; Link Here
108		109
109	use vars qw($debug $cgi_debug);	110	use vars qw($debug $cgi_debug);
110		111
111
112	=head1 NAME	112	=head1 NAME
113		113
114	C4::Biblio - cataloging management functions	114	C4::Biblio - cataloging management functions

Lines 32-43 use C4::Languages; Link Here

(-)a/C4/Breeding.pm (-3 / +2 lines)
32	use Koha::Database;	32	use Koha::Database;
33	use Koha::XSLT::Base;	33	use Koha::XSLT::Base;
34		34
35	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	35	our (@ISA, @EXPORT_OK);
36
37	BEGIN {	36	BEGIN {
38	require Exporter;	37	require Exporter;
39	@ISA = qw(Exporter);	38	@ISA = qw(Exporter);
40	@EXPORT = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth);	39	@EXPORT_OK = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth);
41	}	40	}
42		41
43	=head1 NAME	42	=head1 NAME

Lines 26-37 use C4::Debug; Link Here

(-)a/C4/Charset.pm (-3 / +2 lines)
26	use Unicode::Normalize;	26	use Unicode::Normalize;
27	use Encode qw( decode encode is_utf8 );	27	use Encode qw( decode encode is_utf8 );
28		28
29	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	29	our (@ISA, @EXPORT_OK);
30
31	BEGIN {	30	BEGIN {
32	require Exporter;	31	require Exporter;
33	@ISA = qw(Exporter);	32	@ISA = qw(Exporter);
34	@EXPORT = qw(	33	@EXPORT_OK = qw(
35	NormalizeString	34	NormalizeString
36	IsStringUTF8ish	35	IsStringUTF8ish
37	MarcToUTF8Record	36	MarcToUTF8Record

Lines 20-31 package C4::ClassSortRoutine; Link Here

(-)a/C4/ClassSortRoutine.pm (-9 / +9 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	require Exporter;
24	use Class::Factory::Util;	23	use Class::Factory::Util;
25	use C4::Context;	24	use C4::Context;
26		25
27	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	26	our (@ISA, @EXPORT_OK);
28		27	BEGIN {
		28	require Exporter;
		29	@ISA = qw(Exporter);
		30	@EXPORT_OK = qw(
		31	&GetSortRoutineNames
		32	&GetClassSortKey
		33	);
		34	}
29		35
30	=head1 NAME	36	=head1 NAME
31		37
Lines 40-51 use C4::ClassSortRoutine; Link Here
40		46
41	=cut	47	=cut
42		48
43	@ISA = qw(Exporter);
44	@EXPORT = qw(
45	&GetSortRoutineNames
46	&GetClassSortKey
47	);
48
49	# initialization code	49	# initialization code
50	my %loaded_routines = ();	50	my %loaded_routines = ();
51	my @sort_routines = GetSortRoutineNames();	51	my @sort_routines = GetSortRoutineNames();

Lines 20-31 package C4::ClassSource; Link Here

(-)a/C4/ClassSource.pm (-16 / +13 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	require Exporter;
24	use C4::Context;	23	use C4::Context;
25	use C4::ClassSortRoutine;	24	use C4::ClassSortRoutine qw( GetClassSortKey );
26		25
27	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	26	our (@ISA, @EXPORT_OK);
28		27	BEGIN {
		28	require Exporter;
		29	@ISA = qw(Exporter);
		30	@EXPORT_OK = qw(
		31	&GetClassSources
		32	&GetClassSource
		33	&GetClassSortRule
		34	&GetClassSort
		35	);
		36	}
29		37
30	=head1 NAME	38	=head1 NAME
31		39
Lines 44-60 sources and sorting rules. Link Here
44		52
45	=cut	53	=cut
46		54
47
48	@ISA = qw(Exporter);
49	@EXPORT = qw(
50	&GetClassSources
51	&GetClassSource
52	&GetClassSortRule
53
54	&GetClassSort
55
56	);
57
58	=head2 GetClassSources	55	=head2 GetClassSources
59		56
60	my $sources = GetClassSources();	57	my $sources = GetClassSources();

Lines 27-40 use C4::Debug; Link Here

(-)a/C4/External/BakerTaylor.pm (-5 / +6 lines)
27		27
28	use Modern::Perl;	28	use Modern::Perl;
29		29
30	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);	30	use vars qw(%EXPORT_TAGS $VERSION);
		31	our (@ISA, @EXPORT_OK);
31		32
32	BEGIN {	33	BEGIN {
33	require Exporter;	34	require Exporter;
34	@ISA = qw(Exporter);	35	@ISA = qw(Exporter);
35	$VERSION = 3.07.00.049;	36	$VERSION = 3.07.00.049;
36	@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);	37	@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
37	%EXPORT_TAGS = (all=>\@EXPORT_OK);	38	# %EXPORT_TAGS = (all=>\@EXPORT_OK);
38	}	39	}
39		40
40	# These variables are plack safe: they are initialized each time	41	# These variables are plack safe: they are initialized each time

Lines 31-42 use Koha::Items; Link Here

(-)a/C4/ImportBatch.pm (-3 / +2 lines)
31	use Koha::Plugins::Handler;	31	use Koha::Plugins::Handler;
32	use Koha::Logger;	32	use Koha::Logger;
33		33
34	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	34	our (@ISA, @EXPORT_OK);
35
36	BEGIN {	35	BEGIN {
37	require Exporter;	36	require Exporter;
38	@ISA = qw(Exporter);	37	@ISA = qw(Exporter);
39	@EXPORT = qw(	38	@EXPORT_OK = qw(
40	GetZ3950BatchId	39	GetZ3950BatchId
41	GetWebserviceBatchId	40	GetWebserviceBatchId
42	GetImportRecordMarc	41	GetImportRecordMarc

Lines 30-41 use C4::Context; Link Here

(-)a/C4/ImportExportFramework.pm (-3 / +2 lines)
30	use C4::Debug;	30	use C4::Debug;
31		31
32		32
33	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	33	our (@ISA, @EXPORT_OK);
34
35	BEGIN {	34	BEGIN {
36	require Exporter;	35	require Exporter;
37	@ISA = qw(Exporter);	36	@ISA = qw(Exporter);
38	@EXPORT = qw(	37	@EXPORT_OK = qw(
39	&ExportFramework	38	&ExportFramework
40	&ImportFramework	39	&ImportFramework
41	&createODS	40	&createODS

Lines 29-41 use C4::Output; Link Here

(-)a/C4/InstallAuth.pm (-7 / +8 lines)
29	use C4::Templates;	29	use C4::Templates;
30	use C4::Koha;	30	use C4::Koha;
31		31
32	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	32	our (@ISA, @EXPORT_OK);
33		33	BEGIN {
34	@ISA = qw(Exporter);	34	@ISA = qw(Exporter);
35	@EXPORT = qw(	35	@EXPORT_OK = qw(
36	&checkauth	36	&checkauth
37	&get_template_and_user	37	&get_template_and_user
38	);	38	);
		39	}
39		40
40	=head1 NAME	41	=head1 NAME
41		42

Lines 20-31 package C4::Items; Link Here

(-)a/C4/Items.pm (-3 / +3 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use vars qw(@ISA @EXPORT);	23	our (@ISA, @EXPORT_OK);
24	BEGIN {	24	BEGIN {
25	require Exporter;	25	require Exporter;
26	@ISA = qw(Exporter);	26	@ISA = qw(Exporter);
27		27
28	@EXPORT = qw(	28	@EXPORT_OK = qw(
29	AddItemFromMarc	29	AddItemFromMarc
30	AddItemBatchFromMarc	30	AddItemBatchFromMarc
31	ModItemFromMarc	31	ModItemFromMarc
Lines 51-57 use Carp; Link Here
51	use Try::Tiny;	51	use Try::Tiny;
52	use C4::Context;	52	use C4::Context;
53	use C4::Koha;	53	use C4::Koha;
54	use C4::Biblio;	54	use C4::Biblio qw( GetFrameworkCode );
55	use Koha::DateUtils;	55	use Koha::DateUtils;
56	use MARC::Record;	56	use MARC::Record;
57	use C4::ClassSource;	57	use C4::ClassSource;

Lines 30-41 use Koha::MarcSubfieldStructures; Link Here

(-)a/C4/Koha.pm (-9 / +7 lines)
30	use Business::ISBN;	30	use Business::ISBN;
31	use Business::ISSN;	31	use Business::ISSN;
32	use autouse 'Data::cselectall_arrayref' => qw(Dumper);	32	use autouse 'Data::cselectall_arrayref' => qw(Dumper);
33	use vars qw(@ISA @EXPORT @EXPORT_OK $DEBUG);	33	our (@ISA, @EXPORT_OK);
34
35	BEGIN {	34	BEGIN {
36	require Exporter;	35	require Exporter;
37	@ISA = qw(Exporter);	36	@ISA = qw(Exporter);
38	@EXPORT = qw(	37	@EXPORT_OK = qw(
39	&GetItemTypesCategorized	38	&GetItemTypesCategorized
40	&getallthemes	39	&getallthemes
41	&getFacets	40	&getFacets
Lines 57-65 BEGIN { Link Here
57	&GetVariationsOfISSNs	56	&GetVariationsOfISSNs
58	&NormalizeISSN	57	&NormalizeISSN
59		58
60	$DEBUG	59	GetDailyQuote
61	);	60
62	$DEBUG = 0;	61	);
63	}	62	}
64		63
65	=head1 NAME	64	=head1 NAME
Lines 249-255 sub getImageSets { Link Here
249	my @imagesets = (); # list of hasrefs of image set data to pass to template	248	my @imagesets = (); # list of hasrefs of image set data to pass to template
250	my @subdirectories = _getSubdirectoryNames( $paths->{'staff'}{'filesystem'} );	249	my @subdirectories = _getSubdirectoryNames( $paths->{'staff'}{'filesystem'} );
251	foreach my $imagesubdir ( @subdirectories ) {	250	foreach my $imagesubdir ( @subdirectories ) {
252	warn $imagesubdir if $DEBUG;
253	my @imagelist = (); # hashrefs of image info	251	my @imagelist = (); # hashrefs of image info
254	my @imagenames = _getImagesFromDirectory( File::Spec->catfile( $paths->{'staff'}{'filesystem'}, $imagesubdir ) );	252	my @imagenames = _getImagesFromDirectory( File::Spec->catfile( $paths->{'staff'}{'filesystem'}, $imagesubdir ) );
255	my $imagesetactive = 0;	253	my $imagesetactive = 0;

Lines 28-45 use List::MoreUtils qw( any ); Link Here

(-)a/C4/Languages.pm (-4 / +4 lines)
28	use C4::Context;	28	use C4::Context;
29	use Koha::Caches;	29	use Koha::Caches;
30	use Koha::Cache::Memory::Lite;	30	use Koha::Cache::Memory::Lite;
31	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);	31	use vars qw($DEBUG);
32		32	our (@ISA, @EXPORT_OK);
33	BEGIN {	33	BEGIN {
34	require Exporter;	34	require Exporter;
35	@ISA = qw(Exporter);	35	@ISA = qw(Exporter);
36	@EXPORT = qw(	36	@EXPORT_OK = qw(
37	&getFrameworkLanguages	37	&getFrameworkLanguages
38	&getTranslatedLanguages	38	&getTranslatedLanguages
39	&getLanguages	39	&getLanguages
40	&getAllLanguages	40	&getAllLanguages
41	);	41	);
42	@EXPORT_OK = qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage);	42	push @EXPORT_OK, qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage);
43	$DEBUG = 0;	43	$DEBUG = 0;
44	}	44	}
45		45

Lines 44-55 use Koha::Patrons; Link Here

(-)a/C4/Letters.pm (-3 / +2 lines)
44	use Koha::SMTP::Servers;	44	use Koha::SMTP::Servers;
45	use Koha::Subscriptions;	45	use Koha::Subscriptions;
46		46
47	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	47	our (@ISA, @EXPORT_OK);
48
49	BEGIN {	48	BEGIN {
50	require Exporter;	49	require Exporter;
51	@ISA = qw(Exporter);	50	@ISA = qw(Exporter);
52	@EXPORT = qw(	51	@EXPORT_OK = qw(
53	&EnqueueLetter &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &SendAlerts &GetPrintMessages &GetMessageTransportTypes	52	&EnqueueLetter &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &SendAlerts &GetPrintMessages &GetMessageTransportTypes
54	);	53	);
55	}	54	}

Lines 44-67 use Koha::List::Patron; Link Here

(-)a/C4/Members.pm (-6 / +5 lines)
44	use Koha::Patrons;	44	use Koha::Patrons;
45	use Koha::Patron::Categories;	45	use Koha::Patron::Categories;
46		46
47	our (@ISA,@EXPORT,@EXPORT_OK,$debug);	47	our ($debug);
48		48
		49	our (@ISA, @EXPORT_OK);
49	BEGIN {	50	BEGIN {
50	$debug = $ENV{DEBUG} \|\| 0;	51	$debug = $ENV{DEBUG} \|\| 0;
51	require Exporter;	52	require Exporter;
52	@ISA = qw(Exporter);	53	@ISA = qw(Exporter);
53	#Get data	54	@EXPORT_OK = qw(
54	push @EXPORT, qw(	55	&GetMemberDetails
		56	&GetMember
55		57
56	&GetAllIssues	58	&GetAllIssues
57		59
58	&GetBorrowersToExpunge	60	&GetBorrowersToExpunge
59		61
60	&IssueSlip	62	&IssueSlip
61	);
62		63
63	#Check data
64	push @EXPORT, qw(
65	&checkuserpassword	64	&checkuserpassword
66	&checkcardnumber	65	&checkcardnumber
67	);	66	);

Lines 26-39 use Modern::Perl; Link Here

(-)a/C4/Members/Statistics.pm (-2 / +2 lines)
26		26
27	use C4::Context;	27	use C4::Context;
28		28
29	our ( @ISA, @EXPORT, @EXPORT_OK, $debug );	29	our ( @ISA, @EXPORT_OK, $debug );
30		30
31	BEGIN {	31	BEGIN {
32	$debug = $ENV{DEBUG} \|\| 0;	32	$debug = $ENV{DEBUG} \|\| 0;
33	require Exporter;	33	require Exporter;
34	@ISA = qw(Exporter);	34	@ISA = qw(Exporter);
35		35
36	push @EXPORT, qw(	36	@EXPORT_OK = qw(
37	&GetTotalIssuesTodayByBorrower	37	&GetTotalIssuesTodayByBorrower
38	&GetTotalIssuesReturnedTodayByBorrower	38	&GetTotalIssuesReturnedTodayByBorrower
39	&GetPrecedentStateByBorrower	39	&GetPrecedentStateByBorrower

Lines 34-59 use C4::Auth qw(get_template_and_user); Link Here

(-)a/C4/Output.pm (-12 / +10 lines)
34	use C4::Context;	34	use C4::Context;
35	use C4::Templates;	35	use C4::Templates;
36		36
37	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	37	our (@ISA, @EXPORT_OK);
38		38
39	BEGIN {	39	BEGIN {
40	require Exporter;	40	require Exporter;
41		41
42	@ISA = qw(Exporter);	42	@ISA = qw(Exporter);
43	@EXPORT_OK = qw(&is_ajax ajax_fail); # More stuff should go here instead	43	@EXPORT_OK, qw(
44	%EXPORT_TAGS = ( all =>[qw(setlanguagecookie pagination_bar parametrized_url	44	is_ajax
45	&output_with_http_headers &output_ajax_with_http_headers &output_html_with_http_headers)],	45	ajax_fail
46	ajax =>[qw(&output_with_http_headers &output_ajax_with_http_headers is_ajax)],
47	html =>[qw(&output_with_http_headers &output_html_with_http_headers)]
48	);
49	push @EXPORT, qw(
50	setlanguagecookie getlanguagecookie pagination_bar parametrized_url	46	setlanguagecookie getlanguagecookie pagination_bar parametrized_url
51	);
52	push @EXPORT, qw(
53	&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers	47	&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers
54	&output_and_exit_if_error &output_and_exit &output_error	48	&output_and_exit_if_error &output_and_exit &output_error
55	);	49	);
56		50	# %EXPORT_TAGS = ( all =>[qw(setlanguagecookie pagination_bar parametrized_url
		51	# &output_with_http_headers &output_ajax_with_http_headers &output_html_with_http_headers)],
		52	# ajax =>[qw(&output_with_http_headers &output_ajax_with_http_headers is_ajax)],
		53	# html =>[qw(&output_with_http_headers &output_html_with_http_headers)]
		54	# );
57	}	55	}
58		56
59	=head1 NAME	57	=head1 NAME

Lines 37-50 use Koha::Account::Lines; Link Here

(-)a/C4/Overdues.pm (-7 / +2 lines)
37	use Koha::Account::Offsets;	37	use Koha::Account::Offsets;
38	use Koha::Libraries;	38	use Koha::Libraries;
39		39
40	use vars qw(@ISA @EXPORT);	40	our (@ISA, @EXPORT_OK);
41
42	BEGIN {	41	BEGIN {
43	require Exporter;	42	require Exporter;
44	@ISA = qw(Exporter);	43	@ISA = qw(Exporter);
45		44
46	# subs to rename (and maybe merge some...)	45	# subs to rename (and maybe merge some...)
47	push @EXPORT, qw(	46	@EXPORT_OK = qw(
48	&CalcFine	47	&CalcFine
49	&Getoverdues	48	&Getoverdues
50	&checkoverdues	49	&checkoverdues
Lines 54-63 BEGIN { Link Here
54	&GetOverduesForBranch	53	&GetOverduesForBranch
55	&GetOverdueMessageTransportTypes	54	&GetOverdueMessageTransportTypes
56	&parse_overdues_letter	55	&parse_overdues_letter
57	);
58
59	# subs to move to Circulation.pm
60	push @EXPORT, qw(
61	&GetIssuesIteminfo	56	&GetIssuesIteminfo
62	);	57	);
63	}	58	}

Lines 20-33 package C4::Reports; Link Here

(-)a/C4/Reports.pm (-2 / +2 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22		22
23	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
24	use C4::Context;	23	use C4::Context;
25	use C4::Debug;	24	use C4::Debug;
26		25
		26	our (@ISA, @EXPORT_OK);
27	BEGIN {	27	BEGIN {
28	require Exporter;	28	require Exporter;
29	@ISA = qw(Exporter);	29	@ISA = qw(Exporter);
30	@EXPORT = qw(	30	@EXPORT_OK = qw(
31	GetDelimiterChoices	31	GetDelimiterChoices
32	);	32	);
33	}	33	}

Lines 22-28 use CGI qw ( -utf8 ); Link Here

(-)a/C4/Reports/Guided.pm (-2 / +2 lines)
22	use Carp;	22	use Carp;
23	use JSON qw( from_json );	23	use JSON qw( from_json );
24		24
25	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
26	use C4::Context;	25	use C4::Context;
27	use C4::Templates qw/themelanguage/;	26	use C4::Templates qw/themelanguage/;
28	use C4::Koha;	27	use C4::Koha;
Lines 39-48 use Koha::AuthorisedValues; Link Here
39	use Koha::Patron::Categories;	38	use Koha::Patron::Categories;
40	use Koha::SharedContent;	39	use Koha::SharedContent;
41		40
		41	our (@ISA, @EXPORT_OK);
42	BEGIN {	42	BEGIN {
43	require Exporter;	43	require Exporter;
44	@ISA = qw(Exporter);	44	@ISA = qw(Exporter);
45	@EXPORT = qw(	45	@EXPORT_OK = qw(
46	get_report_types get_report_areas get_report_groups get_columns build_query get_criteria	46	get_report_types get_report_areas get_report_groups get_columns build_query get_criteria
47	save_report get_saved_reports execute_query	47	save_report get_saved_reports execute_query
48	get_column_type get_distinct_values save_dictionary get_from_dictionary	48	get_column_type get_distinct_values save_dictionary get_from_dictionary

Lines 51-58 use Carp; Link Here

(-)a/C4/Reserves.pm (-4 / +4 lines)
51	use Data::Dumper;	51	use Data::Dumper;
52	use List::MoreUtils qw( firstidx any );	52	use List::MoreUtils qw( firstidx any );
53		53
54	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
55
56	=head1 NAME	54	=head1 NAME
57		55
58	C4::Reserves - Koha functions for dealing with reservation.	56	C4::Reserves - Koha functions for dealing with reservation.
Lines 99-108 This modules provides somes functions to deal with reservations. Link Here
99		97
100	=cut	98	=cut
101		99
		100	our (@ISA, @EXPORT_OK);
102	BEGIN {	101	BEGIN {
103	require Exporter;	102	require Exporter;
104	@ISA = qw(Exporter);	103	@ISA = qw(Exporter);
105	@EXPORT = qw(	104	@EXPORT_OK = qw(
106	&AddReserve	105	&AddReserve
107		106
108	&GetReserveStatus	107	&GetReserveStatus
Lines 140-147 BEGIN { Link Here
140	IsItemOnHoldAndFound	139	IsItemOnHoldAndFound
141		140
142	GetMaxPatronHoldsForRecord	141	GetMaxPatronHoldsForRecord
		142
		143	MergeHolds
143	);	144	);
144	@EXPORT_OK = qw( MergeHolds );
145	}	145	}
146		146
147	=head2 AddReserve	147	=head2 AddReserve

Lines 1-12 Link Here

(-)a/C4/SIP/Sip/Checksum.pm (-3 / +6 lines)
1	package C4::SIP::Sip::Checksum;	1	package C4::SIP::Sip::Checksum;
2		2
3	use Exporter;
4	use strict;	3	use strict;
5	use warnings;	4	use warnings;
6		5
7	our @ISA = qw(Exporter);	6	our (@ISA, @EXPORT_OK);
8	our @EXPORT_OK = qw(checksum verify_cksum);
9	our $debug = 0;	7	our $debug = 0;
		8	BEGIN {
		9	require Exporter;
		10	@ISA = qw(Exporter);
		11	@EXPORT_OK = qw(checksum verify_cksum);
		12	}
10		13
11	sub checksum {	14	sub checksum {
12	my $pkt = shift;	15	my $pkt = shift;

Lines 19-32 package C4::Scheduler; Link Here

(-)a/C4/Scheduler.pm (-2 / +2 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
23	use C4::Context;	22	use C4::Context;
24	use Schedule::At;	23	use Schedule::At;
25		24
		25	our (@ISA, @EXPORT_OK);
26	BEGIN {	26	BEGIN {
27	require Exporter;	27	require Exporter;
28	@ISA = qw(Exporter);	28	@ISA = qw(Exporter);
29	@EXPORT =	29	@EXPORT_OK =
30	qw(get_jobs get_at_jobs get_at_job add_at_job remove_at_job);	30	qw(get_jobs get_at_jobs get_at_job add_at_job remove_at_job);
31	}	31	}
32		32

Lines 16-22 package C4::Search; Link Here

(-)a/C4/Search.pm (-13 / +14 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	require Exporter;
20	use C4::Context;	19	use C4::Context;
21	use C4::Biblio; # GetMarcFromKohaField, GetBiblioData	20	use C4::Biblio; # GetMarcFromKohaField, GetBiblioData
22	use C4::Koha; # getFacets	21	use C4::Koha; # getFacets
Lines 37-46 use URI::Escape; Link Here
37	use Business::ISBN;	36	use Business::ISBN;
38	use MARC::Record;	37	use MARC::Record;
39	use MARC::Field;	38	use MARC::Field;
40	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);	39	use vars qw($DEBUG);
41		40
		41	our (@ISA, @EXPORT_OK);
42	BEGIN {	42	BEGIN {
43	$DEBUG = ($ENV{DEBUG}) ? 1 : 0;	43	$DEBUG = ($ENV{DEBUG}) ? 1 : 0;
		44
		45	require Exporter;
		46	@ISA = qw(Exporter);
		47	@EXPORT_OK = qw(
		48	&FindDuplicate
		49	&SimpleSearch
		50	&searchResults
		51	&getRecords
		52	&buildQuery
		53	&GetDistinctValues
		54	&enabled_staff_search_views
		55	);
44	}	56	}
45		57
46	=head1 NAME	58	=head1 NAME
Lines 59-75 This module provides searching functions for Koha's bibliographic databases Link Here
59		71
60	=cut	72	=cut
61		73
62	@ISA = qw(Exporter);
63	@EXPORT = qw(
64	&FindDuplicate
65	&SimpleSearch
66	&searchResults
67	&getRecords
68	&buildQuery
69	&GetDistinctValues
70	&enabled_staff_search_views
71	);
72
73	# make all your functions, whether exported or not;	74	# make all your functions, whether exported or not;
74		75
75	=head2 FindDuplicate	76	=head2 FindDuplicate

Lines 38-45 use Koha::Subscription::Histories; Link Here

(-)a/C4/Serials.pm (-3 / +2 lines)
38	use Koha::SharedContent;	38	use Koha::SharedContent;
39	use Scalar::Util qw( looks_like_number );	39	use Scalar::Util qw( looks_like_number );
40		40
41	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
42
43	# Define statuses	41	# Define statuses
44	use constant {	42	use constant {
45	EXPECTED => 1,	43	EXPECTED => 1,
Lines 62-71 use constant MISSING_STATUSES => ( Link Here
62	MISSING_LOST	60	MISSING_LOST
63	);	61	);
64		62
		63	our (@ISA, @EXPORT_OK);
65	BEGIN {	64	BEGIN {
66	require Exporter;	65	require Exporter;
67	@ISA = qw(Exporter);	66	@ISA = qw(Exporter);
68	@EXPORT = qw(	67	@EXPORT_OK = qw(
69	&NewSubscription &ModSubscription &DelSubscription	68	&NewSubscription &ModSubscription &DelSubscription
70	&GetSubscription &CountSubscriptionFromBiblionumber &GetSubscriptionsFromBiblionumber	69	&GetSubscription &CountSubscriptionFromBiblionumber &GetSubscriptionsFromBiblionumber
71	&SearchSubscriptions	70	&SearchSubscriptions

Lines 26-40 use C4::Koha; Link Here

(-)a/C4/ShelfBrowser.pm (-5 / +2 lines)
26	use Koha::Biblios;	26	use Koha::Biblios;
27	use Koha::Libraries;	27	use Koha::Libraries;
28		28
29	use vars qw(@ISA @EXPORT @EXPORT_OK);	29	our (@ISA, @EXPORT_OK);
30
31	BEGIN {	30	BEGIN {
32	require Exporter;	31	require Exporter;
33	@ISA = qw(Exporter);	32	@ISA = qw(Exporter);
34	@EXPORT = qw(
35	&GetNearbyItems
36	);
37	@EXPORT_OK = qw(	33	@EXPORT_OK = qw(
		34	&GetNearbyItems
38	);	35	);
39	}	36	}
40		37