Attachment #62209 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 Encode qw( encode is_utf8);

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


        else            { exit }
    }

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

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




use YAML;


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);
}
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 Carp;
use CGI;

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 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 Koha::SearchEngine;
use Koha::Libraries;

use vars qw(@ISA @EXPORT);
use vars qw($debug $cgi_debug);
our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;


    # to add biblios
    # EXPORTED FUNCTIONS.
    @EXPORT_OK = qw(
      AddBiblio
    );

    # to get something
    push @EXPORT, qw(
      GetBiblio
      GetBiblioData
      GetMarcBiblio

      &CountItemsIssued
      &CountBiblioInOrders
      &GetSubscriptionsId
    );

    # To modify something
    push @EXPORT, qw(
      &ModBiblio
      &ModZebra
      &UpdateTotalIssues
      &RemoveAllNsb
    );

    # To delete something
    push @EXPORT, qw(
      &DelBiblio
    );

    # To link headings in a bib record
    # to authority records.
    push @EXPORT, qw(
      &BiblioAutoLink
      &LinkBibHeadingsToAuthorities
    );

    # Internal functions
    # 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, qw(
      &ModBiblioMarc
    );

    # Others functions
    push @EXPORT, qw(
      &TransformMarcToKoha
      &TransformHtmlToMarc
      &TransformHtmlToXml

    my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_;
    $marcflavour ||="MARC21";
    
    require C4::Items;
    my $hostrecord = GetMarcBiblio($hostbiblionumber);
	my $item = C4::Items::GetItem($hostitemnumber);
	




use strict;
use warnings;

use base qw( Exporter );

our @EXPORT_OK = qw(
  GetBooksellersWithLateOrders
);

=head1 NAME

C4::Bookseller - Koha functions for dealing with booksellers.

Lines 25-33 use strict; Link Here

(-)a/C4/Boolean.pm (-3 / +6 lines)
25	use warnings;	25	use warnings;
26		26
27	use Carp;	27	use Carp;
28	use base qw(Exporter);	28	our (@ISA, @EXPORT_OK);
29		29	BEGIN {
30	our @EXPORT_OK = qw( true_p);	30	require Exporter;
		31	@ISA = qw( Exporter );
		32	@EXPORT_OK = qw( true_p );
		33	};
31		34
32	=head1 NAME	35	=head1 NAME
33		36




use Koha::Database;
use Koha::XSLT_Handler;

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
      &GetItemIssue
      &GetIssuingCharges
      &GetBranchBorrowerCircRule
      &GetBranchItemRule
      &GetBiblioIssues
      &GetOpenIssue
      &CheckIfIssuedToPatron
      &IsItemIssued
      GetTopIssues

      &AddReturn
      &MarkIssueReturned

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

		&GetTransfers
		&GetTransfersFromTo
		&updateWrongTransfer
		&DeleteTransfer
                &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
        &AddClassSource
        &GetClassSource
        &ModClassSource
        &DelClassSource
        &GetClassSortRules
        &AddClassSortRule
        &GetClassSortRule
        &ModClassSortRule
        &DelClassSortRule

        &GetSourcesForSortRule
        &GetClassSort
    );
}

=head1 NAME



=cut


@ISA    = qw(Exporter);
@EXPORT = qw(
    &GetClassSources
    &AddClassSource
    &GetClassSource
    &ModClassSource
    &DelClassSource
    &GetClassSortRules
    &AddClassSortRule
    &GetClassSortRule
    &ModClassSortRule
    &DelClassSortRule
  
    &GetSourcesForSortRule
    &GetClassSort
    
);

=head2 GetClassSources

  my $sources = GetClassSources();

Lines 24-31 use C4::Items qw(GetItem ModItem); Link Here

