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

(-)a/C4/Auth.pm (-1 / +1 lines)
Lines 67-73 BEGIN { Link Here
67
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
      &get_template_and_user &haspermission
71
    );
71
    );
72
72
73
    $debug     = $ENV{DEBUG};
73
    $debug     = $ENV{DEBUG};
(-)a/C4/Biblio.pm (-1 / +3 lines)
Lines 63-68 BEGIN { Link Here
63
        TransformHtmlToMarc
63
        TransformHtmlToMarc
64
        TransformHtmlToXml
64
        TransformHtmlToXml
65
        prepare_host_field
65
        prepare_host_field
66
        _disambiguate
67
        TransformMarcToKohaOneField
66
    );
68
    );
67
69
68
    # Internal functions
70
    # Internal functions
Lines 93-99 use C4::Charset qw( SetUTF8Flag SetMarcUnicodeFlag StripNonXmlChars nsb_clean ); Link Here
93
use C4::Linker;
95
use C4::Linker;
94
use C4::OAI::Sets;
96
use C4::OAI::Sets;
95
use C4::Debug;
97
use C4::Debug;
96
use C4::Items qw( sub GetHiddenItemnumbers GetMarcItem );
98
use C4::Items qw( GetHiddenItemnumbers GetMarcItem );
97
99
98
use Koha::Caches;
100
use Koha::Caches;
99
use Koha::Authority::Types;
101
use Koha::Authority::Types;
(-)a/C4/Breeding.pm (-1 / +1 lines)
Lines 26-32 use C4::Koha qw( GetNormalizedISBN ); Link Here
26
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
26
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
27
use MARC::File::USMARC;
27
use MARC::File::USMARC;
28
use MARC::Field;
28
use MARC::Field;
29
use C4::ImportBatch qw( sub GetZ3950BatchId AddBiblioToBatch AddAuthToBatch );
29
use C4::ImportBatch qw( GetZ3950BatchId AddBiblioToBatch AddAuthToBatch );
30
use C4::AuthoritiesMarc; #GuessAuthTypeCode, FindDuplicateAuthority
30
use C4::AuthoritiesMarc; #GuessAuthTypeCode, FindDuplicateAuthority
31
use C4::Languages qw( getlanguage );
31
use C4::Languages qw( getlanguage );
32
use Koha::Database;
32
use Koha::Database;
(-)a/C4/Circulation.pm (-1 / +2 lines)
Lines 29-35 use C4::Context; Link Here
29
use C4::Stats;
29
use C4::Stats;
30
use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest );
30
use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest );
31
use C4::Biblio qw( UpdateTotalIssues ModZebra );
31
use C4::Biblio qw( UpdateTotalIssues ModZebra );
32
use C4::Items qw( sub ModItemTransfer ModDateLastSeen CartToShelf );
32
use C4::Items qw( ModItemTransfer ModDateLastSeen CartToShelf );
33
use C4::Members;
33
use C4::Members;
34
use C4::Accounts;
34
use C4::Accounts;
35
use C4::ItemCirculationAlertPreference;
35
use C4::ItemCirculationAlertPreference;
Lines 123-128 BEGIN { Link Here
123
      &DeleteOfflineOperation
123
      &DeleteOfflineOperation
124
      &ProcessOfflineOperation
124
      &ProcessOfflineOperation
125
    );
125
    );
126
    push @EXPORT_OK, '_GetCircControlBranch'; # This is wrong!
