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

(-)a/C4/AuthoritiesMarc.pm (-1 / +1 lines)
Lines 21-27 use strict; Link Here
21
use warnings;
21
use warnings;
22
use C4::Context;
22
use C4::Context;
23
use MARC::Record;
23
use MARC::Record;
24
use C4::Biblio qw( ModZebra GetMarcFromKohaField GetMarcBiblio ModBiblio GetFrameworkCode );
24
use C4::Biblio qw( ModZebra GetMarcBiblio ModBiblio GetFrameworkCode );
25
use C4::Search qw( FindDuplicate new_record_from_zebra );
25
use C4::Search qw( FindDuplicate new_record_from_zebra );
26
use C4::AuthoritiesMarc::MARC21;
26
use C4::AuthoritiesMarc::MARC21;
27
use C4::AuthoritiesMarc::UNIMARC;
27
use C4::AuthoritiesMarc::UNIMARC;
(-)a/C4/Items.pm (-1 / +1 lines)
Lines 23-29 use strict; Link Here
23
23
24
use Carp;
24
use Carp;
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha qw( IsKohaFieldLinked GetItemTypes );
26
use C4::Koha qw( IsKohaFieldLinked );
27
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformMarcToKoha ModZebra AddBiblio GetBiblionumberFromItemnumber GetBiblio GetMarcBiblio TransformKohaToMarc GetMarcStructure IsMarcStructureInternal );
27
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformMarcToKoha ModZebra AddBiblio GetBiblionumberFromItemnumber GetBiblio GetMarcBiblio TransformKohaToMarc GetMarcStructure IsMarcStructureInternal );
28
use Koha::DateUtils qw( dt_from_string output_pref );
28
use Koha::DateUtils qw( dt_from_string output_pref );
29
use MARC::Record;
29
use MARC::Record;
(-)a/C4/Search.pm (-1 / +1 lines)
Lines 20-26 use strict; Link Here
20
20
21
use C4::Context;
21
use C4::Context;
22
use C4::Biblio qw( TransformMarcToKoha GetMarcFromKohaField GetFrameworkCode GetRecordValue GetMarcBiblio GetAuthorisedValueDesc GetBiblioData GetBiblio );
22
use C4::Biblio qw( TransformMarcToKoha GetMarcFromKohaField GetFrameworkCode GetRecordValue GetMarcBiblio GetAuthorisedValueDesc GetBiblioData GetBiblio );
23
use C4::Koha qw( getFacets GetVariationsOfISBN GetItemTypes getitemtypeimagelocation GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
23
use C4::Koha qw( getFacets GetVariationsOfISBN getitemtypeimagelocation GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
24
use Koha::DateUtils qw( output_pref );
24
use Koha::DateUtils qw( output_pref );
25
use Koha::Libraries;
25
use Koha::Libraries;
26
use Lingua::Stem;
26
use Lingua::Stem;
(-)a/C4/XSLT.pm (-1 / +1 lines)
Lines 25-31 use Modern::Perl; Link Here
25
25
26
use C4::Context;
26
use C4::Context;
27
use C4::Items qw( GetItem GetItemsInfo );
27
use C4::Items qw( GetItem GetItemsInfo );
28
use C4::Koha qw( GetItemTypes xml_escape );
28
use C4::Koha qw( xml_escape );
29
use C4::Biblio qw( GetFrameworkCode GetMarcStructure GetAuthorisedValueDesc );
29
use C4::Biblio qw( GetFrameworkCode GetMarcStructure GetAuthorisedValueDesc );
30
use C4::Circulation qw( GetTransfers );
30
use C4::Circulation qw( GetTransfers );
31
use C4::Reserves qw( GetReserve GetReserveStatus );
31
use C4::Reserves qw( GetReserve GetReserveStatus );
(-)a/Koha/Authority/MergeRequests.pm (-1 / +1 lines)
Lines 24-30 use MARC::Record; Link Here
24
use C4::Context;
24
use C4::Context;
25
use Koha::Authority::MergeRequest;
25
use Koha::Authority::MergeRequest;
26
use Koha::Database;
26
use Koha::Database;
27
use Koha::DateUtils;
27
use Koha::DateUtils qw( dt_from_string );
28
28
29
use parent qw(Koha::Objects);
29
use parent qw(Koha::Objects);
30
30
(-)a/Koha/ItemTypes.pm (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use Carp;
20
use Carp;
21
21
22
use C4::Languages;
22
use C4::Languages qw( getlanguage );
23
23
24
use Koha::Database;
24
use Koha::Database;
25
use Koha::ItemType;
25
use Koha::ItemType;
(-)a/Koha/SearchEngine/Search.pm (-1 / +1 lines)
Lines 45-51 Creates a new C<Search> of whatever the relevant type is. Link Here
45
45
46
use Modern::Perl;
46
use Modern::Perl;
47
use C4::Context;
47
use C4::Context;
48
use C4::Biblio qw//;
48
use C4::Biblio qw( GetMarcFromKohaField );
49
49
50
sub new {
50
sub new {
51
    my $engine = C4::Context->preference("SearchEngine") // 'Zebra';
51
    my $engine = C4::Context->preference("SearchEngine") // 'Zebra';
(-)a/Koha/UploadedFiles.pm (-2 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use C4::Koha qw( GetAuthorisedValues );
22
use C4::Koha qw( GetAuthorisedValues );
23
use Koha::Database;
23
use Koha::Database;
24
use Koha::DateUtils;
24
use Koha::DateUtils qw( dt_from_string );
25
use Koha::UploadedFile;
25
use Koha::UploadedFile;
26
26
27
use parent qw(Koha::Objects);
27
use parent qw(Koha::Objects);
28
- 

Return to bug 17600