(-)a/C4/CourseReserves.pm (-3 / +3 lines)
24	use C4::Biblio qw(GetBiblioFromItemNumber);	24	use C4::Biblio qw(GetBiblioFromItemNumber);
25	use C4::Circulation qw(GetOpenIssue);	25	use C4::Circulation qw(GetOpenIssue);
26		26
27	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);	27	use vars qw($DEBUG @FIELDS);
28		28	our (@ISA, @EXPORT_OK);
29	BEGIN {	29	BEGIN {
30	require Exporter;	30	require Exporter;
31	@ISA = qw(Exporter);	31	@ISA = qw(Exporter);
Lines 50-56 BEGIN { Link Here
50		50
51	&GetItemCourseReservesInfo	51	&GetItemCourseReservesInfo
52	);	52	);
53	%EXPORT_TAGS = ( 'all' => \@EXPORT_OK );	53	#%EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
54		54
55	$DEBUG = 0;	55	$DEBUG = 0;
56	@FIELDS = ( 'itype', 'ccode', 'holdingbranch', 'location' );	56	@FIELDS = ( 'itype', 'ccode', '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 34-40 use List::Util qw(shuffle); Link Here

(-)a/C4/HoldsQueue.pm (-1 / +1 lines)
34	use List::MoreUtils qw(any);	34	use List::MoreUtils qw(any);
35	use Data::Dumper;	35	use Data::Dumper;
36		36
37	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	37	our (@ISA, @EXPORT_OK);
38	BEGIN {	38	BEGIN {
39	require Exporter;	39	require Exporter;
40	@ISA = qw(Exporter);	40	@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 warnings; FIXME - Bug 2505
use Digest::MD5 qw(md5_base64);

require Exporter;
use C4::Context;
use C4::Output;
use C4::Templates;
use C4::Koha;
use CGI::Session;

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

=head1 NAME



=cut

@ISA    = qw(Exporter);
@EXPORT = qw(
  &checkauth
  &get_template_and_user
);

=item get_template_and_user

    my ( $template, $borrowernumber, $cookie ) = get_template_and_user(




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

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

our (@ISA, @EXPORT_OK);

BEGIN {


    @ISA = qw( Exporter );

    # function exports
    @EXPORT_OK = qw(
        GetItem
        AddItemFromMarc
        AddItem




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

BEGIN {
	require Exporter;
	@ISA    = qw(Exporter);
    @EXPORT_OK = qw(
        &GetPrinters &GetPrinter
        &getitemtypeinfo
        &GetItemTypesCategorized

        &GetVariationsOfISSNs
        &NormalizeISSN

        GetDailyQuote

	);
	$DEBUG = 0;
@EXPORT_OK = qw( 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 List::MoreUtils qw( any );
use C4::Context;
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::Email;
use Koha::DateUtils qw( format_sqldatetime dt_from_string );

our (@ISA, @EXPORT_OK);

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




use Koha::Patron::Categories;
use Koha::Schema;

our ($debug);

use Module::Load::Conditional qw( can_load );
if ( ! can_load( modules => { 'Koha::NorwegianPatronDB' => undef } ) ) {
   $debug && warn "Unable to load Koha::NorwegianPatronDB";
}

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

        &GetPendingIssues

        GetBorrowersWithEmail

        GetOverduesForPatron
    );

    #Modify data
    push @EXPORT, qw(
        &ModMember
        &changepassword
    );

    #Insert data
    push @EXPORT, qw(
        &AddMember
    &AddMember_Auto
        &AddMember_Opac
    );

    #Check data
    push @EXPORT, qw(
        &checkuniquemember
        &checkuserpassword
        &Check_Userid




use C4::Context;
use C4::Members::AttributeTypes;

use vars qw(@ISA @EXPORT_OK @EXPORT %EXPORT_TAGS);
our ($csv, $AttributeTypes);
our (@ISA, @EXPORT_OK);
BEGIN {
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
                    DeleteBorrowerAttribute UpdateBorrowerAttribute
                    extended_attributes_code_value_arrayref extended_attributes_merge
                    SearchIdMatchingAttribute);
#    %EXPORT_TAGS = ( all => \@EXPORT_OK );
}

=head1 NAME





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
    );
#    %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::IssuingRules;
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

      &AddNotifyLine
      &GetOverdueMessageTransportTypes
      &parse_overdues_letter
    );

    # subs to remove
    push @EXPORT, qw(
      &BorType
    );

    # check that an equivalent don't exist already before moving

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

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




#use warnings; FIXME - Bug 2505
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::AuthorisedValues;
use Koha::Patron::Categories;

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_saved_report create_compound run_compound
      get_column_type get_distinct_values save_dictionary get_from_dictionary




use Carp;
use Data::Dumper;

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

        &GetReserve

        IsItemOnHoldAndFound

        GetMaxPatronHoldsForRecord

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

=head2 AddReserve

Lines 18-24 use C4::SIP::Sip::Checksum qw(checksum); Link Here

(-)a/C4/SIP/Sip.pm (-1 / +1 lines)
18		18
19	use base qw(Exporter);	19	use base qw(Exporter);
20		20
21	our @EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count	21	push @EXPORT_OK, qw(y_or_n timestamp add_field maybe_add add_count
22	denied sipbool boolspace write_msg	22	denied sipbool boolspace write_msg
23	$error_detection $protocol_version $field_delimiter	23	$error_detection $protocol_version $field_delimiter
24	$last_response);	24	$last_response);




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

use Exporter;
use strict;
use warnings;

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

sub checksum {
    my $pkt = shift;




use strict;
#use warnings; FIXME - Bug 2505

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






use strict;
#use warnings; FIXME - Bug 2505

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

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::Subscriptions;
use Koha::Subscription::Histories;

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 C4::Koha;
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 strict;
#use warnings; FIXME - Bug 2505
require Exporter;

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

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


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


@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 strict;
#use warnings; FIXME - Bug 2505
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

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




use Fcntl qw/O_RDONLY/; # O_RDONLY is used in generate_salt
use List::MoreUtils qw/ any /;

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 39-45 use Koha::Plugins::Handler; Link Here

(-)a/Koha/EDI.pm (-1 / +1 lines)
39	use Koha::Acquisition::Booksellers;	39	use Koha::Acquisition::Booksellers;
40		40
41	our $VERSION = 1.1;	41	our $VERSION = 1.1;
42	our @EXPORT_OK =	42	push @EXPORT_OK,
43	qw( process_quote process_invoice process_ordrsp create_edi_order get_edifact_ean );	43	qw( process_quote process_invoice process_ordrsp create_edi_order get_edifact_ean );
44		44
45	sub create_edi_order {	45	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 C4::Letters;
use Crypt::Eksblowfish::Bcrypt qw(en_base64);

our (@ISA, @EXPORT_OK);

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





#use MARC::Record;

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

    @EXPORT_OK = qw(
      read_field
      update_field
      copy_field
      copy_and_replace_field
      move_field
      delete_field
      field_exists
      field_equals
    );
}
  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

Lines 22-28 Link Here

(-)a/acqui/pdfformat/layout2pagesde.pm (-1 lines)
22		22
23	#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.	23	#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
24	package pdfformat::layout2pagesde;	24	package pdfformat::layout2pagesde;
25	use vars qw(@ISA @EXPORT);
26	use MIME::Base64;	25	use MIME::Base64;
27	use strict;	26	use strict;
28	use warnings;	27	use warnings;




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 2-10 package VerboseWarnings; Link Here

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

Lines 22-29 use Test::More tests => 3; Link Here

(-)a/t/db_dependent/Members/IssueSlip.t (-3 / +2 lines)
22	use Test::MockModule;	22	use Test::MockModule;
23	use t::lib::TestBuilder;	23	use t::lib::TestBuilder;
24		24
25	use C4::Biblio;	25	use C4::Biblio qw( AddBiblio );
26	use C4::Items;	26	use C4::Items qw( AddItem );
27	use C4::Members;	27	use C4::Members;
28	use C4::Circulation;	28	use C4::Circulation;
29		29
30	-

Return to bug 17600

Lines 65-125 use Date::Calc qw( Link Here

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

Lines 25-31 use JSON qw/encode_json/; Link Here

(-)a/C4/Auth.pm (-9 / +9 lines)
25	use URI::Escape;	25	use URI::Escape;
26	use CGI::Session;	26	use CGI::Session;
27		27
28	require Exporter;
29	use C4::Context;	28	use C4::Context;
30	use C4::Templates; # to get the template	29	use C4::Templates; # to get the template
31	use C4::Languages;	30	use C4::Languages;
Lines 41-48 use List::MoreUtils qw/ any /; Link Here
41	use Encode qw( encode is_utf8);	40	use Encode qw( encode is_utf8);
42		41
43	# use utf8;	42	# use utf8;
44	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login);	43	use vars qw($debug $ldap $cas $caslogout $shib $shib_login);
45		44	our (@ISA, @EXPORT_OK);
46	BEGIN {	45	BEGIN {
47	sub psgi_env { any { /^psgi\./ } keys %ENV }	46	sub psgi_env { any { /^psgi\./ } keys %ENV }
48		47
Lines 51-63 BEGIN { Link Here
51	else { exit }	50	else { exit }
52	}	51	}
53		52
54	$debug = $ENV{DEBUG};	53	require Exporter;
55	@ISA = qw(Exporter);	54	@ISA = qw(Exporter);
56	@EXPORT = qw(&checkauth &get_template_and_user &haspermission &get_user_subpermissions);	55	@EXPORT_OK = qw(
57	@EXPORT_OK = qw(&check_api_auth &get_session &check_cookie_auth &checkpw &checkpw_internal &checkpw_hash	56	&check_api_auth &get_session &check_cookie_auth &checkpw &checkpw_internal &checkpw_hash
58	&get_all_subpermissions &get_user_subpermissions	57	&get_all_subpermissions &get_user_subpermissions
59	);	58	);
60	%EXPORT_TAGS = ( EditPermissions => [qw(get_all_subpermissions get_user_subpermissions)] );	59
		60	$debug = $ENV{DEBUG};
61	$ldap = C4::Context->config('useldapserver') \|\| 0;	61	$ldap = C4::Context->config('useldapserver') \|\| 0;
62	$cas = C4::Context->preference('casAuthentication');	62	$cas = C4::Context->preference('casAuthentication');
63	$shib = C4::Context->config('useshibboleth') \|\| 0;	63	$shib = C4::Context->config('useshibboleth') \|\| 0;

Lines 29-41 use FindBin; Link Here

(-)a/C4/Auth_with_cas.pm (-2 / +3 lines)
29	use YAML;	29	use YAML;
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);	39	@EXPORT_OK = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
39	}	40	}
40	my $defaultcasserver;	41	my $defaultcasserver;
41	my $casservers;	42	my $casservers;

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

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

Lines 28-40 use C4::Members::Messaging; Link Here

(-)a/C4/Auth_with_shibboleth.pm (-3 / +3 lines)
28	use Carp;	28	use Carp;
29	use CGI;	29	use CGI;
30		30
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	$debug = $ENV{DEBUG};	35	$debug = $ENV{DEBUG};
36	@ISA = qw(Exporter);	36	@ISA = qw(Exporter);
37	@EXPORT =	37	@EXPORT_OK =
38	qw(shib_ok logout_shib login_shib_url checkpw_shib get_login_shib);	38	qw(shib_ok logout_shib login_shib_url checkpw_shib get_login_shib);
39	}	39	}
40		40

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 32-42 use Module::Load::Conditional qw(can_load); Link Here

(-)a/C4/Biblio.pm (-30 / +6 lines)
32	use C4::Koha;	32	use C4::Koha;
33	use C4::Log; # logaction	33	use C4::Log; # logaction
34	use C4::Budgets;	34	use C4::Budgets;
35	use C4::ClassSource;	35	use C4::ClassSource qw( GetClassSort );
36	use C4::Charset;	36	use C4::Charset qw( SetUTF8Flag );
37	use C4::Linker;	37	use C4::Linker;
38	use C4::OAI::Sets;	38	use C4::OAI::Sets;
39	use C4::Debug;	39	use C4::Debug;
		40	use C4::Items;
40		41
41	use Koha::Caches;	42	use Koha::Caches;
42	use Koha::Authority::Types;	43	use Koha::Authority::Types;
Lines 47-55 use Koha::Holds; Link Here
47	use Koha::SearchEngine;	48	use Koha::SearchEngine;
48	use Koha::Libraries;	49	use Koha::Libraries;
49		50
50	use vars qw(@ISA @EXPORT);
51	use vars qw($debug $cgi_debug);	51	use vars qw($debug $cgi_debug);
52		52	our (@ISA, @EXPORT_OK);
53	BEGIN {	53	BEGIN {
54		54
55	require Exporter;	55	require Exporter;
Lines 57-68 BEGIN { Link Here
57		57
58	# to add biblios	58	# to add biblios
59	# EXPORTED FUNCTIONS.	59	# EXPORTED FUNCTIONS.
60	push @EXPORT, qw(	60	@EXPORT_OK = qw(
61	&AddBiblio	61	AddBiblio
62	);
63
64	# to get something
65	push @EXPORT, qw(
66	GetBiblio	62	GetBiblio
67	GetBiblioData	63	GetBiblioData
68	GetMarcBiblio	64	GetMarcBiblio
Lines 104-141 BEGIN { Link Here
104	&CountItemsIssued	100	&CountItemsIssued
105	&CountBiblioInOrders	101	&CountBiblioInOrders
106	&GetSubscriptionsId	102	&GetSubscriptionsId
107	);
108		103
109	# To modify something
110	push @EXPORT, qw(
111	&ModBiblio	104	&ModBiblio
112	&ModZebra	105	&ModZebra
113	&UpdateTotalIssues	106	&UpdateTotalIssues
114	&RemoveAllNsb	107	&RemoveAllNsb
115	);
116		108
117	# To delete something
118	push @EXPORT, qw(
119	&DelBiblio	109	&DelBiblio
120	);
121		110
122	# To link headings in a bib record
123	# to authority records.
124	push @EXPORT, qw(
125	&BiblioAutoLink	111	&BiblioAutoLink
126	&LinkBibHeadingsToAuthorities	112	&LinkBibHeadingsToAuthorities
127	);
128		113
129	# Internal functions
130	# those functions are exported but should not be used
131	# they are useful in a few circumstances, so they are exported,
132	# but don't use them unless you are a core developer ;-)
133	push @EXPORT, qw(
134	&ModBiblioMarc	114	&ModBiblioMarc
135	);
136		115
137	# Others functions
138	push @EXPORT, qw(
139	&TransformMarcToKoha	116	&TransformMarcToKoha
140	&TransformHtmlToMarc	117	&TransformHtmlToMarc
141	&TransformHtmlToXml	118	&TransformHtmlToXml
Lines 2254-2260 sub PrepHostMarcField { Link Here
2254	my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_;	2231	my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_;
2255	$marcflavour \|\|="MARC21";	2232	$marcflavour \|\|="MARC21";
2256		2233
2257	require C4::Items;
2258	my $hostrecord = GetMarcBiblio($hostbiblionumber);	2234	my $hostrecord = GetMarcBiblio($hostbiblionumber);
2259	my $item = C4::Items::GetItem($hostitemnumber);	2235	my $item = C4::Items::GetItem($hostitemnumber);
2260		2236

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

(-)a/C4/Bookseller.pm (-6 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use base qw( Exporter );
25
26	our @EXPORT_OK = qw(
27	GetBooksellersWithLateOrders
28	);
29
30	=head1 NAME	24	=head1 NAME
31		25
32	C4::Bookseller - Koha functions for dealing with booksellers.	26	C4::Bookseller - Koha functions for dealing with booksellers.

Lines 31-42 use C4::Languages; Link Here

(-)a/C4/Breeding.pm (-3 / +2 lines)
31	use Koha::Database;	31	use Koha::Database;
32	use Koha::XSLT_Handler;	32	use Koha::XSLT_Handler;
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(&BreedingSearch &Z3950Search &Z3950SearchAuth);	38	@EXPORT_OK = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth);
40	}	39	}
41		40
42	=head1 NAME	41	=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 (-24 / +22 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	&AddClassSource
		33	&GetClassSource
		34	&ModClassSource
		35	&DelClassSource
		36	&GetClassSortRules
		37	&AddClassSortRule
		38	&GetClassSortRule
		39	&ModClassSortRule
		40	&DelClassSortRule
		41
		42	&GetSourcesForSortRule
		43	&GetClassSort
		44	);
		45	}
29		46
30	=head1 NAME	47	=head1 NAME
31		48
Lines 44-68 sources and sorting rules. Link Here
44		61
45	=cut	62	=cut
46		63
47
48	@ISA = qw(Exporter);
49	@EXPORT = qw(
50	&GetClassSources
51	&AddClassSource
52	&GetClassSource
53	&ModClassSource
54	&DelClassSource
55	&GetClassSortRules
56	&AddClassSortRule
57	&GetClassSortRule
58	&ModClassSortRule
59	&DelClassSortRule
60
61	&GetSourcesForSortRule
62	&GetClassSort
63
64	);
65
66	=head2 GetClassSources	64	=head2 GetClassSources
67		65
68	my $sources = GetClassSources();	66	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 30-41 use C4::MarcModificationTemplates; Link Here

(-)a/C4/ImportBatch.pm (-3 / +2 lines)
30	use Koha::Plugins::Handler;	30	use Koha::Plugins::Handler;
31	use Koha::Logger;	31	use Koha::Logger;
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	GetZ3950BatchId	38	GetZ3950BatchId
40	GetWebserviceBatchId	39	GetWebserviceBatchId
41	GetImportRecordMarc	40	GetImportRecordMarc

Lines 28-39 use C4::Context; Link Here

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

Lines 21-35 use strict; Link Here

(-)a/C4/InstallAuth.pm (-9 / +8 lines)
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use Digest::MD5 qw(md5_base64);	22	use Digest::MD5 qw(md5_base64);
23		23
24	require Exporter;
25	use C4::Context;	24	use C4::Context;
26	use C4::Output;	25	use C4::Output;
27	use C4::Templates;	26	use C4::Templates;
28	use C4::Koha;	27	use C4::Koha;
29	use CGI::Session;	28	use CGI::Session;
30		29
31	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	30	our (@ISA, @EXPORT_OK);
32		31	BEGIN {
		32	@ISA = qw(Exporter);
		33	@EXPORT_OK = qw(
		34	&checkauth
		35	&get_template_and_user
		36	);
		37	}
33		38
34	=head1 NAME	39	=head1 NAME
35		40
Lines 71-82 InstallAuth - Authenticates Koha users for Install process Link Here
71		76
72	=cut	77	=cut
73		78
74	@ISA = qw(Exporter);
75	@EXPORT = qw(
76	&checkauth
77	&get_template_and_user
78	);
79
80	=item get_template_and_user	79	=item get_template_and_user
81		80
82	my ( $template, $borrowernumber, $cookie ) = get_template_and_user(	81	my ( $template, $borrowernumber, $cookie ) = get_template_and_user(

Lines 24-30 use strict; Link Here

(-)a/C4/Items.pm (-3 / +3 lines)
24	use Carp;	24	use Carp;
25	use C4::Context;	25	use C4::Context;
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Biblio;	27	use C4::Biblio qw( GetFrameworkCode );
28	use Koha::DateUtils;	28	use Koha::DateUtils;
29	use MARC::Record;	29	use MARC::Record;
30	use C4::ClassSource;	30	use C4::ClassSource;
Lines 46-52 use Koha::SearchEngine; Link Here
46	use Koha::SearchEngine::Search;	46	use Koha::SearchEngine::Search;
47	use Koha::Libraries;	47	use Koha::Libraries;
48		48
49	use vars qw(@ISA @EXPORT);	49	our (@ISA, @EXPORT_OK);
50		50
51	BEGIN {	51	BEGIN {
52		52
Lines 54-60 BEGIN { Link Here
54	@ISA = qw( Exporter );	54	@ISA = qw( Exporter );
55		55
56	# function exports	56	# function exports
57	@EXPORT = qw(	57	@EXPORT_OK = qw(
58	GetItem	58	GetItem
59	AddItemFromMarc	59	AddItemFromMarc
60	AddItem	60	AddItem

Lines 34-45 use Business::ISBN; Link Here

(-)a/C4/Koha.pm (-7 / +4 lines)
34	use Business::ISSN;	34	use Business::ISSN;
35	use autouse 'Data::cselectall_arrayref' => qw(Dumper);	35	use autouse 'Data::cselectall_arrayref' => qw(Dumper);
36	use DBI qw(:sql_types);	36	use DBI qw(:sql_types);
37	use vars qw(@ISA @EXPORT @EXPORT_OK $DEBUG);	37	our (@ISA, @EXPORT_OK);
38
39	BEGIN {	38	BEGIN {
40	require Exporter;	39	require Exporter;
41	@ISA = qw(Exporter);	40	@ISA = qw(Exporter);
42	@EXPORT = qw(	41	@EXPORT_OK = qw(
43	&GetPrinters &GetPrinter	42	&GetPrinters &GetPrinter
44	&getitemtypeinfo	43	&getitemtypeinfo
45	&GetItemTypesCategorized	44	&GetItemTypesCategorized
Lines 63-72 BEGIN { Link Here
63	&GetVariationsOfISSNs	62	&GetVariationsOfISSNs
64	&NormalizeISSN	63	&NormalizeISSN
65		64
66	$DEBUG	65	GetDailyQuote
		66
67	);	67	);
68	$DEBUG = 0;
69	@EXPORT_OK = qw( GetDailyQuote );
70	}	68	}
71		69
72	=head1 NAME	70	=head1 NAME
Lines 295-301 sub getImageSets { Link Here
295	my @imagesets = (); # list of hasrefs of image set data to pass to template	293	my @imagesets = (); # list of hasrefs of image set data to pass to template
296	my @subdirectories = _getSubdirectoryNames( $paths->{'staff'}{'filesystem'} );	294	my @subdirectories = _getSubdirectoryNames( $paths->{'staff'}{'filesystem'} );
297	foreach my $imagesubdir ( @subdirectories ) {	295	foreach my $imagesubdir ( @subdirectories ) {
298	warn $imagesubdir if $DEBUG;
299	my @imagelist = (); # hashrefs of image info	296	my @imagelist = (); # hashrefs of image info
300	my @imagenames = _getImagesFromDirectory( File::Spec->catfile( $paths->{'staff'}{'filesystem'}, $imagesubdir ) );	297	my @imagenames = _getImagesFromDirectory( File::Spec->catfile( $paths->{'staff'}{'filesystem'}, $imagesubdir ) );
301	my $imagesetactive = 0;	298	my $imagesetactive = 0;

Lines 27-44 use CGI; Link Here

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

Lines 38-49 use Koha::SMS::Providers; Link Here

(-)a/C4/Letters.pm (-3 / +2 lines)
38	use Koha::Email;	38	use Koha::Email;
39	use Koha::DateUtils qw( format_sqldatetime dt_from_string );	39	use Koha::DateUtils qw( format_sqldatetime dt_from_string );
40		40
41	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	41	our (@ISA, @EXPORT_OK);
42
43	BEGIN {	42	BEGIN {
44	require Exporter;	43	require Exporter;
45	@ISA = qw(Exporter);	44	@ISA = qw(Exporter);
46	@EXPORT = qw(	45	@EXPORT_OK = qw(
47	&GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages &GetMessageTransportTypes	46	&GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages &GetMessageTransportTypes
48	);	47	);
49	}	48	}

Lines 46-65 use Koha::Patrons; Link Here

(-)a/C4/Members.pm (-13 / +3 lines)
46	use Koha::Patron::Categories;	46	use Koha::Patron::Categories;
47	use Koha::Schema;	47	use Koha::Schema;
48		48
49	our (@ISA,@EXPORT,@EXPORT_OK,$debug);	49	our ($debug);
50		50
51	use Module::Load::Conditional qw( can_load );	51	use Module::Load::Conditional qw( can_load );
52	if ( ! can_load( modules => { 'Koha::NorwegianPatronDB' => undef } ) ) {	52	if ( ! can_load( modules => { 'Koha::NorwegianPatronDB' => undef } ) ) {
53	$debug && warn "Unable to load Koha::NorwegianPatronDB";	53	$debug && warn "Unable to load Koha::NorwegianPatronDB";
54	}	54	}
55		55
56		56	our (@ISA, @EXPORT_OK);
57	BEGIN {	57	BEGIN {
58	$debug = $ENV{DEBUG} \|\| 0;	58	$debug = $ENV{DEBUG} \|\| 0;
59	require Exporter;	59	require Exporter;
60	@ISA = qw(Exporter);	60	@ISA = qw(Exporter);
61	#Get data	61	@EXPORT_OK = qw(
62	push @EXPORT, qw(
63	&GetMember	62	&GetMember
64		63
65	&GetPendingIssues	64	&GetPendingIssues
Lines 77-99 BEGIN { Link Here
77	GetBorrowersWithEmail	76	GetBorrowersWithEmail
78		77
79	GetOverduesForPatron	78	GetOverduesForPatron
80	);
81		79
82	#Modify data
83	push @EXPORT, qw(
84	&ModMember	80	&ModMember
85	&changepassword	81	&changepassword
86	);
87		82
88	#Insert data
89	push @EXPORT, qw(
90	&AddMember	83	&AddMember
91	&AddMember_Auto	84	&AddMember_Auto
92	&AddMember_Opac	85	&AddMember_Opac
93	);
94		86
95	#Check data
96	push @EXPORT, qw(
97	&checkuniquemember	87	&checkuniquemember
98	&checkuserpassword	88	&checkuserpassword
99	&Check_Userid	89	&Check_Userid

Lines 24-39 use Text::CSV; # Don't be tempted to use Text::CSV::Unicode -- even in bina Link Here

(-)a/C4/Members/Attributes.pm (-3 / +2 lines)
24	use C4::Context;	24	use C4::Context;
25	use C4::Members::AttributeTypes;	25	use C4::Members::AttributeTypes;
26		26
27	use vars qw(@ISA @EXPORT_OK @EXPORT %EXPORT_TAGS);
28	our ($csv, $AttributeTypes);	27	our ($csv, $AttributeTypes);
29		28	our (@ISA, @EXPORT_OK);
30	BEGIN {	29	BEGIN {
31	@ISA = qw(Exporter);	30	@ISA = qw(Exporter);
32	@EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes	31	@EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
33	DeleteBorrowerAttribute UpdateBorrowerAttribute	32	DeleteBorrowerAttribute UpdateBorrowerAttribute
34	extended_attributes_code_value_arrayref extended_attributes_merge	33	extended_attributes_code_value_arrayref extended_attributes_merge
35	SearchIdMatchingAttribute);	34	SearchIdMatchingAttribute);
36	%EXPORT_TAGS = ( all => \@EXPORT_OK );	35	# %EXPORT_TAGS = ( all => \@EXPORT_OK );
37	}	36	}
38		37
39	=head1 NAME	38	=head1 NAME

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 33-57 use URI::Escape; Link Here

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

Lines 39-52 use Koha::Account::Lines; Link Here

(-)a/C4/Overdues.pm (-15 / +2 lines)
39	use Koha::IssuingRules;	39	use Koha::IssuingRules;
40	use Koha::Libraries;	40	use Koha::Libraries;
41		41
42	use vars qw(@ISA @EXPORT);	42	our (@ISA, @EXPORT_OK);
43
44	BEGIN {	43	BEGIN {
45	require Exporter;	44	require Exporter;
46	@ISA = qw(Exporter);	45	@ISA = qw(Exporter);
47		46
48	# subs to rename (and maybe merge some...)	47	# subs to rename (and maybe merge some...)
49	push @EXPORT, qw(	48	@EXPORT_OK = qw(
50	&CalcFine	49	&CalcFine
51	&Getoverdues	50	&Getoverdues
52	&checkoverdues	51	&checkoverdues
Lines 61-82 BEGIN { Link Here
61	&AddNotifyLine	60	&AddNotifyLine
62	&GetOverdueMessageTransportTypes	61	&GetOverdueMessageTransportTypes
63	&parse_overdues_letter	62	&parse_overdues_letter
64	);
65		63
66	# subs to remove
67	push @EXPORT, qw(
68	&BorType	64	&BorType
69	);
70		65
71	# check that an equivalent don't exist already before moving
72
73	# subs to move to Circulation.pm
74	push @EXPORT, qw(
75	&GetIssuesIteminfo	66	&GetIssuesIteminfo
76	);
77
78	# subs to move to Biblio.pm
79	push @EXPORT, qw(
80	&GetItems	67	&GetItems
81	);	68	);
82	}	69	}

Lines 21-34 use strict; Link Here

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

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 34-43 use C4::Log; Link Here
34	use Koha::AuthorisedValues;	33	use Koha::AuthorisedValues;
35	use Koha::Patron::Categories;	34	use Koha::Patron::Categories;
36		35
		36	our (@ISA, @EXPORT_OK);
37	BEGIN {	37	BEGIN {
38	require Exporter;	38	require Exporter;
39	@ISA = qw(Exporter);	39	@ISA = qw(Exporter);
40	@EXPORT = qw(	40	@EXPORT_OK = qw(
41	get_report_types get_report_areas get_report_groups get_columns build_query get_criteria	41	get_report_types get_report_areas get_report_groups get_columns build_query get_criteria
42	save_report get_saved_reports execute_query get_saved_report create_compound run_compound	42	save_report get_saved_reports execute_query get_saved_report create_compound run_compound
43	get_column_type get_distinct_values save_dictionary get_from_dictionary	43	get_column_type get_distinct_values save_dictionary get_from_dictionary

Lines 52-59 use List::MoreUtils qw( firstidx any ); Link Here

(-)a/C4/Reserves.pm (-4 / +4 lines)
52	use Carp;	52	use Carp;
53	use Data::Dumper;	53	use Data::Dumper;
54		54
55	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
56
57	=head1 NAME	55	=head1 NAME
58		56
59	C4::Reserves - Koha functions for dealing with reservation.	57	C4::Reserves - Koha functions for dealing with reservation.
Lines 97-106 This modules provides somes functions to deal with reservations. Link Here
97		95
98	=cut	96	=cut
99		97
		98	our (@ISA, @EXPORT_OK);
100	BEGIN {	99	BEGIN {
101	require Exporter;	100	require Exporter;
102	@ISA = qw(Exporter);	101	@ISA = qw(Exporter);
103	@EXPORT = qw(	102	@EXPORT_OK = qw(
104	&AddReserve	103	&AddReserve
105		104
106	&GetReserve	105	&GetReserve
Lines 146-153 BEGIN { Link Here
146	IsItemOnHoldAndFound	145	IsItemOnHoldAndFound
147		146
148	GetMaxPatronHoldsForRecord	147	GetMaxPatronHoldsForRecord
		148
		149	MergeHolds
149	);	150	);
150	@EXPORT_OK = qw( MergeHolds );
151	}	151	}
152		152
153	=head2 AddReserve	153	=head2 AddReserve

Lines 1-12 Link Here

(-)a/C4/SIP/Sip/Checksum.pm (-4 / +7 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);	7	BEGIN {
9	our $debug = 0;	8	require Exporter;
		9	@ISA = qw(Exporter);
		10	@EXPORT_OK = qw(checksum verify_cksum);
		11	our $debug = 0;
		12	}
10		13
11	sub checksum {	14	sub checksum {
12	my $pkt = shift;	15	my $pkt = shift;

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

(-)a/C4/Scheduler.pm (-2 / +2 lines)
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22		22
23	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
24	use C4::Context;	23	use C4::Context;
25	use Schedule::At;	24	use Schedule::At;
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 =	30	@EXPORT_OK =
31	qw(get_jobs get_at_jobs get_at_job add_at_job remove_at_job);	31	qw(get_jobs get_at_jobs get_at_job add_at_job remove_at_job);
32	}	32	}
33		33

Lines 17-23 package C4::Search; Link Here

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