126
}
127
}
127
128
128
=head1 NAME
129
=head1 NAME
(-)a/C4/HoldsQueue.pm (-1 lines)
Lines 24-30 use warnings; Link Here
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Search;
26
use C4::Search;
27
use C4::Items qw( sub );
28
use C4::Circulation qw( GetTransfers GetBranchItemRule );
27
use C4::Circulation qw( GetTransfers GetBranchItemRule );
29
use C4::Members;
28
use C4::Members;
30
use C4::Biblio;
29
use C4::Biblio;
(-)a/C4/ILSDI/Services.pm (-1 / +1 lines)
Lines 21-27 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use C4::Members;
23
use C4::Members;
24
use C4::Items qw( sub get_hostitemnumbers_of );
24
use C4::Items qw( get_hostitemnumbers_of );
25
use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal );
25
use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal );
26
use C4::Accounts;
26
use C4::Accounts;
27
use C4::Biblio qw( GetMarcBiblio );
27
use C4::Biblio qw( GetMarcBiblio );
(-)a/C4/ImportBatch.pm (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
23
use C4::Context;
23
use C4::Context;
24
use C4::Koha qw( GetNormalizedISBN );
24
use C4::Koha qw( GetNormalizedISBN );
25
use C4::Biblio qw( AddBiblio ModBiblio GetMarcFromKohaField GetXmlBiblio TransformMarcToKoha DelBiblio );
25
use C4::Biblio qw( AddBiblio ModBiblio GetMarcFromKohaField GetXmlBiblio TransformMarcToKoha DelBiblio );
26
use C4::Items qw( sub ModItemFromMarc AddItemFromMarc );
26
use C4::Items qw( ModItemFromMarc AddItemFromMarc );
27
use C4::Charset qw( SetUTF8Flag StripNonXmlChars MarcToUTF8Record );
27
use C4::Charset qw( SetUTF8Flag StripNonXmlChars MarcToUTF8Record );
28
use C4::AuthoritiesMarc;
28
use C4::AuthoritiesMarc;
29
use C4::MarcModificationTemplates;
29
use C4::MarcModificationTemplates;
(-)a/C4/Items.pm (+1 lines)
Lines 39-44 BEGIN { Link Here
39
        GetHostItemsInfo
39
        GetHostItemsInfo
40
        get_hostitemnumbers_of
40
        get_hostitemnumbers_of
41
        GetHiddenItemnumbers
41
        GetHiddenItemnumbers
42
        GetMarcItem
42
        MoveItemFromBiblio
43
        MoveItemFromBiblio
43
        CartToShelf
44
        CartToShelf
44
        GetAnalyticsCount
45
        GetAnalyticsCount
(-)a/C4/Letters.pm (-1 / +1 lines)
Lines 49-55 BEGIN { Link Here
49
    require Exporter;
49
    require Exporter;
50
    @ISA = qw(Exporter);
50
    @ISA = qw(Exporter);
51
    @EXPORT_OK = qw(
51
    @EXPORT_OK = qw(
52
        &EnqueueLetter &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &SendAlerts &GetPrintMessages &GetMessageTransportTypes
52
      &EnqueueLetter &getletter &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &SendAlerts &GetPrintMessages &GetMessageTransportTypes
53
    );
53
    );
54
}
54
}
55
55
(-)a/C4/Output.pm (-1 / +1 lines)
Lines 40-46 BEGIN { Link Here
40
    require Exporter;
40
    require Exporter;
41
41
42
    @ISA    = qw(Exporter);
42
    @ISA    = qw(Exporter);
43
    @EXPORT_OK, qw(
43
    @EXPORT_OK = qw(
44
        is_ajax
44
        is_ajax
45
        ajax_fail
45
        ajax_fail
46
        setlanguagecookie getlanguagecookie pagination_bar parametrized_url
46
        setlanguagecookie getlanguagecookie pagination_bar parametrized_url
(-)a/C4/Reserves.pm (-1 / +3 lines)
Lines 27-33 use C4::Accounts; Link Here
27
use C4::Biblio;
27
use C4::Biblio;
28
use C4::Circulation qw( CheckIfIssuedToPatron checkHighHolds GetAgeRestriction GetBranchItemRule );
28
use C4::Circulation qw( CheckIfIssuedToPatron checkHighHolds GetAgeRestriction GetBranchItemRule );
29
use C4::Context;
29
use C4::Context;
30
use C4::Items qw( sub get_hostitemnumbers_of ModItemTransfer CartToShelf );
30
use C4::Items qw( get_hostitemnumbers_of ModItemTransfer CartToShelf );
31
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
31
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
32
use C4::Log;
32
use C4::Log;
33
use C4::Members::Messaging;
33
use C4::Members::Messaging;
Lines 141-146 BEGIN { Link Here
141
        GetMaxPatronHoldsForRecord
141
        GetMaxPatronHoldsForRecord
142
142
143
        MergeHolds
143
        MergeHolds
144
145
        RevertWaitingStatus
144
    );
146
    );
145
}
147
}
146
148
(-)a/C4/SIP/SIPServer.pm (-6 / +6 lines)
Lines 13-24 use Scalar::Util qw(blessed); Link Here
13
require UNIVERSAL::require;
13
require UNIVERSAL::require;
14
14
15
use C4::Context;
15
use C4::Context;
16
use C4::SIP::Sip qw( siplog );
16
use C4::SIP::Sip qw(siplog);
17
use C4::SIP::Sip qw( siplog );
17
use C4::SIP::Sip::Constants qw(:all);
18
use C4::SIP::Sip qw( siplog );
18
use C4::SIP::Sip::Configuration;
19
use C4::SIP::Sip qw( siplog );
19
use C4::SIP::Sip::Checksum qw(checksum verify_cksum);
20
use C4::SIP::Sip qw( siplog );
20
use C4::SIP::Sip::MsgType qw( handle login_core );
21
use C4::SIP::Logger qw( set_logger );
21
use C4::SIP::Logger qw(set_logger);
22
22
23
use Koha::Caches;
23
use Koha::Caches;
24
24
(-)a/C4/Search.pm (+2 lines)
Lines 52-57 BEGIN { Link Here
52
      &buildQuery
52
      &buildQuery
53
      &GetDistinctValues
53
      &GetDistinctValues
54
      &enabled_staff_search_views
54
      &enabled_staff_search_views
55
      &new_record_from_zebra
56
      &z3950_search_args
55
    );
57
    );
56
}
58
}
57
59
(-)a/C4/XSLT.pm (-1 lines)
Lines 24-30 package C4::XSLT; Link Here
24
use Modern::Perl;
24
use Modern::Perl;
25
25
26
use C4::Context;
26
use C4::Context;
27
use C4::Items qw( sub );
28
use C4::Koha qw( xml_escape );
27
use C4::Koha qw( xml_escape );
29
use C4::Biblio qw( GetFrameworkCode GetMarcStructure GetAuthorisedValueDesc );
28
use C4::Biblio qw( GetFrameworkCode GetMarcStructure GetAuthorisedValueDesc );
30
use C4::Circulation;
29
use C4::Circulation;
(-)a/Koha/AuthUtils.pm (-1 / +1 lines)
Lines 32-38 our (@ISA, @EXPORT_OK); Link Here
32
BEGIN {
32
BEGIN {
33
    require Exporter;
33
    require Exporter;
34
    @ISA = qw(Exporter);
34
    @ISA = qw(Exporter);
35
    @EXPORT_OK = qw(hash_password get_script_name);
35
    @EXPORT_OK = qw(hash_password get_script_name is_password_valid);
36
};
36
};
37
=head1 NAME
37
=head1 NAME
38
38
(-)a/Koha/Filter/MARC/ViewPolicy.pm (-2 / +2 lines)
Lines 40-46 menu. Link Here
40
40
41
use Modern::Perl;
41
use Modern::Perl;
42
use Carp;
42
use Carp;
43
use C4::Biblio;
43
use C4::Biblio qw( GetMarcStructure );
44
44
45
use base qw(Koha::RecordProcessor::Base);
45
use base qw(Koha::RecordProcessor::Base);
46
our $NAME    = 'MARC_ViewPolicy';
46
our $NAME    = 'MARC_ViewPolicy';
Lines 86-92 sub filter { Link Here
86
        my $result        = $current_record;
86
        my $result        = $current_record;
87
        my $hide          = _should_hide_on_interface();
87
        my $hide          = _should_hide_on_interface();
88
88
89
        my $marcsubfieldstructure = GetMarcStructure( 0, $frameworkcode, { unsafe => 1 } );
89
        my $marcsubfieldstructure = C4::Biblio::GetMarcStructure( 0, $frameworkcode, { unsafe => 1 } );
90
90
91
        #if ($marcsubfieldstructure->{'000'}->{'@'}->{hidden}>0) {
91
        #if ($marcsubfieldstructure->{'000'}->{'@'}->{hidden}>0) {
92
        # LDR field is excluded from $current_record->fields().
92
        # LDR field is excluded from $current_record->fields().
(-)a/Koha/Item/Search/Field.pm (-1 / +1 lines)
Lines 6-12 our (@ISA, @EXPORT_OK); Link Here
6
BEGIN {
6
BEGIN {
7
    require Exporter
7
    require Exporter
8
    @ISA = qw(Exporter);
8
    @ISA = qw(Exporter);
9
    @EXPORT_OK, qw(
9
    @EXPORT_OK = qw(
10
        AddItemSearchField
10
        AddItemSearchField
11
        ModItemSearchField
11
        ModItemSearchField
12
        DelItemSearchField
12
        DelItemSearchField
(-)a/Koha/Item/Transfer.pm (-1 / +1 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use Carp;
20
use Carp;
21
use Try::Tiny;
21
use Try::Tiny;
22
22
23
use C4::Items qw( sub CartToShelf ModDateLastSeen );
23
use C4::Items qw( CartToShelf ModDateLastSeen );
24
24
25
use Koha::Database;
25
use Koha::Database;
26
use Koha::DateUtils;
26
use Koha::DateUtils;
(-)a/Koha/SearchEngine/Zebra/Search.pm (-2 / +2 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use base qw(Class::Accessor);
22
use base qw(Class::Accessor);
23
23
24
use C4::Search; # :(
24
use C4::Search qw( getRecords ); # :(
25
use C4::AuthoritiesMarc;
25
use C4::AuthoritiesMarc;
26
use Koha::SearchEngine::Search;
26
use Koha::SearchEngine::Search;
27
27
Lines 62-68 This passes straight through to C4::Search::getRecords. Link Here
62
sub search_compat {
62
sub search_compat {
63
    shift; # get rid of $self
63
    shift; # get rid of $self
64
64
65
    return getRecords(@_);
65
    return C4::Search::getRecords(@_);
66
}
66
}
67
67
68
=head2 simple_search_compat
68
=head2 simple_search_compat
(-)a/acqui/addorderiso2709.pl (-1 / +1 lines)
Lines 30-36 use Encode (); Link Here
30
use C4::Context;
30
use C4::Context;
31
use C4::Auth qw( get_template_and_user );
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output qw( output_html_with_http_headers );
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches sub SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
33
use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
34
use C4::Matcher;
34
use C4::Matcher;
35
use C4::Search qw( FindDuplicate );
35
use C4::Search qw( FindDuplicate );
36
use C4::Acquisition;
36
use C4::Acquisition;
(-)a/acqui/neworderempty.pl (-1 / +1 lines)
Lines 88-94 use C4::Members; Link Here
88
use C4::Search qw( FindDuplicate );
88
use C4::Search qw( FindDuplicate );
89
89
90
#needed for z3950 import:
90
#needed for z3950 import:
91
use C4::ImportBatch qw( sub SetImportRecordStatus SetMatchedBiblionumber GetImportRecordMarc );
91
use C4::ImportBatch qw( SetImportRecordStatus SetMatchedBiblionumber GetImportRecordMarc );
92
92
93
use Koha::Acquisition::Booksellers;
93
use Koha::Acquisition::Booksellers;
94
use Koha::Acquisition::Currencies;
94
use Koha::Acquisition::Currencies;
(-)a/authorities/authorities.pl (-1 / +1 lines)
Lines 24-30 use CGI qw ( -utf8 ); Link Here
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth qw( get_template_and_user );
26
use C4::Auth qw( get_template_and_user );
27
use C4::ImportBatch qw( sub GetImportRecordMarc );
27
use C4::ImportBatch qw( GetImportRecordMarc );
28
use C4::Context;
28
use C4::Context;
29
use Date::Calc qw( Today );
29
use Date::Calc qw( Today );
30
use MARC::File::USMARC;
30
use MARC::File::USMARC;
(-)a/cataloguing/addbiblio.pl (-1 / +1 lines)
Lines 42-48 use C4::Auth qw( get_template_and_user haspermission ); Link Here
42
use C4::Context;
42
use C4::Context;
43
use MARC::Record ();
43
use MARC::Record ();
44
use C4::ClassSource qw( GetClassSources );
44
use C4::ClassSource qw( GetClassSources );
45
use C4::ImportBatch qw( sub GetImportRecordMarc );
45
use C4::ImportBatch qw( GetImportRecordMarc );
46
use C4::Charset qw( SetMarcUnicodeFlag );
46
use C4::Charset qw( SetMarcUnicodeFlag );
47
use Koha::BiblioFrameworks;
47
use Koha::BiblioFrameworks;
48
use Koha::DateUtils qw( dt_from_string );
48
use Koha::DateUtils qw( dt_from_string );
(-)a/misc/commit_file.pl (-1 / +1 lines)
Lines 10-16 BEGIN { Link Here
10
10
11
use Koha::Script;
11
use Koha::Script;
12
use C4::Context;
12
use C4::Context;
13
use C4::ImportBatch qw( GetImportBatch sub BatchCommitRecords BatchRevertRecords );
13
use C4::ImportBatch qw( GetImportBatch BatchCommitRecords BatchRevertRecords );
14
use Getopt::Long qw( GetOptions );
14
use Getopt::Long qw( GetOptions );
15
15
16
$| = 1;
16
$| = 1;
(-)a/misc/stage_file.pl (-1 / +1 lines)
Lines 28-34 BEGIN { Link Here
28
28
29
use Koha::Script;
29
use Koha::Script;
30
use C4::Context;
30
use C4::Context;
31
use C4::ImportBatch qw( sub RecordsFromISO2709File RecordsFromMARCXMLFile BatchStageMarcRecords SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates );
31
use C4::ImportBatch qw( RecordsFromISO2709File RecordsFromMARCXMLFile BatchStageMarcRecords SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates );
32
use C4::Matcher;
32
use C4::Matcher;
33
use C4::MarcModificationTemplates qw( GetModificationTemplates );
33
use C4::MarcModificationTemplates qw( GetModificationTemplates );
34
use Getopt::Long qw( GetOptions );
34
use Getopt::Long qw( GetOptions );
(-)a/t/lib/TestBuilder.pm (-1 lines)
Lines 4-10 use Modern::Perl; Link Here
4
4
5
use Koha::Database;
5
use Koha::Database;
6
use C4::Biblio qw( AddBiblio );
6
use C4::Biblio qw( AddBiblio );
7
use C4::Items qw( sub );
8
use Koha::Biblios;
7
use Koha::Biblios;
9
use Koha::Items;
8
use Koha::Items;
10
use Koha::DateUtils qw( dt_from_string );
9
use Koha::DateUtils qw( dt_from_string );
(-)a/tools/manage-marc-import.pl (-1 / +1 lines)
Lines 30-36 use C4::Koha; Link Here
30
use C4::Auth qw( get_template_and_user );
30
use C4::Auth qw( get_template_and_user );
31
use C4::Auth qw( get_template_and_user );
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output qw( output_html_with_http_headers );
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::ImportBatch qw( CleanBatch DeleteBatch sub GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords );
33
use C4::ImportBatch qw( CleanBatch DeleteBatch GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords );
34
use C4::Matcher;
34
use C4::Matcher;
35
use C4::BackgroundJob;
35
use C4::BackgroundJob;
36
use C4::Labels::Batch;
36
use C4::Labels::Batch;
(-)a/tools/stage-marc-import.pl (-2 / +1 lines)
Lines 35-41 use MARC::File::USMARC; Link Here
35
use C4::Context;
35
use C4::Context;
36
use C4::Auth qw( get_template_and_user );
36
use C4::Auth qw( get_template_and_user );
37
use C4::Output qw( output_html_with_http_headers );
37
use C4::Output qw( output_html_with_http_headers );
38
use C4::ImportBatch qw( RecordsFromMARCXMLFile RecordsFromISO2709File RecordsFromMarcPlugin BatchStageMarcRecords BatchFindDuplicates SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction sub );
38
use C4::ImportBatch qw( RecordsFromMARCXMLFile RecordsFromISO2709File RecordsFromMarcPlugin BatchStageMarcRecords BatchFindDuplicates SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction );
39
use C4::Matcher;
39
use C4::Matcher;
40
use Koha::UploadedFiles;
40
use Koha::UploadedFiles;
41
use C4::BackgroundJob;
41
use C4::BackgroundJob;
42
- 

Return to bug 17600