use C4::Context;
use C4::Stats;
use C4::Members;
-use C4::Log qw(logaction);
use Koha::Account;
use Koha::Account::Lines;
use Koha::Account::Offsets;
use Koha::Items;
-use Mojo::Util qw(deprecated);
-use Data::Dumper qw(Dumper);
use vars qw(@ISA @EXPORT);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
- &chargelostitem
- &purge_zero_balance_fees
+ chargelostitem
+ purge_zero_balance_fees
);
}
use Modern::Perl;
-use Carp;
+use Carp qw( carp croak );
use Text::CSV_XS;
use C4::Context;
-use C4::Suggestions;
-use C4::Biblio;
-use C4::Contract;
-use C4::Log qw(logaction);
+use C4::Suggestions qw( GetSuggestion GetSuggestionFromBiblionumber ModSuggestion );
+use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal );
+use C4::Contract qw( GetContract );
+use C4::Log qw( logaction );
use C4::Templates qw(gettemplate);
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Acquisition::Baskets;
use C4::Koha;
use MARC::Field;
-use MARC::Record;
-use JSON qw(to_json);
+use JSON qw( to_json );
-use Time::localtime;
-
-use vars qw(@ISA @EXPORT);
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(
- &GetBasket &NewBasket &ReopenBasket &ModBasket
- &GetBasketAsCSV &GetBasketGroupAsCSV
- &GetBasketsByBookseller &GetBasketsByBasketgroup
- &GetBasketsInfosByBookseller
-
- &GetBasketUsers &ModBasketUsers
- &CanUserManageBasket
-
- &ModBasketHeader
-
- &ModBasketgroup &NewBasketgroup &DelBasketgroup &GetBasketgroup &CloseBasketgroup
- &GetBasketgroups &ReOpenBasketgroup
-
- &ModOrder &GetOrder &GetOrders &GetOrdersByBiblionumber
- &GetOrderFromItemnumber
- &SearchOrders &GetHistory &GetRecentAcqui
- &ModReceiveOrder &CancelReceipt
- &TransferOrder
- &ModItemOrder
-
- &GetParcels
-
- &GetInvoices
- &GetInvoice
- &GetInvoiceDetails
- &AddInvoice
- &ModInvoice
- &CloseInvoice
- &ReopenInvoice
- &DelInvoice
- &MergeInvoices
-
- &AddClaim
- &GetBiblioCountByBasketno
-
- &GetOrderUsers
- &ModOrderUsers
- &NotifyOrderUsers
-
- &FillWithDefaultValues
-
- &get_rounded_price
- &get_rounding_sql
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ GetBasket NewBasket ReopenBasket ModBasket
+ GetBasketAsCSV GetBasketGroupAsCSV
+ GetBasketsByBookseller GetBasketsByBasketgroup
+ GetBasketsInfosByBookseller
+
+ GetBasketUsers ModBasketUsers
+ CanUserManageBasket
+
+ ModBasketHeader
+
+ ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroup CloseBasketgroup
+ GetBasketgroups ReOpenBasketgroup
+
+ ModOrder GetOrder GetOrders GetOrdersByBiblionumber
+ GetOrderFromItemnumber
+ SearchOrders GetHistory GetRecentAcqui
+ ModReceiveOrder CancelReceipt
+ populate_order_with_prices
+ TransferOrder
+ ModItemOrder
+
+ GetParcels
+
+ GetInvoices
+ GetInvoice
+ GetInvoiceDetails
+ AddInvoice
+ ModInvoice
+ CloseInvoice
+ ReopenInvoice
+ DelInvoice
+ MergeInvoices
+
+ AddClaim
+ GetBiblioCountByBasketno
+
+ GetOrderUsers
+ ModOrderUsers
+ NotifyOrderUsers
+
+ FillWithDefaultValues
+
+ get_rounded_price
+ get_rounding_sql
);
}
use strict;
use warnings;
-use Carp qw/croak/;
+use Carp qw( croak );
-use Digest::MD5 qw(md5_base64);
-use JSON qw/encode_json/;
-use URI::Escape;
+use Digest::MD5 qw( md5_base64 );
use CGI::Session;
-require Exporter;
use C4::Context;
use C4::Templates; # to get the template
use C4::Languages;
use Koha;
use Koha::Logger;
use Koha::Caches;
-use Koha::AuthUtils qw(get_script_name hash_password);
+use Koha::AuthUtils qw( get_script_name hash_password );
use Koha::Checkouts;
-use Koha::DateUtils qw(dt_from_string);
+use Koha::DateUtils qw( dt_from_string );
use Koha::Library::Groups;
use Koha::Libraries;
use Koha::Cash::Registers;
use Koha::Desks;
use Koha::Patrons;
use Koha::Patron::Consents;
-use POSIX qw/strftime/;
-use List::MoreUtils qw/ any /;
-use Encode qw( encode is_utf8);
-use C4::Auth_with_shibboleth;
+use List::MoreUtils qw( any );
+use Encode;
+use C4::Auth_with_shibboleth qw( shib_ok get_login_shib login_shib_url logout_shib checkpw_shib );
use Net::CIDR;
-use C4::Log qw/logaction/;
+use C4::Log qw( logaction );
# use utf8;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $ldap $cas $caslogout);
+use vars qw($ldap $cas $caslogout);
+our (@ISA, @EXPORT_OK);
BEGIN {
sub psgi_env { any { /^psgi\./ } keys %ENV }
C4::Context->set_remote_address;
- @ISA = qw(Exporter);
- @EXPORT = qw(&checkauth &get_template_and_user &haspermission &get_user_subpermissions);
- @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
+ require Exporter;
+ @ISA = qw(Exporter);
+
+ @EXPORT_OK = qw(
+ checkauth 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 haspermission
);
- %EXPORT_TAGS = ( EditPermissions => [qw(get_all_subpermissions get_user_subpermissions)] );
+
$ldap = C4::Context->config('useldapserver') || 0;
$cas = C4::Context->preference('casAuthentication');
$caslogout = C4::Context->preference('casLogout');
use warnings;
use C4::Context;
-use Koha::AuthUtils qw(get_script_name);
+use Koha::AuthUtils qw( get_script_name );
use Authen::CAS::Client;
use CGI qw ( -utf8 );
-use FindBin;
use YAML::XS;
use Koha::Logger;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required);
+ @EXPORT_OK = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required);
}
my $defaultcasserver;
my $casservers;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Carp;
+use Carp qw( croak );
use C4::Context;
use C4::Members::Messaging;
-use C4::Auth qw(checkpw_internal);
+use C4::Auth qw( checkpw_internal );
use Koha::Patrons;
-use Koha::AuthUtils qw(hash_password);
-use List::MoreUtils qw( any );
+use Koha::AuthUtils qw( hash_password );
use Net::LDAP;
use Net::LDAP::Filter;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw( checkpw_ldap );
+ @EXPORT_OK = qw( checkpw_ldap );
}
# Redefine checkpw_ldap:
use Modern::Perl;
use C4::Context;
-use Koha::AuthUtils qw(get_script_name);
+use Koha::AuthUtils qw( get_script_name );
use Koha::Database;
use Koha::Patrons;
use C4::Members::Messaging;
-use Carp;
-use CGI;
-use List::MoreUtils qw(any);
+use Carp qw( carp );
+use List::MoreUtils qw( any );
use Koha::Logger;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT =
+ @EXPORT_OK =
qw(shib_ok logout_shib login_shib_url checkpw_shib get_login_shib);
}
use strict;
use warnings;
use C4::Context;
-use MARC::Record;
-use C4::Biblio;
-use C4::Search;
+use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio );
+use C4::Search qw( FindDuplicate new_record_from_zebra );
use C4::AuthoritiesMarc::MARC21;
use C4::AuthoritiesMarc::UNIMARC;
-use C4::Charset;
-use C4::Log;
+use C4::Charset qw( SetUTF8Flag );
+use C4::Log qw( logaction );
use Koha::MetadataRecord::Authority;
use Koha::Authorities;
use Koha::Authority::MergeRequests;
use Koha::SearchEngine::Indexer;
use Koha::SearchEngine::Search;
-use vars qw(@ISA @EXPORT);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(
- &GetTagsLabels
- &GetAuthMARCFromKohaField
-
- &AddAuthority
- &ModAuthority
- &DelAuthority
- &GetAuthority
- &GetAuthorityXML
-
- &SearchAuthorities
-
- &BuildSummary
- &BuildAuthHierarchies
- &BuildAuthHierarchy
- &GenerateHierarchy
-
- &merge
- &FindDuplicateAuthority
-
- &GuessAuthTypeCode
- &GuessAuthId
- );
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ GetTagsLabels
+ GetAuthMARCFromKohaField
+
+ AddAuthority
+ ModAuthority
+ DelAuthority
+ GetAuthority
+ GetAuthorityXML
+
+ SearchAuthorities
+
+ BuildSummary
+ BuildAuthHierarchies
+ BuildAuthHierarchy
+ GenerateHierarchy
+ GetHeaderAuthority
+ AddAuthorityTrees
+ CompareFieldWithAuthority
+
+ merge
+ FindDuplicateAuthority
+
+ GuessAuthTypeCode
+ GuessAuthId
+ compare_fields
+ );
}
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use MARC::Record;
=head1 NAME
use Modern::Perl;
use C4::Context;
-use C4::Auth qw/get_session/;
+use C4::Auth qw( get_session );
use Digest::MD5;
use strict;
use warnings;
-use Carp;
+use Carp qw( carp );
use C4::Context;
use C4::Barcodes::hbyymmincr;
use C4::Barcodes::incremental;
use C4::Barcodes::EAN13;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
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::Context;
-use Algorithm::CheckDigits;
-use Carp;
+use Algorithm::CheckDigits qw( CheckDigits );
+use Carp qw( carp );
use vars qw(@ISA);
use strict;
use warnings;
-use Carp;
+use Carp qw( carp );
use C4::Context;
-use Koha::DateUtils qw( output_pref dt_from_string );
+use Koha::DateUtils qw( dt_from_string output_pref );
use vars qw(@ISA);
use vars qw($width);
use Modern::Perl;
-use Carp;
+use Carp qw( carp );
use C4::Context;
use Modern::Perl;
-use vars qw(@ISA @EXPORT);
+use vars qw(@ISA @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
+ @EXPORT_OK = qw(
AddBiblio
GetBiblioData
GetMarcBiblio
GetMarcQuantity
GetAuthorisedValueDesc
GetMarcStructure
+ GetMarcSubfieldStructure
IsMarcStructureInternal
GetMarcFromKohaField
GetMarcSubfieldStructureFromKohaField
CountItemsIssued
ModBiblio
ModZebra
+ EmbedItemsInMarcBiblio
UpdateTotalIssues
RemoveAllNsb
DelBiblio
TransformHtmlToMarc
TransformHtmlToXml
prepare_host_field
+ TransformMarcToKohaOneField
);
# 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(
+ push @EXPORT_OK, qw(
ModBiblioMarc
);
}
-use Carp;
-use Try::Tiny;
+use Carp qw( carp );
+use Try::Tiny qw( catch try );
-use Encode qw( decode is_utf8 );
+use Encode;
use List::MoreUtils qw( uniq );
use MARC::Record;
use MARC::File::USMARC;
use MARC::File::XML;
-use POSIX qw(strftime);
-use Module::Load::Conditional qw(can_load);
+use POSIX qw( strftime );
+use Module::Load::Conditional qw( can_load );
use C4::Koha;
-use C4::Log; # logaction
+use C4::Log qw( logaction ); # logaction
use C4::Budgets;
-use C4::ClassSource;
-use C4::Charset;
+use C4::ClassSource qw( GetClassSort );
+use C4::Charset qw(
+ nsb_clean
+ SetMarcUnicodeFlag
+ SetUTF8Flag
+ StripNonXmlChars
+);
use C4::Linker;
use C4::OAI::Sets;
+use C4::Items qw( GetHiddenItemnumbers GetMarcItem );
use Koha::Logger;
use Koha::Caches;
my $opachiddenitems = $opac
&& ( C4::Context->preference('OpacHiddenItems') !~ /^\s*$/ );
- require C4::Items;
while ( my ($itemnumber) = $sth->fetchrow_array ) {
next if @$itemnumbers and not grep { $_ == $itemnumber } @$itemnumbers;
my $item;
use warnings;
use C4::Biblio;
-use C4::Koha;
-use C4::Charset;
+use C4::Koha qw( GetNormalizedISBN );
+use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
use MARC::File::USMARC;
use MARC::Field;
-use C4::ImportBatch;
+use C4::ImportBatch qw( GetZ3950BatchId AddBiblioToBatch AddAuthToBatch );
use C4::AuthoritiesMarc; #GuessAuthTypeCode, FindDuplicateAuthority
use C4::Languages;
use Koha::Database;
use Koha::XSLT::Base;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth);
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(BreedingSearch Z3950Search Z3950SearchAuth);
}
=head1 NAME
use Koha::Patrons;
use Koha::Acquisition::Invoice::Adjustments;
use C4::Acquisition;
-use vars qw(@ISA @EXPORT);
+our (@ISA, @EXPORT_OK);
BEGIN {
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(
-
- &GetBudget
- &GetBudgetByOrderNumber
- &GetBudgetByCode
- &GetBudgets
- &BudgetsByActivity
- &GetBudgetsReport
- &GetBudgetReport
- &GetBudgetHierarchy
- &AddBudget
- &ModBudget
- &DelBudget
- &GetBudgetSpent
- &GetBudgetOrdered
- &GetBudgetName
- &GetPeriodsCount
- GetBudgetHierarchySpent
- GetBudgetHierarchyOrdered
-
- &GetBudgetUsers
- &ModBudgetUsers
- &CanUserUseBudget
- &CanUserModifyBudget
-
- &GetBudgetPeriod
- &GetBudgetPeriods
- &ModBudgetPeriod
- &AddBudgetPeriod
- &DelBudgetPeriod
-
- &ModBudgetPlan
-
- &GetBudgetsPlanCell
- &AddBudgetPlanValue
- &GetBudgetAuthCats
- &BudgetHasChildren
- &CheckBudgetParent
- &CheckBudgetParentPerm
-
- &HideCols
- &GetCols
- );
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+
+ GetBudget
+ GetBudgetByOrderNumber
+ GetBudgetByCode
+ GetBudgets
+ BudgetsByActivity
+ GetBudgetsReport
+ GetBudgetReport
+ GetBudgetsByActivity
+ GetBudgetHierarchy
+ AddBudget
+ ModBudget
+ DelBudget
+ GetBudgetSpent
+ GetBudgetOrdered
+ GetBudgetName
+ GetPeriodsCount
+ GetBudgetHierarchySpent
+ GetBudgetHierarchyOrdered
+
+ GetBudgetUsers
+ ModBudgetUsers
+ CanUserUseBudget
+ CanUserModifyBudget
+
+ GetBudgetPeriod
+ GetBudgetPeriods
+ ModBudgetPeriod
+ AddBudgetPeriod
+ DelBudgetPeriod
+
+ ModBudgetPlan
+
+ GetBudgetsPlanCell
+ AddBudgetPlanValue
+ GetBudgetAuthCats
+ BudgetHasChildren
+ GetBudgetChildren
+ SetOwnerToFundHierarchy
+ CheckBudgetParent
+ CheckBudgetParentPerm
+
+ HideCols
+ GetCols
+
+ CloneBudgetPeriod
+ CloneBudgetHierarchy
+ MoveOrders
+ );
}
# ----------------------------BUDGETS.PM-----------------------------";
use warnings;
use vars qw(@EXPORT);
-use Carp;
-use Date::Calc qw( Date_to_Days Today);
+use Carp qw( croak );
+use Date::Calc qw( Today );
use C4::Context;
use Koha::Caches;
use Modern::Perl;
-use MARC::Charset qw/marc8_to_utf8/;
+use MARC::Charset;
use Text::Iconv;
-use Unicode::Normalize;
-use Encode qw( decode encode is_utf8 );
+use Unicode::Normalize qw( NFC NFD );
+use Encode;
use Koha::Logger;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
+ @EXPORT_OK = qw(
NormalizeString
IsStringUTF8ish
MarcToUTF8Record
use YAML::XS;
use Encode;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use C4::Context;
-use C4::Stats;
-use C4::Reserves;
-use C4::Biblio;
-use C4::Items;
-use C4::Members;
+use C4::Stats qw( UpdateStats );
+use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest );
+use C4::Biblio qw( UpdateTotalIssues );
+use C4::Items qw( ModItemTransfer ModDateLastSeen CartToShelf );
use C4::Accounts;
use C4::ItemCirculationAlertPreference;
use C4::Message;
-use C4::Log; # logaction
-use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units);
+use C4::Log qw( logaction ); # logaction
+use C4::Overdues;
use C4::RotatingCollections qw(GetCollectionItemBranches);
-use Algorithm::CheckDigits;
+use Algorithm::CheckDigits qw( CheckDigits );
-use Data::Dumper;
+use Data::Dumper qw( Dumper );
use Koha::Account;
use Koha::AuthorisedValues;
use Koha::Biblioitems;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Calendar;
use Koha::Checkouts;
use Koha::Illrequests;
use Koha::Items;
use Koha::Patrons;
-use Koha::Patron::Debarments;
+use Koha::Patron::Debarments qw( DelUniqueDebarment GetDebarments );
use Koha::Database;
use Koha::Libraries;
use Koha::Account::Lines;
use Koha::Checkouts::ReturnClaims;
use Koha::SearchEngine::Indexer;
use Koha::Exceptions::Checkout;
-use Carp;
-use List::MoreUtils qw( uniq any );
+use Carp qw( carp );
+use List::MoreUtils qw( any );
use Scalar::Util qw( looks_like_number );
-use Try::Tiny;
-use Date::Calc qw(
- Today
- Today_and_Now
- Add_Delta_YM
- Add_Delta_DHMS
- Date_to_Days
- Day_of_Week
- Add_Delta_Days
-);
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+use Date::Calc qw( Date_to_Days );
+our (@ISA, @EXPORT_OK);
BEGIN {
- require Exporter;
- @ISA = qw(Exporter);
-
- # FIXME subs that should probably be elsewhere
- push @EXPORT, qw(
- &barcodedecode
- &LostItem
- &ReturnLostItem
- &GetPendingOnSiteCheckouts
- );
-
- # subs to deal with issuing a book
- push @EXPORT, qw(
- &CanBookBeIssued
- &CanBookBeRenewed
- &AddIssue
- &AddRenewal
- &GetRenewCount
- &GetSoonestRenewDate
- &GetLatestAutoRenewDate
- &GetIssuingCharges
- &GetBranchBorrowerCircRule
- &GetBranchItemRule
- &GetOpenIssue
- &CheckIfIssuedToPatron
- &IsItemIssued
- GetTopIssues
- );
-
- # subs to deal with returns
- push @EXPORT, qw(
- &AddReturn
- &MarkIssueReturned
- );
-
- # subs to deal with transfers
- push @EXPORT, qw(
- &transferbook
- &GetTransfers
- &GetTransfersFromTo
- &updateWrongTransfer
- &IsBranchTransferAllowed
- &CreateBranchTransferLimit
- &DeleteBranchTransferLimits
- &TransferSlip
- );
-
- # subs to deal with offline circulation
- push @EXPORT, qw(
- &GetOfflineOperations
- &GetOfflineOperation
- &AddOfflineOperation
- &DeleteOfflineOperation
- &ProcessOfflineOperation
+
+ require Exporter;
+ @ISA = qw(Exporter);
+
+ # FIXME subs that should probably be elsewhere
+ push @EXPORT_OK, qw(
+ barcodedecode
+ LostItem
+ ReturnLostItem
+ GetPendingOnSiteCheckouts
+
+ CanBookBeIssued
+ checkHighHolds
+ CanBookBeRenewed
+ AddIssue
+ GetLoanLength
+ GetHardDueDate
+ AddRenewal
+ GetRenewCount
+ GetSoonestRenewDate
+ GetLatestAutoRenewDate
+ GetIssuingCharges
+ AddIssuingCharge
+ GetBranchBorrowerCircRule
+ GetBranchItemRule
+ GetBiblioIssues
+ GetOpenIssue
+ GetUpcomingDueIssues
+ CheckIfIssuedToPatron
+ IsItemIssued
+ GetAgeRestriction
+ GetTopIssues
+
+ AddReturn
+ MarkIssueReturned
+
+ transferbook
+ TooMany
+ GetTransfers
+ GetTransfersFromTo
+ updateWrongTransfer
+ CalcDateDue
+ CheckValidBarcode
+ IsBranchTransferAllowed
+ CreateBranchTransferLimit
+ DeleteBranchTransferLimits
+ TransferSlip
+
+ GetOfflineOperations
+ GetOfflineOperation
+ AddOfflineOperation
+ DeleteOfflineOperation
+ ProcessOfflineOperation
+ ProcessOfflinePayment
);
+ push @EXPORT_OK, '_GetCircControlBranch'; # This is wrong!
}
=head1 NAME
use strict;
use warnings;
-require Exporter;
use Class::Factory::Util;
use C4::Context;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+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();
=head1 SYNOPSIS
-use C4::ClassSortRoutine;
+use C4::ClassSortRoutine qw( GetClassSortKey );
my $cn_sort = GetClassSortKey('Dewey', $cn_class, $cn_item);
=head1 SYNOPSIS
-use C4::ClassSortRoutine;
+use C4::ClassSortRoutine qw( GetClassSortKey );
my $cn_sort = GetClassSortKey('Generic', $cn_class, $cn_item);
=head1 SYNOPSIS
-use C4::ClassSortRoutine;
+use C4::ClassSortRoutine qw( GetClassSortKey );
my $cn_sort = GetClassSortKey('LCC', $cn_class, $cn_item);
use strict;
use warnings;
-require Exporter;
use C4::Context;
-use C4::ClassSortRoutine;
-
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+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();
use Modern::Perl;
require Exporter;
-use Class::Factory::Util;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
@EXPORT = qw(
- &GetSplitRoutineNames
+ GetSplitRoutineNames
);
=head2 GetSplitRoutineNames
}
};
-use Carp;
+use Carp qw( carp );
use DateTime::TimeZone;
use Encode;
use File::Spec;
-use Module::Load::Conditional qw(can_load);
-use POSIX ();
+use POSIX;
use YAML::XS;
use ZOOM;
BEGIN {
require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(
- &GetContracts
- &GetContract
- &AddContract
- &ModContract
- &DelContract
- );
+ @ISA = qw(Exporter);
+ @EXPORT = qw(
+ GetContracts
+ GetContract
+ AddContract
+ ModContract
+ DelContract
+ );
}
=head1 NAME
use Modern::Perl;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
use C4::Context;
-use C4::Circulation qw(GetOpenIssue);
+use C4::Circulation qw( GetOpenIssue );
use Koha::Courses;
use Koha::Course::Instructors;
use Koha::Course::Items;
use Koha::Course::Reserves;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS @FIELDS);
-
+use vars qw(@FIELDS);
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(
- &GetCourse
- &ModCourse
- &GetCourses
- &DelCourse
+ GetCourse
+ ModCourse
+ GetCourses
+ DelCourse
- &GetCourseInstructors
- &ModCourseInstructors
+ GetCourseInstructors
+ ModCourseInstructors
- &GetCourseItem
- &ModCourseItem
+ GetCourseItem
+ ModCourseItem
- &GetCourseReserve
- &ModCourseReserve
- &GetCourseReserves
- &DelCourseReserve
+ GetCourseReserve
+ ModCourseReserve
+ GetCourseReserves
+ DelCourseReserve
- &SearchCourses
+ SearchCourses
- &GetItemCourseReservesInfo
+ GetItemCourseReservesInfo
);
- %EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
@FIELDS = ( 'itype', 'ccode', 'homebranch', 'holdingbranch', 'location' );
}
get_unit_values
html_table
);
- use C4::Creators::Lib;
+ use C4::Creators::Lib qw(
+ get_all_image_names
+ get_all_layouts
+ get_all_profiles
+ get_all_templates
+ get_barcode_types
+ get_batch_summary
+ get_card_summary
+ get_font_types
+ get_label_summary
+ get_label_types
+ get_output_formats
+ get_table_names
+ get_text_justification_types
+ get_unit_values
+ html_table
+);
use C4::Creators::PDF;
}
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Storable qw(dclone);
+use Storable qw( dclone );
use autouse 'Data::Dumper' => qw(Dumper);
use strict;
use warnings;
-use PDF::Reuse;
+use PDF::Reuse qw(
+ prAdd
+ prAltJpeg
+ prBookmark
+ prCompress
+ prDoc
+ prDocDir
+ prDocForm
+ prEnd
+ prExtract
+ prField
+ prFile
+ prFont
+ prFontSize
+ prForm
+ prGetLogBuffer
+ prGraphState
+ prImage
+ prInit
+ prInitVars
+ prJpeg
+ prJs
+ prLink
+ prLog
+ prLogDir
+ prMbox
+ prPage
+ prSinglePage
+ prStrWidth
+ prText
+ prTTFont
+);
use PDF::Reuse::Barcode;
use File::Temp;
-use List::Util qw/first/;
+use List::Util qw( first );
sub _InitVars {
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Context;
-use C4::Creators::Lib qw(get_unit_values);
+use C4::Creators::Lib qw( get_unit_values );
sub _check_params {
use strict;
use warnings;
-use POSIX qw(ceil);
+use POSIX qw( ceil );
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Context;
use C4::Creators::Profile;
-use C4::Creators::Lib qw(get_unit_values);
+use C4::Creators::Lib qw( get_unit_values );
sub _check_params {
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use XML::Simple;
-use LWP::Simple;
-use HTTP::Request::Common;
+use LWP::Simple qw( get );
use C4::Context;
use Modern::Perl;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
+use vars qw(%EXPORT_TAGS $VERSION);
+our (@ISA, @EXPORT_OK);
BEGIN {
- require Exporter;
- @ISA = qw(Exporter);
+ 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);
+ @EXPORT_OK = qw(availability content_cafe_url image_url link_url http_jacket_link);
}
# These variables are plack safe: they are initialized each time
use warnings;
use Koha;
-use JSON;
+use JSON qw( from_json );
use Koha::Caches;
use HTTP::Request;
use HTTP::Request::Common;
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use XML::Simple;
+use XML::Simple qw( XMLout );
use XML::LibXML;
-use LWP::Simple;
+use LWP::Simple qw( $ua );
use LWP::UserAgent;
-use HTTP::Request::Common;
use strict;
use warnings;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
- &get_syndetics_index
- &get_syndetics_summary
- &get_syndetics_toc
- &get_syndetics_editions
- &get_syndetics_excerpt
- &get_syndetics_reviews
- &get_syndetics_anotes
+ get_syndetics_index
+ get_syndetics_summary
+ get_syndetics_toc
+ get_syndetics_editions
+ get_syndetics_excerpt
+ get_syndetics_reviews
+ get_syndetics_anotes
);
}
use Modern::Perl;
-use MARC::Record;
use MARC::Field;
use C4::Context;
-use Module::Load;
-use Carp;
+use Module::Load qw( load );
=head1 NAME
use strict;
use warnings;
-use MARC::Record;
use MARC::Field;
use 5.010;
use strict;
use warnings;
-use MARC::Record;
use MARC::Field;
use C4::Context;
use C4::Context;
use C4::Search;
-use C4::Items;
-use C4::Circulation;
-use C4::Members;
-use C4::Biblio;
-use Koha::DateUtils;
+use C4::Circulation qw( GetTransfers GetBranchItemRule );
+use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use Koha::Patrons;
use Koha::Libraries;
-use List::Util qw(shuffle);
-use List::MoreUtils qw(any);
-use Data::Dumper;
+use List::Util qw( shuffle );
+use List::MoreUtils qw( any );
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(
- &CreateQueue
- &GetHoldsQueueItems
+ CreateQueue
+ GetHoldsQueueItems
- &TransportCostMatrix
- &UpdateTransportCostMatrix
+ TransportCostMatrix
+ UpdateTransportCostMatrix
+ GetPendingHoldRequestsForBib
);
}
use warnings;
use C4::Members;
-use C4::Items;
-use C4::Circulation;
+use C4::Items qw( get_hostitemnumbers_of );
+use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal );
use C4::Accounts;
-use C4::Biblio;
-use C4::Reserves qw(AddReserve CanBookBeReserved CanItemBeReserved IsAvailableForItemLevelRequest);
+use C4::Biblio qw( GetMarcBiblio );
+use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved );
use C4::Context;
-use C4::AuthoritiesMarc;
-use XML::Simple;
-use HTML::Entities;
+use C4::Auth;
use CGI qw ( -utf8 );
use DateTime;
use C4::Auth;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Biblios;
use Koha::Checkouts;
use warnings;
use C4::Context;
-use C4::Koha;
-use C4::Biblio;
-use C4::Items;
-use C4::Charset;
+use C4::Koha qw( GetNormalizedISBN );
+use C4::Biblio qw(
+ AddBiblio
+ DelBiblio
+ GetMarcFromKohaField
+ GetXmlBiblio
+ ModBiblio
+ TransformMarcToKoha
+);
+use C4::Items qw( AddItemFromMarc ModItemFromMarc );
+use C4::Charset qw( MarcToUTF8Record SetUTF8Flag StripNonXmlChars );
use C4::AuthoritiesMarc;
-use C4::MarcModificationTemplates;
+use C4::MarcModificationTemplates qw( ModifyRecordWithTemplate );
use Koha::Items;
use Koha::Plugins::Handler;
use Koha::Logger;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(
- GetZ3950BatchId
- GetWebserviceBatchId
- GetImportRecordMarc
- GetImportRecordMarcXML
- AddImportBatch
- GetImportBatch
- AddAuthToBatch
- AddBiblioToBatch
- AddItemsToImportBiblio
- ModAuthorityInBatch
- ModBiblioInBatch
-
- BatchStageMarcRecords
- BatchFindDuplicates
- BatchCommitRecords
- BatchRevertRecords
- CleanBatch
- DeleteBatch
-
- GetAllImportBatches
- GetStagedWebserviceBatches
- GetImportBatchRangeDesc
- GetNumberOfNonZ3950ImportBatches
- GetImportBiblios
- GetImportRecordsRange
- GetItemNumbersFromImportBatch
-
- GetImportBatchStatus
- SetImportBatchStatus
- GetImportBatchOverlayAction
- SetImportBatchOverlayAction
- GetImportBatchNoMatchAction
- SetImportBatchNoMatchAction
- GetImportBatchItemAction
- SetImportBatchItemAction
- GetImportBatchMatcher
- SetImportBatchMatcher
- GetImportRecordOverlayStatus
- SetImportRecordOverlayStatus
- GetImportRecordStatus
- SetImportRecordStatus
- SetMatchedBiblionumber
- GetImportRecordMatches
- SetImportRecordMatches
- );
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ GetZ3950BatchId
+ GetWebserviceBatchId
+ GetImportRecordMarc
+ GetImportRecordMarcXML
+ GetRecordFromImportBiblio
+ AddImportBatch
+ GetImportBatch
+ AddAuthToBatch
+ AddBiblioToBatch
+ AddItemsToImportBiblio
+ ModAuthorityInBatch
+ ModBiblioInBatch
+
+ BatchStageMarcRecords
+ BatchFindDuplicates
+ BatchCommitRecords
+ BatchRevertRecords
+ CleanBatch
+ DeleteBatch
+
+ GetAllImportBatches
+ GetStagedWebserviceBatches
+ GetImportBatchRangeDesc
+ GetNumberOfNonZ3950ImportBatches
+ GetImportBiblios
+ GetImportRecordsRange
+ GetItemNumbersFromImportBatch
+
+ GetImportBatchStatus
+ SetImportBatchStatus
+ GetImportBatchOverlayAction
+ SetImportBatchOverlayAction
+ GetImportBatchNoMatchAction
+ SetImportBatchNoMatchAction
+ GetImportBatchItemAction
+ SetImportBatchItemAction
+ GetImportBatchMatcher
+ SetImportBatchMatcher
+ GetImportRecordOverlayStatus
+ SetImportRecordOverlayStatus
+ GetImportRecordStatus
+ SetImportRecordStatus
+ SetMatchedBiblionumber
+ GetImportRecordMatches
+ SetImportRecordMatches
+
+ RecordsFromMARCXMLFile
+ RecordsFromISO2709File
+ RecordsFromMarcPlugin
+ );
}
=head1 NAME
use warnings;
use XML::LibXML;
use XML::LibXML::XPathContext;
-use Digest::MD5 qw();
-use POSIX qw(strftime);
+use Digest::MD5;
+use POSIX qw( strftime );
use Text::CSV_XS;
-use List::MoreUtils qw(indexes);
+use List::MoreUtils qw( indexes );
use C4::Context;
use Koha::Logger;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
- &ExportFramework
- &ImportFramework
- &createODS
+ @EXPORT_OK = qw(
+ ExportFramework
+ ImportFramework
+ createODS
);
}
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Digest::MD5 qw(md5_base64);
use CGI::Session;
use File::Spec;
require Exporter;
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Templates;
-use C4::Koha;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
-@ISA = qw(Exporter);
-@EXPORT = qw(
- &checkauth
- &get_template_and_user
-);
+our (@ISA, @EXPORT_OK);
+BEGIN {
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ checkauth
+ get_template_and_user
+ );
+}
=head1 NAME
use Modern::Perl;
-use Encode qw( encode is_utf8 );
+use Encode;
use DBIx::RunSQL;
use YAML::XS;
use C4::Context;
BEGIN {
require Exporter;
@ISA = qw( Exporter );
- push @EXPORT, qw( primary_key_exists foreign_key_exists index_exists column_exists TableExists);
+ push @EXPORT, qw( primary_key_exists foreign_key_exists index_exists column_exists TableExists marc_framework_sql_list);
};
=head1 NAME
use warnings;
use strict;
-use File::Spec;
-use File::Basename;
+use File::Basename qw( dirname );
use Module::CPANfile;
sub new {
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use File::Compare qw(compare);
-use Cwd qw(cwd);
+use File::Compare qw( compare );
+use Cwd qw( cwd );
use File::Copy;
-use File::Find;
+use File::Find qw( find );
use File::Spec;
use Exporter;
use strict;
use warnings;
use C4::Context;
-use Carp qw(carp croak);
+use Carp qw( carp croak );
use Koha::ItemTypes;
use Koha::Patron::Categories;
use Modern::Perl;
-use vars qw(@ISA @EXPORT);
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
+ @EXPORT_OK = qw(
AddItemFromMarc
AddItemBatchFromMarc
ModItemFromMarc
GetHostItemsInfo
get_hostitemnumbers_of
GetHiddenItemnumbers
+ GetMarcItem
MoveItemFromBiblio
CartToShelf
GetAnalyticsCount
SearchItems
PrepareItemrecordDisplay
+ ToggleNewStatus
);
}
-use Carp;
-use Try::Tiny;
+use Carp qw( croak );
use C4::Context;
use C4::Koha;
-use C4::Biblio;
-use Koha::DateUtils;
+use C4::Biblio qw( GetMarcStructure TransformMarcToKoha );
+use Koha::DateUtils qw( dt_from_string output_pref );
use MARC::Record;
-use C4::ClassSource;
-use C4::Log;
-use List::MoreUtils qw(any);
+use C4::ClassSource qw( GetClassSort GetClassSources GetClassSource );
+use C4::Log qw( logaction );
+use List::MoreUtils qw( any );
use DateTime::Format::MySQL;
-use Data::Dumper; # used as part of logging item record changes, not just for
# debugging; so please don't remove this
use Koha::AuthorisedValues;
-use Koha::DateUtils qw(dt_from_string);
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Database;
use Koha::Biblioitems;
use Business::ISBN;
use Business::ISSN;
use autouse 'Data::cselectall_arrayref' => qw(Dumper);
-use vars qw(@ISA @EXPORT @EXPORT_OK);
+our (@ISA, @EXPORT_OK);
BEGIN {
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(
- &GetItemTypesCategorized
- &getallthemes
- &getFacets
- &getnbpages
- &getitemtypeimagedir
- &getitemtypeimagesrc
- &getitemtypeimagelocation
- &GetAuthorisedValues
- &GetNormalizedUPC
- &GetNormalizedISBN
- &GetNormalizedEAN
- &GetNormalizedOCLCNumber
- &xml_escape
-
- &GetVariationsOfISBN
- &GetVariationsOfISBNs
- &NormalizeISBN
- &GetVariationsOfISSN
- &GetVariationsOfISSNs
- &NormalizeISSN
-
- );
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ GetItemTypesCategorized
+ getallthemes
+ getFacets
+ getImageSets
+ getnbpages
+ getitemtypeimagedir
+ getitemtypeimagesrc
+ getitemtypeimagelocation
+ GetAuthorisedValues
+ GetNormalizedUPC
+ GetNormalizedISBN
+ GetNormalizedEAN
+ GetNormalizedOCLCNumber
+ xml_escape
+
+ GetVariationsOfISBN
+ GetVariationsOfISBNs
+ NormalizeISBN
+ GetVariationsOfISSN
+ GetVariationsOfISSNs
+ NormalizeISSN
+
+ );
}
=head1 NAME
use strict;
use warnings;
-use Text::Wrap;
-use Algorithm::CheckDigits;
+use Text::Wrap qw( wrap );
+use Algorithm::CheckDigits qw( CheckDigits );
use Text::CSV_XS;
-use Data::Dumper;
use Text::Bidi qw( log2vis );
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField );
use Koha::ClassSources;
use Koha::ClassSortRules;
use Koha::ClassSplitRules;
use strict;
use warnings;
-use Carp;
+use Carp qw( carp );
use CGI;
use List::MoreUtils qw( any );
use C4::Context;
use Koha::Caches;
use Koha::Cache::Memory::Lite;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
- &getFrameworkLanguages
- &getTranslatedLanguages
- &getLanguages
- &getAllLanguages
+ @EXPORT_OK = qw(
+ getFrameworkLanguages
+ getTranslatedLanguages
+ getLanguages
+ getAllLanguages
);
- @EXPORT_OK = qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage);
+ push @EXPORT_OK, qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage get_rfc4646_from_iso639);
}
=head1 NAME
use Modern::Perl;
use MIME::Lite;
-use Date::Calc qw( Add_Delta_Days );
-use Encode;
-use Carp;
+use Carp qw( carp croak );
use Template;
-use Module::Load::Conditional qw(can_load);
+use Module::Load::Conditional qw( can_load );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use C4::Members;
-use C4::Log;
+use C4::Log qw( logaction );
use C4::SMS;
use C4::Templates;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::SMS::Providers;
use Koha::Email;
use Koha::Notice::Messages;
use Koha::Notice::Templates;
-use Koha::DateUtils qw( format_sqldatetime dt_from_string );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use Koha::SMTP::Servers;
use Koha::Subscriptions;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
- &EnqueueLetter &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &SendAlerts &GetPrintMessages &GetMessageTransportTypes
+ @EXPORT_OK = qw(
+ GetLetters
+ GetLettersAvailableForALibrary
+ GetLetterTemplates
+ DelLetter
+ GetPreparedLetter
+ GetWrappedLetter
+ SendAlerts
+ GetPrintMessages
+ GetQueuedMessages
+ GetMessage
+ GetMessageTransportTypes
+
+ EnqueueLetter
+ SendQueuedMessages
+ ResendMessage
);
}
use strict;
use warnings;
-use Carp;
use C4::Context;
use base qw(Class::Accessor);
use strict;
use warnings;
-use Carp;
use MARC::Field;
use C4::Heading;
use strict;
use warnings;
-use Carp;
use C4::Heading;
use C4::Linker::Default; # Use Default for flipping
use strict;
use warnings;
-use Carp;
use C4::Heading;
use C4::Linker::Default; # Use Default for flipping
use JSON qw( to_json );
use C4::Context;
-use Koha::DateUtils;
use Koha::Logger;
use vars qw(@ISA @EXPORT);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(&logaction &cronlogaction);
+ @EXPORT = qw(logaction cronlogaction);
}
=head1 NAME
use DateTime;
use C4::Context;
-use Koha::SimpleMARC;
+use Koha::SimpleMARC qw(
+ add_field
+ copy_and_replace_field
+ copy_field
+ delete_field
+ field_equals
+ field_exists
+ move_field
+ update_field
+);
use Koha::MoreUtils;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use vars qw(@ISA @EXPORT);
BEGIN {
- @ISA = qw(Exporter);
+ @ISA = qw(Exporter);
@EXPORT = qw(
- &GetModificationTemplates
- &AddModificationTemplate
- &DelModificationTemplate
+ GetModificationTemplates
+ AddModificationTemplate
+ DelModificationTemplate
- &GetModificationTemplateAction
- &GetModificationTemplateActions
+ GetModificationTemplateAction
+ GetModificationTemplateActions
- &AddModificationTemplateAction
- &ModModificationTemplateAction
- &DelModificationTemplateAction
- &MoveModificationTemplateAction
+ AddModificationTemplateAction
+ ModModificationTemplateAction
+ DelModificationTemplateAction
+ MoveModificationTemplateAction
- &ModifyRecordsWithTemplate
- &ModifyRecordWithTemplate
+ ModifyRecordsWithTemplate
+ ModifyRecordWithTemplate
);
}
use Modern::Perl;
-use MARC::Record;
use Koha::SearchEngine;
use Koha::SearchEngine::Search;
use Koha::SearchEngine::QueryBuilder;
-use Koha::Util::Normalize qw/legacy_default remove_spaces upper_case lower_case ISBN/;
+use Koha::Util::Normalize qw(
+ ISBN
+ legacy_default
+ lower_case
+ remove_spaces
+ upper_case
+);
=head1 NAME
use Modern::Perl;
use C4::Context;
-use String::Random qw( random_string );
use Scalar::Util qw( looks_like_number );
-use Date::Calc qw/Today check_date Date_to_Days/;
-use List::MoreUtils qw( uniq );
-use JSON qw(to_json);
-use C4::Log; # logaction
-use C4::Overdues;
+use Date::Calc qw( check_date Date_to_Days );
+use C4::Overdues qw( checkoverdues );
use C4::Reserves;
use C4::Accounts;
-use C4::Biblio;
-use C4::Letters;
+use C4::Letters qw( GetPreparedLetter );
use DateTime;
use Koha::Database;
-use Koha::DateUtils;
-use Koha::AuthUtils qw(hash_password);
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Database;
use Koha::Holds;
-use Koha::List::Patron;
use Koha::News;
use Koha::Patrons;
use Koha::Patron::Categories;
-our (@ISA,@EXPORT,@EXPORT_OK);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- #Get data
- push @EXPORT, qw(
+ @EXPORT_OK = qw(
+ GetMemberDetails
+ GetMember
- &GetAllIssues
+ GetAllIssues
- &GetBorrowersToExpunge
+ GetBorrowersToExpunge
- &IssueSlip
- );
+ IssueSlip
+
+ checkuserpassword
+ get_cardnumber_length
+ checkcardnumber
- #Check data
- push @EXPORT, qw(
- &checkuserpassword
- &checkcardnumber
+ DeleteUnverifiedOpacRegistrations
+ DeleteExpiredOpacRegistrations
);
}
use C4::Context;
-our ( @ISA, @EXPORT, @EXPORT_OK );
+our ( @ISA, @EXPORT_OK );
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- push @EXPORT, qw(
- &GetTotalIssuesTodayByBorrower
- &GetTotalIssuesReturnedTodayByBorrower
- &GetPrecedentStateByBorrower
+ @EXPORT_OK = qw(
+ get_fields
+ GetTotalIssuesTodayByBorrower
+ GetTotalIssuesReturnedTodayByBorrower
+ GetPrecedentStateByBorrower
);
}
use strict;
use warnings;
use C4::Context;
-use C4::Letters;
-use YAML::XS;
+use C4::Letters qw( GetPreparedLetter EnqueueLetter );
+use YAML::XS qw( Dump );
use Encode;
-use Carp;
+use Carp qw( carp );
=head1 NAME
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
- &GetOAISets &GetOAISet &GetOAISetBySpec &ModOAISet &DelOAISet &AddOAISet
- &GetOAISetsMappings &GetOAISetMappings &ModOAISetMappings
- &GetOAISetsBiblio &ModOAISetsBiblios &AddOAISetsBiblios
- &CalcOAISetsBiblio &UpdateOAISetsBiblio &DelOAISetsBiblio
+ GetOAISets GetOAISet GetOAISetBySpec ModOAISet DelOAISet AddOAISet
+ GetOAISetsMappings GetOAISetMappings ModOAISetMappings
+ GetOAISetsBiblio ModOAISetsBiblios AddOAISetsBiblios
+ CalcOAISetsBiblio UpdateOAISetsBiblio DelOAISetsBiblio
);
}
use URI::Escape;
use Scalar::Util qw( looks_like_number );
-use C4::Auth qw(get_template_and_user);
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Templates;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
- @ISA = qw(Exporter);
- @EXPORT_OK = qw(&is_ajax ajax_fail); # More stuff should go here instead
- %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)]
- );
- push @EXPORT, qw(
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ is_ajax
+ ajax_fail
setlanguagecookie getlanguagecookie pagination_bar parametrized_url
+ output_html_with_http_headers output_ajax_with_http_headers output_with_http_headers
+ output_and_exit_if_error output_and_exit output_error
);
- 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
- );
-
}
=head1 NAME
use strict;
use warnings;
-use JSON;
+use JSON qw( to_json );
sub new {
my $class = shift;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Date::Calc qw/Today Date_to_Days/;
-use Date::Manip qw/UnixDate/;
+use Date::Calc qw( Today );
+use Date::Manip qw( UnixDate );
use List::MoreUtils qw( uniq );
-use POSIX qw( floor ceil );
-use Locale::Currency::Format 1.28;
-use Carp;
+use POSIX qw( ceil floor );
+use Locale::Currency::Format 1.28 qw( currency_format FMT_SYMBOL );
+use Carp qw( carp );
-use C4::Circulation;
use C4::Context;
use C4::Accounts;
-use C4::Log; # logaction
use Koha::Logger;
-use Koha::DateUtils;
use Koha::Account::Lines;
use Koha::Account::Offsets;
use Koha::Libraries;
-use vars qw(@ISA @EXPORT);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
# subs to rename (and maybe merge some...)
- push @EXPORT, qw(
- &CalcFine
- &Getoverdues
- &checkoverdues
- &UpdateFine
- &GetFine
- &get_chargeable_units
- &GetOverduesForBranch
- &GetOverdueMessageTransportTypes
- &parse_overdues_letter
- );
-
- # subs to move to Circulation.pm
- push @EXPORT, qw(
- &GetIssuesIteminfo
+ @EXPORT_OK = qw(
+ CalcFine
+ Getoverdues
+ checkoverdues
+ UpdateFine
+ GetFine
+ GetBranchcodesWithOverdueRules
+ get_chargeable_units
+ GetOverduesForBranch
+ GetOverdueMessageTransportTypes
+ parse_overdues_letter
+ GetIssuesIteminfo
);
}
);
use C4::Patroncards::Batch;
use C4::Patroncards::Layout;
- use C4::Patroncards::Lib;
+ use C4::Patroncards::Lib qw(
+ box
+ get_borrower_attributes
+ get_image
+ leading
+ put_image
+ rm_image
+ text_alignment
+ unpack_UTF8
+);
use C4::Patroncards::Patroncard;
use C4::Patroncards::Profile;
use C4::Patroncards::Template;
use warnings;
use autouse 'Data::Dumper' => qw(Dumper);
-use Text::Wrap qw(wrap);
#use Font::TTFMetrics;
-use C4::Creators::Lib qw(get_font_types get_unit_values);
+use C4::Creators::Lib qw( get_unit_values );
use C4::Creators::PDF qw(StrWidth);
-use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
+use C4::Patroncards::Lib qw(
+ box
+ get_borrower_attributes
+ leading
+ text_alignment
+);
=head1 NAME
use MARC::Record; # marc2marcxml, marcxml2marc, changeEncoding
use MARC::File::XML; # marc2marcxml, marcxml2marc, changeEncoding
use Biblio::EndnoteStyle;
-use Unicode::Normalize; # _entity_encode
-use C4::Biblio; #marc2bibtex
+use Unicode::Normalize qw( NFC ); # _entity_encode
+use C4::Biblio qw( GetFrameworkCode GetMarcBiblio );
use C4::Koha; #marc2csv
-use C4::XSLT ();
+use C4::XSLT;
use YAML::XS; #marcrecords2csv
use Encode;
use Template;
use Text::CSV::Encoded; #marc2csv
use Koha::Items;
-use Koha::SimpleMARC qw(read_field);
+use Koha::SimpleMARC qw( read_field );
use Koha::XSLT::Base;
use Koha::CsvProfiles;
use Koha::AuthorisedValues;
-use Carp;
+use Carp qw( carp croak );
use vars qw(@ISA @EXPORT);
# only export API methods
@EXPORT = qw(
- &marc2endnote
- &marc2marc
- &marc2marcxml
- &marcxml2marc
- &marc2dcxml
- &marc2modsxml
- &marc2madsxml
- &marc2bibtex
- &marc2csv
- &changeEncoding
+ marc2endnote
+ marc2marc
+ marc2marcxml
+ marcxml2marc
+ marc2dcxml
+ marc2modsxml
+ marc2madsxml
+ marc2bibtex
+ marc2csv
+ marcrecord2csv
+ changeEncoding
);
=head1 NAME
use Modern::Perl;
use CGI qw ( -utf8 );
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use C4::Context;
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
+ @EXPORT_OK = qw(
GetDelimiterChoices
);
}
use Modern::Perl;
use CGI qw ( -utf8 );
-use Carp;
+use Carp qw( carp croak );
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::DateUtils;
+use C4::Koha qw( GetAuthorisedValues );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use Koha::Reports;
use C4::Output;
-use C4::Log;
+use C4::Log qw( logaction );
use Koha::Notice::Templates;
-use C4::Letters;
use Koha::Logger;
use Koha::AuthorisedValues;
use Koha::Patron::Categories;
use Koha::SharedContent;
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
+ @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
- delete_definition delete_report format_results get_sql
+ delete_definition delete_report store_results format_results get_sql get_results
nb_rows update_sql
+ strip_limit
+ convert_sql
GetReservedAuthorisedValues
GetParametersFromSQL
IsAuthorisedValueValid
ValidateSQLParameters
nb_rows update_sql
+ EmailReport
);
}
use Modern::Perl;
use C4::Accounts;
-use C4::Biblio;
-use C4::Circulation;
+use C4::Circulation qw( CheckIfIssuedToPatron GetAgeRestriction GetBranchItemRule );
use C4::Context;
-use C4::Items;
+use C4::Items qw( CartToShelf get_hostitemnumbers_of );
use C4::Letters;
-use C4::Log;
+use C4::Log qw( logaction );
use C4::Members::Messaging;
use C4::Members;
use Koha::Account::Lines;
use Koha::Calendar;
use Koha::CirculationRules;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Hold;
use Koha::Holds;
use Koha::ItemTypes;
use Koha::Patrons;
use Koha::Plugins;
-use Carp;
-use Data::Dumper;
-use List::MoreUtils qw( firstidx any );
-
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use Data::Dumper qw( Dumper );
+use List::MoreUtils qw( any );
=head1 NAME
=cut
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
- &AddReserve
+ @EXPORT_OK = qw(
+ AddReserve
+
+ GetReserveStatus
+
+ GetOtherReserves
+ ChargeReserveFee
+ GetReserveFee
+
+ ModReserveFill
+ ModReserveAffect
+ ModReserve
+ ModReserveStatus
+ ModReserveCancelAll
+ ModReserveMinusPriority
+ MoveReserve
- &GetReserveStatus
+ CheckReserves
+ CanBookBeReserved
+ CanItemBeReserved
+ CanReserveBeCanceledFromOpac
+ CancelExpiredReserves
- &GetOtherReserves
+ AutoUnsuspendReserves
- &ModReserveFill
- &ModReserveAffect
- &ModReserve
- &ModReserveStatus
- &ModReserveCancelAll
- &ModReserveMinusPriority
- &MoveReserve
+ IsAvailableForItemLevelRequest
+ ItemsAnyAvailableAndNotRestricted
- &CheckReserves
- &CanBookBeReserved
- &CanItemBeReserved
- &CanReserveBeCanceledFromOpac
- &CancelExpiredReserves
+ AlterPriority
+ ToggleLowestPriority
- &AutoUnsuspendReserves
+ ReserveSlip
+ ToggleSuspend
+ SuspendAll
- &IsAvailableForItemLevelRequest
- ItemsAnyAvailableAndNotRestricted
+ GetReservesControlBranch
- &AlterPriority
- &ToggleLowestPriority
+ CalculatePriority
- &ReserveSlip
- &ToggleSuspend
- &SuspendAll
+ IsItemOnHoldAndFound
- &GetReservesControlBranch
+ GetMaxPatronHoldsForRecord
- IsItemOnHoldAndFound
+ MergeHolds
- GetMaxPatronHoldsForRecord
+ RevertWaitingStatus
);
- @EXPORT_OK = qw( MergeHolds );
}
=head2 AddReserve
use Modern::Perl;
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
use YAML::XS;
use Encode;
use vars qw(@ISA @EXPORT);
-use Koha::SimpleMARC qw(read_field);
+use Koha::SimpleMARC qw( read_field );
@ISA = qw(Exporter);
# only export API methods
@EXPORT = qw(
- &marc2ris
+ marc2ris
);
our $marcprint = 0; # Debug flag;
use Modern::Perl;
use C4::Context;
-use C4::Circulation;
use C4::Reserves qw(CheckReserves);
use Koha::Database;
-use DBI;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use vars qw(@ISA @EXPORT);
TransferCollection
GetCollectionItemBranches
+ isItemInAnyCollection
+ isItemInThisCollection
);
}
use warnings;
use strict;
-use C4::SIP::Sip qw(siplog);
+use C4::SIP::Sip qw( siplog );
use Data::Dumper;
use C4::SIP::ILS::Item;
use C4::SIP::Sip qw(add_field);
use C4::Biblio;
-use C4::Circulation;
+use C4::Circulation qw( barcodedecode );
use C4::Context;
use C4::Items;
use C4::Members;
-use C4::Reserves;
+use C4::Reserves qw( ModReserveFill );
use Koha::Biblios;
use Koha::Checkouts::ReturnClaims;
use Koha::Checkouts;
use C4::SIP::ILS::Transaction;
-use C4::Circulation;
+use C4::Circulation qw( AddReturn LostItem );
use C4::Items qw( ModItemTransfer );
-use C4::Reserves qw( ModReserveAffect );
+use C4::Reserves qw( ModReserve ModReserveAffect );
use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use strict;
use POSIX qw(strftime);
-use C4::SIP::Sip qw(siplog);
+use C4::SIP::Sip qw( siplog );
use Data::Dumper;
use CGI qw ( -utf8 );
use C4::SIP::ILS::Transaction;
use C4::Context;
-use C4::Circulation;
+use C4::Circulation qw( AddIssue GetIssuingCharges CanBookBeIssued );
use C4::Members;
use C4::Reserves qw(ModReserveFill);
use Koha::DateUtils;
use C4::SIP::ILS::Transaction;
-use C4::Reserves; # AddReserve
+use C4::Reserves qw( CalculatePriority AddReserve ModReserve );
use Koha::Holds;
use Koha::Patrons;
-use parent qw(C4::SIP::ILS::Transaction);
-
use Koha::Items;
+use parent qw(C4::SIP::ILS::Transaction);
+
my %fields = (
expiration_date => 0,
pickup_location => undef,
use warnings;
use strict;
-use C4::Circulation;
+use C4::Circulation qw( CanBookBeRenewed GetIssuingCharges AddIssue );
use Koha::Patrons;
use Koha::DateUtils;
use strict;
use warnings;
-use C4::SIP::Sip qw(siplog);
+use C4::SIP::Sip qw( siplog );
use C4::SIP::ILS::Item;
use C4::SIP::Logger qw(set_logger);
use Koha::Caches;
-
use Koha::Logger;
+
use C4::SIP::Trapper;
tie *STDERR, "C4::SIP::Trapper";
use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG);
use C4::SIP::Sip::Checksum qw(checksum);
-use C4::SIP::Logger qw(get_logger);
+use C4::SIP::Logger qw( get_logger );
use base qw(Exporter);
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 =
- qw(get_jobs get_at_jobs get_at_job add_at_job remove_at_job);
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(get_jobs get_at_jobs get_at_job add_at_job remove_at_job);
}
=head1 NAME
use strict;
use warnings;
-use Carp;
+use Carp qw( croak );
use HTML::Scrubber;
use C4::Context;
# 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 C4::Biblio qw( TransformMarcToKoha GetMarcFromKohaField GetFrameworkCode GetAuthorisedValueDesc GetBiblioData );
+use C4::Koha qw( getFacets GetVariationsOfISBN GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN getitemtypeimagelocation );
use Koha::DateUtils;
use Koha::Libraries;
use Lingua::Stem;
use XML::Simple;
-use C4::XSLT;
-use C4::Reserves; # GetReserveStatus
-use C4::Charset;
-use Koha::Logger;
+use C4::XSLT qw( XSLTParse4Display );
+use C4::Reserves qw( GetReserveStatus );
+use C4::Charset qw( SetUTF8Flag );
use Koha::AuthorisedValues;
use Koha::ItemTypes;
use Koha::Libraries;
+use Koha::Logger;
use Koha::Patrons;
use Koha::RecordProcessor;
use URI::Escape;
use Business::ISBN;
use MARC::Record;
use MARC::Field;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+
+our (@ISA, @EXPORT_OK);
+BEGIN {
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ FindDuplicate
+ SimpleSearch
+ searchResults
+ getRecords
+ buildQuery
+ GetDistinctValues
+ enabled_staff_search_views
+ new_record_from_zebra
+ z3950_search_args
+ getIndexes
+ );
+}
=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 C4::Auth qw( get_session );
use C4::Context;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
-use JSON qw( encode_json decode_json );
-use URI::Escape;
-use Encode;
+use JSON qw( decode_json encode_json );
+use URI::Escape qw( uri_escape uri_unescape );
sub add {
my ($params) = @_;
use LWP::UserAgent;
use URI;
use URI::QueryParam;
-use XML::Simple;
+use XML::Simple qw( XMLin );
=head1 NAME
use Modern::Perl;
-use C4::Auth qw(haspermission);
+use C4::Auth qw( haspermission );
use C4::Context;
use DateTime;
-use Date::Calc qw(:all);
-use POSIX qw(strftime);
-use C4::Biblio;
-use C4::Log; # logaction
-use C4::Serials::Frequency;
+use Date::Calc qw(
+ Add_Delta_Days
+ Add_Delta_YM
+ check_date
+ Delta_Days
+ N_Delta_YMD
+ Today
+);
+use POSIX qw( strftime );
+use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblio );
+use C4::Log qw( logaction ); # logaction
+use C4::Serials::Frequency qw( GetSubscriptionFrequency );
use C4::Serials::Numberpattern;
use Koha::AdditionalFieldValues;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Serial;
use Koha::Subscriptions;
use Koha::Subscription::Histories;
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 = qw(
- &NewSubscription &ModSubscription &DelSubscription
- &GetSubscription &CountSubscriptionFromBiblionumber &GetSubscriptionsFromBiblionumber
- &SearchSubscriptions
- &GetFullSubscriptionsFromBiblionumber &GetFullSubscription &ModSubscriptionHistory
- &HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire
- &GetSubscriptionHistoryFromSubscriptionId
-
- &GetNextSeq &GetSeq &NewIssue &GetSerials
- &GetLatestSerials &ModSerialStatus &GetNextDate &GetSerials2
- &GetSubscriptionLength &ReNewSubscription &GetLateOrMissingIssues
- &GetSerialInformation &AddItem2Serial
- &PrepareSerialsData &GetNextExpected &ModNextExpected
- &GetPreviousSerialid
-
- &GetSuppliersWithLateIssues
- &getroutinglist &delroutingmember &addroutingmember
- &reorder_members
- &check_routing &updateClaim
- &CountIssues
+ @EXPORT_OK = qw(
+ NewSubscription ModSubscription DelSubscription
+ GetSubscription CountSubscriptionFromBiblionumber GetSubscriptionsFromBiblionumber
+ SearchSubscriptions
+ GetFullSubscriptionsFromBiblionumber GetFullSubscription ModSubscriptionHistory
+ HasSubscriptionStrictlyExpired HasSubscriptionExpired GetExpirationDate abouttoexpire
+ GetFictiveIssueNumber
+ GetSubscriptionHistoryFromSubscriptionId
+
+ GetNextSeq GetSeq NewIssue GetSerials
+ GetLatestSerials ModSerialStatus GetNextDate
+ CloseSubscription ReopenSubscription
+ subscriptionCurrentlyOnOrder
+ can_claim_subscription can_edit_subscription can_show_subscription
+ GetSerials2
+ GetSubscriptionLength ReNewSubscription GetLateOrMissingIssues
+ GetSerialInformation AddItem2Serial
+ PrepareSerialsData GetNextExpected ModNextExpected
+ GetSubscriptionIrregularities
+ GetPreviousSerialid
+
+ GetSuppliersWithLateIssues
+ getroutinglist delroutingmember addroutingmember
+ reorder_members
+ check_routing updateClaim
+ CountIssues
HasItems
- &subscriptionCurrentlyOnOrder
+
+ findSerialsByStatus
);
}
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
- &GetSubscriptionFrequencies
- &GetSubscriptionFrequency
- &AddSubscriptionFrequency
- &ModSubscriptionFrequency
- &DelSubscriptionFrequency
+ GetSubscriptionFrequencies
+ GetSubscriptionFrequency
+ AddSubscriptionFrequency
+ ModSubscriptionFrequency
+ DelSubscriptionFrequency
- &GetSubscriptionsWithFrequency
+ GetSubscriptionsWithFrequency
);
}
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
- &GetSubscriptionNumberpatterns
- &GetSubscriptionNumberpattern
- &GetSubscriptionNumberpatternByName
- &AddSubscriptionNumberpattern
- &ModSubscriptionNumberpattern
- &DelSubscriptionNumberpattern
-
- &GetSubscriptionsWithNumberpattern
+ GetSubscriptionNumberpatterns
+ GetSubscriptionNumberpattern
+ GetSubscriptionNumberpatternByName
+ AddSubscriptionNumberpattern
+ ModSubscriptionNumberpattern
+ DelSubscriptionNumberpattern
+
+ GetSubscriptionsWithNumberpattern
);
}
use CGI qw ( -utf8 );
use C4::Auth qw( check_api_auth );
-use C4::Output qw( :ajax );
+use C4::Output qw( output_with_http_headers );
use C4::Output::JSONStream;
use JSON;
use strict;
use warnings;
-use C4::Biblio;
+use C4::Biblio qw( GetAuthorisedValueDesc GetMarcBiblio );
use C4::Context;
-use C4::Koha;
+use C4::Koha qw( GetNormalizedUPC GetNormalizedOCLCNumber GetNormalizedISBN GetNormalizedEAN );
use Koha::Biblios;
use Koha::Libraries;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(
- &GetNearbyItems
- );
+ require Exporter;
+ @ISA = qw(Exporter);
@EXPORT_OK = qw(
+ GetNearbyItems
);
}
use C4::Context;
use Business::ISBN;
-use C4::Koha;
+use C4::Koha qw( GetNormalizedISBN );
=head1 NAME
use Modern::Perl;
require Exporter;
-use Carp;
+use Carp qw( croak );
use C4::Context;
use Koha::DateUtils qw( dt_from_string );
use vars qw(@ISA @EXPORT);
BEGIN {
- @ISA = qw(Exporter);
- @EXPORT = qw(
- &UpdateStats
- );
+ @ISA = qw(Exporter);
+ @EXPORT = qw(
+ UpdateStats
+ );
}
use C4::Output;
use C4::Letters;
use C4::Biblio qw( GetMarcFromKohaField );
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Suggestions;
-use List::MoreUtils qw(any);
use base qw(Exporter);
our @EXPORT = qw(
use strict;
use warnings;
-use Carp;
+use Carp qw( carp );
use Exporter;
use C4::Context;
-use Module::Load::Conditional qw/check_install/;
+use Module::Load::Conditional qw( check_install );
#use Data::Dumper;
use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created);
use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM tags_all\n";
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
- @ISA = qw(Exporter);
+ @ISA = qw(Exporter);
@EXPORT_OK = qw(
- &get_tag &get_tags &get_tag_rows
- &add_tags &add_tag
- &delete_tag_row_by_id
- &remove_tag
- &delete_tag_rows_by_ids
- &get_approval_rows
- &blacklist
- &whitelist
- &is_approved
- &approval_counts
- &get_count_by_tag_status
- &get_filters
+ get_tag get_tags get_tag_rows
+ add_tags
+ add_tag
+ add_tag_approval
+ add_tag_index
+ delete_tag_row_by_id
+ remove_tag
+ delete_tag_rows_by_ids
+ get_approval_rows
+ blacklist
+ whitelist
+ is_approved
+ approval_counts
+ get_count_by_tag_status
+ get_filters
stratify_tags
);
- # %EXPORT_TAGS = ();
my $ext_dict = C4::Context->preference('TagsExternalDictionary');
if ( $ext_dict && ! check_install( module => 'Lingua::Ispell' ) ) {
warn "Ignoring TagsExternalDictionary, because Lingua::Ispell is not installed.";
use strict;
use warnings;
-use Carp;
+use Carp qw( carp );
use CGI qw ( -utf8 );
-use List::MoreUtils qw/ any uniq /;
+use List::MoreUtils qw( uniq );
# Copyright 2009 Chris Cormack and The Koha Dev Team
#
use base qw(Class::Accessor);
use Template;
-use Template::Constants qw( :debug );
-use C4::Languages qw(getTranslatedLanguages get_bidi regex_lang_subtags language_get_description accept_language );
+use C4::Languages qw( get_bidi getTranslatedLanguages regex_lang_subtags );
use C4::Context;
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 Modern::Perl;
use C4::Context;
-use POSIX qw(strftime);
+use POSIX qw( strftime );
use LWP::UserAgent;
-use JSON;
+use JSON qw( decode_json encode_json );
use Koha::Libraries;
use Modern::Perl;
use C4::Context;
-use C4::Utils::DataTables;
-use Koha::DateUtils;
+use C4::Utils::DataTables qw( dt_build_orderby );
+use Koha::DateUtils qw( dt_from_string output_pref );
sub search {
my ( $params ) = @_;
use Modern::Perl;
use C4::Context;
-use C4::Utils::DataTables;
+use C4::Utils::DataTables qw( dt_build_orderby );
use Koha::Virtualshelves;
sub search {
use XML::Simple;
#use LWP::Simple;
use C4::Biblio;
-use C4::Koha;
-use C4::Search;
-use C4::External::Syndetics qw(get_syndetics_editions);
+use C4::Koha qw( GetNormalizedISBN );
+use C4::Search qw( new_record_from_zebra );
+use C4::External::Syndetics qw( get_syndetics_editions );
use LWP::UserAgent;
-use HTTP::Request::Common;
use Koha::Biblios;
use Koha::SearchEngine;
use Koha::SearchEngine::Search;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+our (@ISA, @EXPORT_OK);
BEGIN {
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT_OK = qw(
- &get_xisbns
- );
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ get_xisbns
+ );
}
=head1 NAME
use Modern::Perl;
use C4::Context;
-use C4::Items;
-use C4::Koha;
-use C4::Biblio;
-use C4::Circulation;
-use C4::Reserves;
+use C4::Koha qw( xml_escape );
+use C4::Biblio qw( GetAuthorisedValueDesc GetFrameworkCode GetMarcStructure );
use Koha::AuthorisedValues;
use Koha::ItemTypes;
use Koha::XSLT::Base;
use Koha::Libraries;
-use Encode;
-use vars qw(@ISA @EXPORT);
my $engine; #XSLT Handler object
my %authval_per_framework;
# Cache for tagfield-tagsubfield to decode per framework.
# Should be preferably be placed in Koha-core...
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
- &XSLTParse4Display
+ @EXPORT_OK = qw(
+ transformMARCXML4XSLT
+ getAuthorisedValues4MARCSubfields
+ buildKohaItemsNamespace
+ XSLTParse4Display
);
$engine=Koha::XSLT::Base->new( { do_not_return_source => 1 } );
}
use Modern::Perl;
use Carp;
-use Data::Dumper;
-use List::MoreUtils qw( uniq );
-use Try::Tiny;
+use Data::Dumper qw( Dumper );
+use Try::Tiny qw( catch try );
use C4::Circulation qw( ReturnLostItem CanBookBeRenewed AddRenewal );
use C4::Letters;
use Koha::Account::Lines;
use Koha::Account::Offsets;
use Koha::Account::DebitTypes;
-use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions;
use Koha::Exceptions::Account;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use List::Util qw/any/;
use Koha::Database;
use Koha::Exceptions;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use List::Util qw/any/;
use Koha::Database;
use Koha::Account::CreditType;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use List::Util qw/any/;
use Koha::Database;
use Koha::Exceptions;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use List::Util qw/any/;
use Koha::Database;
use Koha::Account::DebitType;
use Modern::Perl;
-use Carp;
-use Data::Dumper;
+use Data::Dumper qw( Dumper );
-use C4::Log qw(logaction);
-use C4::Overdues qw(GetFine);
+use C4::Log qw( logaction );
+use C4::Overdues qw( UpdateFine );
use Koha::Account::CreditType;
use Koha::Account::DebitType;
use Koha::Account::Offsets;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions::Account;
use Koha::Items;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Account::Line;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Account::Lines;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Acquisition::Orders;
use Koha::Exceptions::Acquisition::Basket;
use Koha::Patrons;
-use C4::Log qw(logaction);
+use C4::Log qw( logaction );
use base qw( Koha::Object Koha::Object::Mixin::AdditionalFields );
use base qw( Koha::Object );
-use Carp qw( croak );
sub _type {
return 'Aqcontact';
use Modern::Perl;
-use Carp;
use base qw( Koha::Objects );
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Acquisition::Invoices;
use Modern::Perl;
use Koha::Acquisition::Invoice::Adjustment;
-use Carp;
use Koha::Database;
use Modern::Perl;
use Carp qw( croak );
-use Try::Tiny;
-use C4::Biblio qw(DelBiblio);
+use C4::Biblio qw( DelBiblio );
use Koha::Acquisition::Baskets;
use Koha::Acquisition::Funds;
use Koha::Acquisition::Invoices;
use Koha::Acquisition::Order::Claims;
use Koha::Database;
-use Koha::DateUtils qw( dt_from_string output_pref );
+use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions::Object;
use Koha::Biblios;
use Koha::Holds;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Exceptions;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::ApiKey;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Patrons;
use Koha::Biblios;
use Koha::Items;
use Koha::Libraries;
-use Koha::DateUtils qw(dt_from_string);
+use Koha::DateUtils qw( dt_from_string );
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);
-use Encode qw( encode is_utf8 );
-use Fcntl qw/O_RDONLY/; # O_RDONLY is used in generate_salt
-use List::MoreUtils qw/ any /;
+use Crypt::Eksblowfish::Bcrypt qw( bcrypt en_base64 );
+use Encode;
+use Fcntl qw( O_RDONLY ); # O_RDONLY is used in generate_salt
+use List::MoreUtils qw( any );
use String::Random qw( random_string );
use Koha::Exceptions::Password;
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 is_password_valid);
+};
=head1 NAME
Koha::AuthUtils - utility routines for authentication
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Exceptions;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Exceptions;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
use MARC::File::XML;
-use MARC::Record;
use C4::Context;
use Koha::Authority::MergeRequest;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use parent qw(Koha::Objects);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use JSON qw( encode_json decode_json );
+use JSON qw( decode_json encode_json );
use Carp qw( croak );
use Net::Stomp;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use C4::Context;
use Koha::DateUtils qw( dt_from_string );
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use JSON qw( encode_json decode_json );
+use JSON qw( decode_json encode_json );
-use C4::MarcModificationTemplates;
+use C4::MarcModificationTemplates qw( ModifyRecordWithTemplate );
use C4::AuthoritiesMarc;
use Koha::BackgroundJobs;
use Koha::DateUtils qw( dt_from_string );
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use JSON qw( encode_json decode_json );
+use JSON qw( decode_json encode_json );
use Koha::BackgroundJobs;
use Koha::DateUtils qw( dt_from_string );
use Modern::Perl;
-use Carp;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
use URI;
-use URI::Escape;
+use URI::Escape qw( uri_escape_utf8 );
-use C4::Koha;
-use C4::Biblio qw();
+use C4::Koha qw( GetNormalizedISBN );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
=cut
-use C4::Biblio; # EmbedItemsInMarcBiblio
+use C4::Biblio;
use Koha::MetadataIterator;
use Koha::Database;
use Modern::Perl;
-use Data::Dumper; # TODO remove
use base qw(Koha::MetadataRecord);
=cut
-use C4::Biblio; # :( - for EmbedItemsInMarcBiblio
+use C4::Biblio;
-use Carp;
+use Carp qw( confess );
use MARC::Record;
use MARC::File::XML;
use Modern::Perl;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use strict;
use warnings;
-use Carp;
-use Module::Load::Conditional qw(can_load);
+use Carp qw( croak );
+use Module::Load::Conditional qw( can_load );
use Sereal::Encoder;
use Sereal::Decoder;
use strict;
use warnings;
-use Carp;
use base qw(Class::Accessor);
use Modern::Perl;
-use Carp;
+use Carp qw( croak );
use DateTime;
use DateTime::Duration;
use C4::Context;
use Modern::Perl;
-use Carp;
use Koha::Account::Lines;
use Koha::Account::Offsets;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Cash::Register::Cashup;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp qw( carp confess );
+use Carp;
use Koha::Calendar;
use Koha::DateUtils qw( dt_from_string );
use Modern::Perl;
-use Carp;
use DateTime;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
-use C4::Circulation qw(MarkIssueReturned);
+use C4::Circulation qw( LostItem MarkIssueReturned );
use Koha::Checkouts::ReturnClaims;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use Koha::Libraries;
use Modern::Perl;
-use Carp;
use C4::Context;
-use C4::Circulation;
+use C4::Circulation qw( AddReturn );
use Koha::Checkout;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use base qw(Koha::Objects);
use Modern::Perl;
-use Carp;
use Koha::Database;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Carp qw(croak);
+use Carp qw( croak );
use Koha::Exceptions;
use Koha::CirculationRule;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use JSON qw(to_json from_json);
+use JSON qw( from_json to_json );
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Clubs;
use Koha::Patrons;
-use Koha::DateUtils qw(dt_from_string);
+use Koha::DateUtils qw( dt_from_string );
use DateTime;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Clubs;
use Koha::Patrons;
-use List::Util 'shuffle';
+use List::Util qw( shuffle );
=head1 NAME
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Modern::Perl;
-use XML::LibXML ':libxml';
+use XML::LibXML qw( XML_ELEMENT_NODE XML_TEXT_NODE );
# Default config file, if none is specified
use constant CONFIG_FNAME => "/etc/koha/koha-conf.xml";
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Course::Instructor;
use Modern::Perl;
-use Carp;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Course::Item;
use Modern::Perl;
-use Carp;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Course::Reserve;
use Modern::Perl;
-use Carp;
use Koha::Course;
use Modern::Perl;
-use Carp;
use GD;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
=cut
use Modern::Perl;
-use Carp;
use C4::Context;
use base qw(Class::Accessor);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use warnings;
use base qw(Exporter);
use utf8;
-use Carp;
+use Carp qw( carp );
use English qw{ -no_match_vars };
use Business::ISBN;
use DateTime;
use C4::Context;
use Koha::Database;
-use Koha::DateUtils;
-use C4::Acquisition qw( NewBasket ModOrder);
+use Koha::DateUtils qw( dt_from_string );
+use C4::Acquisition qw( ModOrder NewBasket );
use C4::Suggestions qw( ModSuggestion );
-use C4::Biblio qw( AddBiblio TransformKohaToMarc GetMarcBiblio GetFrameworkCode GetMarcFromKohaField );
+use C4::Biblio qw(
+ AddBiblio
+ GetFrameworkCode
+ GetMarcFromKohaField
+ TransformKohaToMarc
+);
use Koha::Edifact::Order;
use Koha::Edifact;
-use C4::Log qw(logaction);
+use C4::Log qw( logaction );
use Log::Log4perl;
-use Text::Unidecode;
+use Text::Unidecode qw( unidecode );
use Koha::Plugins::Handler;
use Koha::Acquisition::Baskets;
use Koha::Acquisition::Booksellers;
our $VERSION = 1.1;
-our @EXPORT_OK =
- qw( process_quote process_invoice process_ordrsp create_edi_order get_edifact_ean );
+
+our (@ISA, @EXPORT_OK);
+BEGIN {
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ process_quote
+ process_invoice
+ process_ordrsp
+ create_edi_order
+ get_edifact_ean
+ );
+};
sub create_edi_order {
my $parameters = shift;
use strict;
use warnings;
-use File::Slurp;
-use Carp;
-use Encode qw( from_to );
+use File::Slurp qw( read_file );
+use Carp qw( carp croak );
use Koha::Edifact::Segment;
use Koha::Edifact::Message;
use MARC::Record;
use MARC::Field;
-use Carp;
+use Carp qw( carp );
sub new {
my ( $class, $data_array_ref ) = @_;
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use Carp;
+use Carp qw( carp );
use DateTime;
-use Readonly;
-use Business::ISBN;
+use Readonly qw( Readonly );
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use C4::Budgets qw( GetBudget );
use Koha::Acquisition::Orders;
use warnings;
use utf8;
use DateTime;
-use Carp;
+use Carp qw( carp );
use English qw{ -no_match_vars };
use Net::FTP;
use Net::SFTP::Foreign;
-use File::Slurp;
-use File::Copy;
-use File::Basename qw( fileparse );
+use File::Slurp qw( read_file );
+use File::Copy qw( copy move );
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Encode qw( from_to );
sub new {
use Email::Valid;
use Email::MessageID;
-use List::Util qw(pairs);
+use List::Util qw( pairs );
use Koha::Exceptions;
use MARC::File::USMARC;
use C4::AuthoritiesMarc;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcFromKohaField );
use C4::Record;
use Koha::CsvProfiles;
use Koha::Logger;
-use List::Util qw(all any);
+use List::Util qw( all any );
sub _get_record_for_export {
my ($params) = @_;
package Koha::ExternalContent;
use Modern::Perl;
-use Carp;
+use Carp qw( croak );
use base qw(Class::Accessor);
use Koha;
package Koha::ExternalContent::OverDrive;
use Modern::Perl;
-use Carp;
+use Carp qw( croak );
use base qw(Koha::ExternalContent);
use WebService::ILS::OverDrive::Patron;
package Koha::ExternalContent::RecordedBooks;
use Modern::Perl;
-use Carp;
+use Carp qw( croak );
use base qw(Koha::ExternalContent);
use WebService::ILS::RecordedBooks::PartnerPatron;
use Modern::Perl;
-use C4::Biblio qw/GetMarcFromKohaField/;
+use C4::Biblio qw( GetMarcFromKohaField );
use Koha::Items;
use base qw(Koha::RecordProcessor::Base);
use strict;
use warnings;
-use Carp;
use Koha::MetadataRecord::Authority;
-use C4::Biblio qw/GetMarcFromKohaField/;
+use C4::Biblio qw( GetMarcFromKohaField );
use base qw(Koha::RecordProcessor::Base);
our $NAME = 'EmbedSeeFromHeadings';
use strict;
use warnings;
-use Carp;
use base qw(Koha::RecordProcessor::Base);
our $NAME = 'Null';
=cut
use Modern::Perl;
-use Carp;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcStructure );
use base qw(Koha::RecordProcessor::Base);
our $NAME = 'MARC_ViewPolicy';
my $result = $current_record;
my $hide = _should_hide_on_interface();
- my $marcsubfieldstructure = GetMarcStructure( 0, $frameworkcode, { unsafe => 1 } );
+ my $marcsubfieldstructure = C4::Biblio::GetMarcStructure( 0, $frameworkcode, { unsafe => 1 } );
#if ($marcsubfieldstructure->{'000'}->{'@'}->{hidden}>0) {
# LDR field is excluded from $current_record->fields().
use Modern::Perl;
-use Carp;
-use Data::Dumper qw(Dumper);
-use List::MoreUtils qw(any);
+use Data::Dumper qw( Dumper );
+use List::MoreUtils qw( any );
use C4::Context qw(preference);
-use C4::Letters;
-use C4::Log;
+use C4::Letters qw( GetPreparedLetter EnqueueLetter );
+use C4::Log qw( logaction );
use Koha::AuthorisedValues;
-use Koha::DateUtils qw(dt_from_string output_pref);
+use Koha::DateUtils qw( dt_from_string );
use Koha::Patrons;
use Koha::Biblios;
use Koha::Items;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use CGI;
use C4::Languages;
use C4::Context;
use Encode;
use List::Util qw( first );
-use Locale::Messages qw(:locale_h LC_MESSAGES);
-use POSIX qw( setlocale );
+use Locale::Messages qw(
+ bindtextdomain
+ gettext
+ LC_MESSAGES
+ ngettext
+ npgettext
+ pgettext
+ textdomain
+);
+use POSIX;
use Koha::Cache::Memory::Lite;
use parent 'Exporter';
use Modern::Perl;
-use Clone 'clone';
-use File::Basename qw( basename );
-use Encode qw( encode );
-use Try::Tiny;
+use Clone qw( clone );
+use Try::Tiny qw( catch try );
use DateTime;
use C4::Letters;
-use C4::Members;
use Koha::Database;
-use Koha::DateUtils qw/ dt_from_string /;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions::Ill;
use Koha::Illcomments;
use Koha::Illrequestattributes;
use Koha::ItemTypes;
use Koha::Libraries;
-use C4::Circulation qw( CanBookBeIssued AddIssue );
+use C4::Circulation qw( CanBookBeIssued AddIssue );
use base qw(Koha::Object);
use Modern::Perl;
-use File::Basename qw/basename/;
+use File::Basename qw( basename );
use C4::Context;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use JSON qw( to_json from_json );
-use Time::Local;
+use JSON qw( from_json to_json );
-use C4::Koha;
+use C4::Koha qw( GetAuthorisedValues );
use C4::Context;
use C4::Templates;
use C4::Log qw( logaction );
use Modern::Perl;
-use Carp;
-use List::MoreUtils qw(any);
-use Data::Dumper;
-use Try::Tiny;
+use List::MoreUtils qw( any );
+use Data::Dumper qw( Dumper );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use C4::Context;
-use C4::Circulation;
+use C4::Circulation qw( GetBranchItemRule );
use C4::Reserves;
-use C4::ClassSource; # FIXME We would like to avoid that
+use C4::ClassSource qw( GetClassSort );
use C4::Log qw( logaction );
use Koha::Checkouts;
package Koha::Item::Search::Field;
use Modern::Perl;
-use base qw( Exporter );
-
-our @EXPORT_OK = qw(
- AddItemSearchField
- ModItemSearchField
- DelItemSearchField
- GetItemSearchField
- GetItemSearchFields
-);
+
+our (@ISA, @EXPORT_OK);
+BEGIN {
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ AddItemSearchField
+ ModItemSearchField
+ DelItemSearchField
+ GetItemSearchField
+ GetItemSearchFields
+ );
+};
use C4::Context;
use Modern::Perl;
-use Carp;
-use C4::Items;
+use C4::Items qw( CartToShelf ModDateLastSeen );
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions::Item::Transfer;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
-use C4::Koha;
+use C4::Koha qw( getitemtypeimagelocation );
use C4::Languages;
use Koha::Database;
use Koha::CirculationRules;
use Modern::Perl;
-use Carp;
use C4::Languages;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use C4::Context;
use Modern::Perl;
-use Carp;
use C4::Context;
use Modern::Perl;
-use Carp;
use Koha::Database;
-use Koha::DateUtils qw(dt_from_string);
+use Koha::DateUtils qw( dt_from_string );
use Koha::Libraries;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
=cut
use Modern::Perl;
-use Carp;
use C4::Context;
use base qw(Class::Accessor);
use Modern::Perl;
-use Carp;
+use Carp qw( carp croak );
use Koha::Database;
use Modern::Perl;
use Log::Log4perl;
-use Carp;
use C4::Context;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use base qw(Koha::Objects);
use Koha::MessageAttribute;
use base 'Class::Accessor';
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
-use C4::Search qw(); # Purely for new_record_from_zebra
+use C4::Search qw( new_record_from_zebra );
use DBIx::Class::ResultClass::HashRefInflator;
use IO::Select;
use Koha::Caches;
use Koha::Database;
use Koha::MetadataRecord;
use MARC::File::XML;
-use Storable qw( store_fd fd_retrieve );
+use Storable qw( fd_retrieve store_fd );
use Time::HiRes qw( clock_gettime CLOCK_MONOTONIC );
use UUID;
use ZOOM;
use Modern::Perl;
-use Carp;
+use Carp qw( carp );
use C4::Biblio;
use Koha::Util::MARC;
use strict;
use warnings;
-use Carp;
use C4::Context;
use MARC::Record;
use MARC::File::XML;
-use C4::Charset;
+use C4::Charset qw( StripNonXmlChars );
use Koha::Util::MARC;
use base qw(Koha::MetadataRecord);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Exceptions;
use Modern::Perl;
-use Carp;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Libraries;
use Koha::Patrons;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
use HTTP::OAI;
-use HTTP::OAI::SAXHandler qw/ :SAX /;
+use HTTP::OAI::SAXHandler qw( g_data_element );
sub new {
use Modern::Perl;
use HTTP::OAI;
-use C4::Biblio;
-use C4::OAI::Sets;
+use C4::OAI::Sets qw( GetOAISetsBiblio );
use MARC::File::XML;
use base ("HTTP::OAI::GetRecord");
=cut
use Modern::Perl;
-use C4::Biblio;
use HTTP::OAI;
use Koha::OAI::Server::ResumptionToken;
use Koha::OAI::Server::Record;
use Koha::OAI::Server::DeletedRecord;
-use C4::OAI::Sets;
+use C4::OAI::Sets qw( GetOAISetBySpec GetOAISetsBiblio );
use MARC::File::XML;
sub GetRecords {
use HTTP::OAI;
use Koha::OAI::Server::ResumptionToken;
use Koha::OAI::Server::Description;
-use C4::OAI::Sets;
+use C4::OAI::Sets qw( GetOAISets );
use base ("HTTP::OAI::ListSets");
use Modern::Perl;
use HTTP::OAI;
-use HTTP::OAI::Repository qw/:validate/;
+use HTTP::OAI::Repository qw( validate_request );
use base ("HTTP::OAI::Repository");
use YAML::XS;
use CGI qw/:standard -oldstyle_urls/;
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio );
use Koha::XSLT::Base;
=head1 NAME
use Modern::Perl;
-use Carp;
+use Carp qw( croak );
use Mojo::JSON;
use Scalar::Util qw( blessed looks_like_number );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use Koha::Database;
use Koha::Exceptions::Object;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Object::Message;
=head1 NAME
use Koha::Exceptions;
use Koha::Libraries;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Modern::Perl;
-use Carp;
+use Carp qw( carp );
use List::MoreUtils qw( none );
use Class::Inspector;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use List::MoreUtils qw( any uniq );
use JSON qw( to_json );
-use Unicode::Normalize;
+use Unicode::Normalize qw( NFKD );
use C4::Context;
-use C4::Log;
+use C4::Log qw( logaction );
use Koha::Account;
use Koha::ArticleRequests;
-use C4::Letters qw( GetPreparedLetter EnqueueLetter );
+use C4::Letters;
use Koha::AuthUtils;
use Koha::Checkouts;
use Koha::Club::Enrollments;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions::Password;
use Koha::Holds;
use Koha::Old::Checkouts;
use Modern::Perl;
-use Carp;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
use C4::Members::Messaging;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use base qw(Koha::Object Koha::Object::Limit::Library);
use Modern::Perl;
use CGI;
-use File::Temp qw( :POSIX );
-use Carp;
+use File::Temp qw( tmpnam );
+use Carp qw( carp );
use C4::Templates qw ( gettemplate );
-use C4::Letters qw ( GetPreparedLetter );
+use C4::Letters qw( GetPreparedLetter );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use C4::Context;
-use C4::Log qw( logaction );
+use C4::Log;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Exceptions::Patron::Modification;
use Koha::Patron::Attributes;
use Koha::Patron::Modifications;
-use JSON;
-use List::MoreUtils qw( uniq any );
-use Try::Tiny;
+use JSON qw( from_json );
+use List::MoreUtils qw( any uniq );
+use Try::Tiny qw( catch try );
use base qw(Koha::Object);
use Koha::Patron::Attribute;
use Koha::Patron::Modification;
-use JSON;
-use List::Util qw /any none/;
+use JSON qw( from_json );
+use List::Util qw( none );
use base qw(Koha::Objects);
use Modern::Perl;
use C4::Context;
use C4::Letters;
-use Crypt::Eksblowfish::Bcrypt qw(en_base64);
-use Koha::DateUtils;
-
-use vars qw(@ISA @EXPORT);
+use Crypt::Eksblowfish::Bcrypt qw( en_base64 );
+use Koha::DateUtils qw( dt_from_string );
+our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
- push @EXPORT, qw(
+ @EXPORT_OK = qw(
&ValidateBorrowernumber
&SendPasswordRecoveryEmail
&GetValidLinkInfo
use Modern::Perl;
-use Carp;
use List::MoreUtils qw( any );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use Koha::Database;
use Koha::Exceptions::Patron::Relationship;
use Modern::Perl;
-use Carp;
use List::MoreUtils qw( uniq );
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::ArticleRequests;
use Koha::ArticleRequest::Status;
use Koha::Patron;
use Koha::Exceptions::Patron;
use Koha::Patron::Categories;
-use Date::Calc qw( Today Add_Delta_YMD );
use base qw(Koha::Objects);
use Modern::Perl;
use Moo;
-use namespace::clean;
-use Carp;
+use Carp qw( carp );
use Text::CSV;
use Encode qw( decode_utf8 );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
-use C4::Members;
+use C4::Members qw( checkcardnumber );
use Koha::Libraries;
use Koha::Patrons;
use Koha::Patron::Categories;
-use Koha::Patron::Debarments;
-use Koha::DateUtils;
+use Koha::Patron::Debarments qw( AddDebarment GetDebarments );
+use Koha::DateUtils qw( dt_from_string output_pref );
=head1 NAME
use Modern::Perl;
-use Array::Utils qw(array_minus);
+use Array::Utils qw( array_minus );
use Class::Inspector;
-use List::MoreUtils qw(any);
-use Module::Load::Conditional qw(can_load);
-use Module::Load qw(load);
+use List::MoreUtils qw( any );
+use Module::Load::Conditional qw( can_load );
+use Module::Load;
use Module::Pluggable search_path => ['Koha::Plugin'], except => qr/::Edifact(|::Line|::Message|::Order|::Segment|::Transport)$/;
+
use C4::Context;
use C4::Output;
use Koha::Plugins::Methods;
use Modern::Perl;
-use Module::Pluggable require => 1;
-use Cwd qw(abs_path);
-use List::Util qw(max);
+use Cwd qw( abs_path );
+use List::Util qw( max );
use base qw{Module::Bundled::Files};
use C4::Context;
-use C4::Output qw(output_with_http_headers output_html_with_http_headers);
+use C4::Output qw( output_with_http_headers );
=head1 NAME
use Modern::Perl;
-use Array::Utils qw(array_minus);
-use File::Path qw(remove_tree);
+use Array::Utils qw( array_minus );
+use File::Path qw( remove_tree );
-use Module::Load qw(load);
+use Module::Load qw( load );
use C4::Context;
use Koha::Plugins::Methods;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
-use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);
+use Crypt::Eksblowfish::Bcrypt qw( bcrypt );
use Koha::Database;
use Koha::Exceptions::Config;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::PseudonymizedTransaction;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Quotes;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Carp;
use Koha::Database;
-use Koha::DateUtils qw(dt_from_string);
+use Koha::DateUtils qw( dt_from_string );
use Koha::Quote;
use base qw(Koha::Objects);
use Koha::Plugins;
use Koha::Logger;
-use Clone qw(clone);
-use Try::Tiny;
+use Clone qw( clone );
+use Try::Tiny qw( catch try );
=head1 NAME
use Modern::Perl;
use Mojo::Base 'Mojolicious::Plugin';
-use List::MoreUtils qw(any);
-use Scalar::Util qw(reftype);
-use JSON qw(decode_json);
+use List::MoreUtils qw( any );
+use Scalar::Util qw( reftype );
+use JSON qw( decode_json );
use Koha::Exceptions;
use Koha::Logger;
use JSON::Validator::OpenAPI::Mojolicious;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Koha::Acquisition::Funds;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Mojo::Base 'Mojolicious::Controller';
use Koha::Acquisition::Orders;
-use Koha::DateUtils;
-use Clone 'clone';
-use JSON qw(decode_json);
+use Clone qw( clone );
use Scalar::Util qw( blessed );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Koha::Acquisition::Booksellers;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Mojo::Base 'Mojolicious::Controller';
use Koha::AdvancedEditorMacros;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 Name
use Koha::Exceptions::Authentication;
use Koha::Exceptions::Authorization;
-use MIME::Base64;
+use MIME::Base64 qw( decode_base64 );
use Module::Load::Conditional;
use Scalar::Util qw( blessed );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Koha::Biblios;
use Koha::RecordProcessor;
-use C4::Biblio qw(DelBiblio);
+use C4::Biblio qw( DelBiblio );
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
use MARC::Record::MiJ;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 API
use Mojo::Base 'Mojolicious::Controller';
-use Scalar::Util qw(blessed);
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use Koha::Cash::Registers;
use C4::Auth qw( haspermission );
use C4::Context;
-use C4::Circulation;
+use C4::Circulation qw( AddRenewal );
use Koha::Checkouts;
use Koha::Old::Checkouts;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Koha::CirculationRules;
-use Try::Tiny;
=head1 API
use Koha::Cities;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 API
use Mojo::Base 'Mojolicious::Controller';
-use C4::Biblio;
use C4::Reserves;
use Koha::Items;
use Koha::Holds;
use Koha::Clubs;
use Koha::Club::Hold;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
-use Scalar::Util qw(blessed);
-use Try::Tiny;
-use List::Util 'shuffle';
+use Scalar::Util qw( blessed );
+use Try::Tiny qw( catch try );
=head1 API
use Koha::SMTP::Servers;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 API
use Mojo::Base 'Mojolicious::Controller';
-use Mojo::JSON qw(decode_json);
+use Mojo::JSON;
-use C4::Biblio;
use C4::Reserves;
use Koha::Items;
use Koha::Patrons;
use Koha::Holds;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
-use List::MoreUtils qw(any);
-use Try::Tiny;
+use List::MoreUtils qw( any );
+use Try::Tiny qw( catch try );
=head1 API
use Koha::ImportBatchProfiles;
use Koha::ImportBatchProfile;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Koha::Items;
-use List::MoreUtils qw(any);
-use Try::Tiny;
+use List::MoreUtils qw( any );
+use Try::Tiny qw( catch try );
=head1 NAME
use Scalar::Util qw( blessed );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use C4::Context;
use Koha::OAuth;
-use MIME::Base64;
+use MIME::Base64 qw( decode_base64 );
use Mojo::Base 'Mojolicious::Controller';
use Mojo::Base 'Mojolicious::Controller';
use Koha::Database;
-use Koha::DateUtils;
use Koha::Patrons;
-use Scalar::Util qw(blessed);
-use Try::Tiny;
+use Scalar::Util qw( blessed );
+use Try::Tiny qw( catch try );
=head1 NAME
use Koha::Patrons;
-use Scalar::Util qw(blessed);
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Koha::Patron::Attributes;
use Koha::Patrons;
-use Scalar::Util qw(blessed);
-use Try::Tiny;
+use Scalar::Util qw( blessed );
+use Try::Tiny qw( catch try );
=head1 NAME
use Koha::Patrons;
-use Scalar::Util qw(blessed);
-use Try::Tiny;
+use Scalar::Util qw( blessed );
+use Try::Tiny qw( catch try );
=head1 NAME
use Koha::Quotes;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 API
use Mojo::Base 'Mojolicious::Controller';
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use Koha::Checkouts::ReturnClaims;
use Koha::Checkouts;
-use Koha::DateUtils qw( dt_from_string output_pref );
=head1 NAME
use Mojo::Base 'Mojolicious::Controller';
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 API
use Scalar::Util qw( blessed );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
=head1 NAME
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Module::Load::Conditional qw(can_load);
+use Module::Load::Conditional qw( can_load );
use Module::Pluggable::Object;
use base qw(Class::Accessor);
use Modern::Perl;
-use Carp;
use Koha::Database;
-use JSON;
use Koha::Reports;
use Koha::DateUtils qw( dt_from_string output_pref );
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Patrons;
use Modern::Perl;
-use Carp;
use Koha::SMS::Provider;
use base 'DBIx::Class::Schema::Loader::DBI::mysql';
use mro 'c3';
-use Scalar::Util 'blessed';
+use Scalar::Util qw( blessed );
# This is being upstreamed, but for now lets make sure whatever version of DBIx::Class::Schema::Loader you are using,
# we will catch MariaDB current_timestamp() and convert it to \"current_timestamp" correctly.
=cut
-use File::Basename;
-use Fcntl qw(:flock);
+use File::Basename qw( fileparse );
+use Fcntl qw( LOCK_EX LOCK_NB );
use C4::Context;
use Koha::Exceptions;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Readonly;
+use Readonly qw( Readonly );
=head1 NAME
use Koha::SearchMarcMaps;
use Koha::Caches;
use C4::Heading;
-use C4::AuthoritiesMarc;
+use C4::AuthoritiesMarc qw( GuessAuthTypeCode );
-use Carp;
-use Clone qw(clone);
-use JSON;
+use Carp qw( carp croak );
+use Clone qw( clone );
use Modern::Perl;
-use Readonly;
+use Readonly qw( Readonly );
use Search::Elasticsearch;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use YAML::XS;
-use List::Util qw( sum0 reduce all );
+use List::Util qw( sum0 );
use MARC::File::XML;
-use MIME::Base64;
-use Encode qw(encode);
+use MIME::Base64 qw( encode_base64 );
+use Encode qw( encode );
use Business::ISBN;
-use Scalar::Util qw(looks_like_number);
+use Scalar::Util qw( looks_like_number );
__PACKAGE__->mk_ro_accessors(qw( index index_name ));
__PACKAGE__->mk_accessors(qw( sort_fields ));
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use Carp;
+use Carp qw( carp croak );
use Modern::Perl;
-use Try::Tiny;
-use List::Util qw(any);
+use Try::Tiny qw( catch try );
+use List::Util qw( any );
use base qw(Koha::SearchEngine::Elasticsearch);
-use Data::Dumper;
use Koha::Exceptions;
use Koha::Exceptions::Elasticsearch;
=cut
use base qw(Koha::SearchEngine::Elasticsearch);
-use Carp;
use JSON;
-use List::MoreUtils qw/ each_array /;
+use List::MoreUtils qw( each_array );
use Modern::Perl;
-use URI::Escape;
+use URI::Escape qw( uri_escape_utf8 );
use C4::Context;
use Koha::Exceptions;
use Koha::Exceptions::Elasticsearch;
use MARC::Record;
use MARC::File::XML;
-use Data::Dumper; #TODO remove
-use Carp qw(cluck);
-use MIME::Base64;
+use MIME::Base64 qw( decode_base64 );
Koha::SearchEngine::Elasticsearch::Search->mk_accessors(qw( store ));
use Modern::Perl;
use C4::Context;
-use C4::Biblio qw//;
sub new {
my $engine = C4::Context->preference("SearchEngine") // 'Zebra';
use C4::Context;
use Modern::Perl;
-use Carp;
+use Carp qw( croak );
sub new {
my $engine = C4::Context->preference("SearchEngine");
use Modern::Perl;
use C4::Context;
-use C4::Biblio qw//;
-use POSIX qw(ceil floor);
+use C4::Biblio;
+use POSIX qw( ceil );
sub new {
my $engine = C4::Context->preference("SearchEngine") // 'Zebra';
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Biblio qw(ModZebra); # FIXME This is terrible, we should move the indexation code outside of C4::Biblio
+use C4::Biblio qw( ModZebra ); # FIXME This is terrible, we should move the indexation code outside of C4::Biblio
use base qw(Class::Accessor);
=head1 NAME
use base qw(Class::Accessor);
-use C4::Search; # :(
+use C4::Search qw( getRecords ); # :(
use C4::AuthoritiesMarc;
use Koha::SearchEngine::Search;
sub search_compat {
shift; # get rid of $self
- return getRecords(@_);
+ return C4::Search::getRecords(@_);
}
=head2 simple_search_compat
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use JSON;
+use JSON qw( from_json to_json );
use HTTP::Request;
use LWP::UserAgent;
use Modern::Perl;
-#use MARC::Record;
-
-require Exporter;
-
-our @ISA = qw(Exporter);
-our %EXPORT_TAGS = ( 'all' => [ qw(
-
-) ] );
-
-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
-
-our @EXPORT = qw(
- read_field
- add_field
- update_field
- copy_field
- copy_and_replace_field
- move_field
- delete_field
- field_exists
- field_equals
-);
-
+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
+ );
+}
=head1 NAME
use Modern::Perl;
use XML::Writer;
use IO::File;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
my $MAX = 50000;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Items;
use Modern::Perl;
-use Carp;
use Koha::Database;
use DateTime;
use DateTime::Duration;
use Koha::Database;
-use Koha::DateUtils qw/dt_from_string/;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Item::Transfer;
use Koha::Item;
use Koha::StockRotationStage;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Biblios;
use Koha::Subscriptions;
use Koha::Subscription::Frequencies;
use Koha::Subscription::Numberpatterns;
-use JSON;
use base qw(Koha::Object Koha::Object::Mixin::AdditionalFields);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Subscriptions;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Subscription::Routinglist;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
-use Koha::DateUtils qw(dt_from_string);
+use Koha::DateUtils qw( dt_from_string );
use Koha::Patrons;
use base qw(Koha::Object);
use strict;
use warnings;
-use Module::Load::Conditional qw(can_load);
+use Module::Load::Conditional qw( can_load );
use Module::Pluggable::Object;
use base qw(Class::Accessor);
=cut
use Modern::Perl;
-use Carp;
use base qw(Koha::SuggestionEngine::Base);
=cut
use Modern::Perl;
-use Carp;
use C4::Templates qw(gettemplate); # This is necessary for translatability
use base qw(Koha::SuggestionEngine::Base);
use Modern::Perl;
use LWP::UserAgent;
-use XML::Simple qw(XMLin);
+use XML::Simple qw( XMLin );
use C4::Context;
use base qw(Koha::SuggestionEngine::Base);
use strict;
use warnings;
-use Carp;
use base qw(Koha::SuggestionEngine::Base);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Tag;
use Modern::Perl;
-use Carp;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Tags::Approval;
use Modern::Perl;
-use Carp;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Tags::Index;
use Template::Plugin;
use base qw( Template::Plugin );
-use File::Basename;
+use File::Basename qw( fileparse );
use File::Spec;
use C4::Context;
use Koha;
use Modern::Perl;
-use Encode qw( encode );
-use JSON;
+use JSON qw( encode_json );
use base qw( Template::Plugin );
use Template::Plugin;
use base qw( Template::Plugin );
-use C4::Koha;
+use C4::Koha qw( GetAuthorisedValues );
use Koha::AuthorisedValues;
sub GetByCode {
use Template::Plugin;
use base qw( Template::Plugin );
-use List::Util qw(any);
+use List::Util qw( any );
use Koha::Patron::Categories;
sub all {
use base qw( Template::Plugin );
use C4::Context;
-use Koha::I18N;
+use Koha::I18N qw( __ __n __np __npx __nx __p __px __x __xn );
=head1 NAME
use Template::Plugin::Filter;
use base qw( Template::Plugin::Filter );
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use C4::Context;
our $DYNAMIC = 1;
use base qw( Template::Plugin );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use Koha::Plugins;
use Template::Plugin::Filter;
use base qw( Template::Plugin::Filter );
-use JSON qw( to_json );
+use JSON;
our $DYNAMIC = 1;
sub json {
=cut
use Modern::Perl;
-use Bytes::Random::Secure ();
-use String::Random ();
-use WWW::CSRF ();
-use Digest::MD5 qw(md5_base64);
-use Encode qw( encode );
+use Bytes::Random::Secure;
+use String::Random;
+use WWW::CSRF;
+use Digest::MD5 qw( md5_base64 );
+use Encode;
use Koha::Exceptions::Token;
use base qw(Class::Accessor);
use constant HMAC_SHA1_LENGTH => 20;
use Modern::Perl;
-use C4::Koha;
+use C4::Koha qw( GetAuthorisedValues );
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::UploadedFile;
use parent qw(Koha::Objects);
use CGI; # no utf8 flag, since it may interfere with binary uploads
use Digest::MD5;
use Encode;
-use File::Spec;
use IO::File;
use Time::HiRes;
use Modern::Perl;
-our ( @ISA, @EXPORT, @EXPORT_OK );
+our ( @ISA, @EXPORT_OK );
BEGIN {
require Exporter;
@ISA = qw( Exporter );
- @EXPORT = qw( );
@EXPORT_OK = qw( wrapper date_entered );
}
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use MARC::Record;
=head1 NAME
use Modern::Perl;
-use Encode qw( decode );
-use File::Temp;
use File::Basename qw( dirname );
-use OpenOffice::OODoc;
+use OpenOffice::OODoc qw( odfDocument odfWorkingDirectory );
use parent qw( Exporter );
use Modern::Perl;
-use Carp;
-use C4::Auth;
+use C4::Auth qw( haspermission );
use Koha::Patrons;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Koha::Exceptions;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use DateTime;
use DateTime::Duration;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions;
use base qw(Koha::Object);
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
=cut
use Modern::Perl;
-use Data::Dumper qw/Dumper/;
use XML::LibXSLT;
use C4::Context;
use C4::Circulation qw( GetTransfers );
use C4::Context;
use C4::Reserves qw( GetReserveStatus );
-use C4::Search qw();
+use C4::Search qw( new_record_from_zebra );
use Koha::Items;
use Koha::Logger;
use Modern::Perl;
-use Carp;
use Koha::Database;
use Modern::Perl;
-use Carp;
use Koha::Database;
#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::Number::Price;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
BEGIN {
# 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::Number::Price;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
+our (@ISA, @EXPORT_OK);
BEGIN {
- use Exporter ();
- our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
- @ISA = qw(Exporter);
- @EXPORT = qw(printpdf);
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(printpdf);
}
#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 List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
use Modern::Perl;
use utf8;
-use C4::Acquisition;
+use C4::Acquisition qw( get_rounded_price );
use Koha::Number::Price;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
BEGIN {
use vars qw(@ISA @EXPORT);
use MIME::Base64;
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
use Modern::Perl;
use utf8;
use CGI qw ( -utf8 );
use DateTime::TimeZone;
-use File::Spec;
-use File::Slurp;
-use List::MoreUtils qw/ any /;
-use LWP::Simple;
-use Module::Load::Conditional qw(can_load);
-use XML::Simple;
-use Config;
+use File::Slurp qw( read_file );
+use List::MoreUtils qw( any );
+use Module::Load::Conditional qw( can_load );
+use Config qw( %Config );
use Search::Elasticsearch;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use YAML::XS;
use Encode;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user get_user_subpermissions );
use C4::Context;
use C4::Installer::PerlModules;
use Koha;
-use Koha::DateUtils qw(dt_from_string output_pref);
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Acquisition::Currencies;
use Koha::BackgroundJob;
use Koha::BiblioFrameworks;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition;
-use C4::Budgets;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
use C4::Members;
use Koha::Acquisition::Currencies;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Members;
-use Koha::Patron::Categories;
+use Koha::Patron::Categories ;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use JSON qw ( to_json );
-use C4::Auth; # get_template_and_user
-use C4::Acquisition; # ModOrder
-use C4::Suggestions; # ModStatus
-use C4::Biblio; # AddBiblio TransformKohaToMarc
-use C4::Budgets;
-use C4::Items;
-use C4::Output;
-use C4::Log qw(logaction);
-use Koha::Acquisition::Currencies;
+use JSON qw( to_json );
+use C4::Auth qw( get_template_and_user );
+use C4::Acquisition qw( FillWithDefaultValues populate_order_with_prices ModOrder ModOrderUsers );
+use C4::Suggestions qw( ModSuggestion );
+use C4::Biblio qw(
+ AddBiblio
+ GetMarcFromKohaField
+ TransformHtmlToXml
+ TransformKohaToMarc
+);
+use C4::Budgets qw( GetBudget GetBudgetSpent GetBudgetOrdered );
+use C4::Items qw( AddItemFromMarc );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Log qw( logaction );
+use Koha::Acquisition::Currencies qw( get_active );
use Koha::Acquisition::Orders;
use Koha::Acquisition::Baskets;
use C4::Barcodes;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Carp;
use YAML::XS;
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils;
use Encode;
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::ImportBatch;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches sub SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
use C4::Matcher;
-use C4::Search qw/FindDuplicate/;
-use C4::Acquisition;
-use C4::Biblio;
-use C4::Items;
-use C4::Koha;
-use C4::Budgets;
-use C4::Acquisition;
+use C4::Search qw( FindDuplicate );
+use C4::Acquisition qw( populate_order_with_prices );
+use C4::Biblio qw(
+ AddBiblio
+ GetMarcFromKohaField
+ GetMarcPrice
+ GetMarcQuantity
+ TransformHtmlToXml
+);
+use C4::Items qw( PrepareItemrecordDisplay sub AddItemFromMarc );
+use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode );
+use C4::Acquisition qw( populate_order_with_prices );
use C4::Suggestions; # GetSuggestion
use C4::Members;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Charset;
-use C4::Auth qw/check_api_auth/;
+use C4::Charset qw( NormalizeString );
+use C4::Auth qw( check_api_auth );
use Koha::AuthorisedValues;
my $query = CGI->new();
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
+use C4::Auth qw( get_template_and_user haspermission );
+use C4::Output qw( output_html_with_http_headers output_and_exit );
use CGI qw ( -utf8 );
-use C4::Acquisition;
-use C4::Budgets;
-use C4::Contract;
-use C4::Biblio;
-use C4::Items;
-use C4::Suggestions;
+use C4::Acquisition qw( GetBasket CanUserManageBasket GetBasketAsCSV NewBasket NewBasketgroup ModBasket ReopenBasket ModBasketUsers GetBasketgroup GetBasketgroups GetBasketUsers GetOrders GetOrder get_rounded_price );
+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
+use C4::Contract qw( GetContract );
+use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSuggestionInfo );
use Koha::Biblios;
use Koha::Acquisition::Baskets;
use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Orders;
use Koha::Libraries;
-use C4::Letters qw/SendAlerts/;
-use Date::Calc qw/Add_Delta_Days/;
+use C4::Letters qw( SendAlerts );
+use Date::Calc qw( Add_Delta_Days );
use Koha::Database;
-use Koha::EDI qw( create_edi_order get_edifact_ean );
+use Koha::EDI qw( create_edi_order );
use Koha::CsvProfiles;
use Koha::Patrons;
=cut
use Modern::Perl;
-use Carp;
+use Carp qw( croak );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use File::Spec;
-use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV get_rounded_price/;
-use Koha::EDI qw/create_edi_order get_edifact_ean/;
+use C4::Acquisition qw( GetOrders GetOrder get_rounded_price GetBasket GetBasketgroup GetBasketsByBasketgroup GetBasketgroups GetBasketsByBookseller ModBasket CloseBasketgroup GetBasketGroupAsCSV DelBasketgroup ReOpenBasketgroup ModBasketgroup NewBasket NewBasketgroup );
+use Koha::EDI qw( get_edifact_ean create_edi_order );
use Koha::Biblioitems;
use Koha::Acquisition::Booksellers;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition qw/GetBasket NewBasket ModBasketHeader/;
-use C4::Contract qw/GetContracts/;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Acquisition qw( GetBasket ModBasket ModBasketHeader NewBasket );
+use C4::Contract qw( GetContracts GetContract );
use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Baskets;
=cut
use Modern::Perl;
-use C4::Auth;
-use C4::Biblio;
-use C4::Budgets;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /;
+use C4::Acquisition qw( GetBasket GetBasketsInfosByBookseller CanUserManageBasket GetBasketgroup );
use C4::Context;
use Koha::Acquisition::Booksellers;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Acquisition::Baskets;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Budgets;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Budgets qw( GetBudget );
=head1 DESCRIPTION
use Modern::Perl;
use CGI qw ( -utf8 );
-use JSON;
-use C4::Output;
-use C4::Items;
+use JSON qw( to_json );
+use C4::Output qw( output_with_http_headers );
+use C4::Items qw( SearchItems );
my $input = CGI->new;
my @field = $input->multi_param('field[]');
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition qw(GetHistory);
-use C4::Budgets qw(GetBudgetPeriods GetBudgetHierarchy CanUserUseBudget);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
+use C4::Acquisition qw( GetHistory );
+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget GetBudgetPeriods GetBudgetPeriod );
use Koha::Acquisition::Baskets;
use Koha::Acquisition::Currencies;
use Koha::Acquisition::Orders;
-use Koha::DateUtils qw(dt_from_string output_pref);
+use Koha::DateUtils qw( dt_from_string output_pref );
my $input = CGI->new;
my $basketno = $input->param('basketno');
#
use Modern::Perl;
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
use CGI;
my $schema = Koha::Database->new()->schema();
use CGI;
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
-use Koha::EDI qw(process_invoice);
+use Koha::EDI qw( process_invoice );
my $q = CGI->new;
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
use Modern::Perl;
use CGI;
-use Koha::Database;
+use Koha::Databas;
use C4::Koha;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $q = CGI->new;
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( checkauth );
use C4::Output;
use C4::Context;
-use C4::Acquisition;
-use C4::Biblio;
-use C4::Items;
+use C4::Acquisition qw( GetInvoice GetOrder populate_order_with_prices ModReceiveOrder );
+use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );
+use C4::Items qw( GetMarcItem ModItemFromMarc AddItemFromMarc );
use C4::Search;
use Koha::Number::Price;
use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Orders;
-use List::MoreUtils qw/any/;
my $input=CGI->new;
my $flagsrequired = {acquisition => 'order_receive'};
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth; # get_template_and_user
-use C4::Output;
-use C4::Acquisition;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Acquisition qw( GetHistory );
use Koha::AdditionalFields;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
my $input = CGI->new;
my $do_search = $input->param('do_search') || 0;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Acquisition qw( GetInvoice GetInvoiceDetails );
use Koha::Misc::Files;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition;
-use C4::Budgets;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
+use C4::Acquisition qw( CloseInvoice ReopenInvoice ModInvoice MergeInvoices DelInvoice GetInvoice GetInvoiceDetails get_rounded_price );
+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
use Koha::Acquisition::Booksellers;
-use Koha::Acquisition::Currencies;
-use Koha::DateUtils;
+use Koha::Acquisition::Currencies qw( get_active );
+use Koha::DateUtils qw( output_pref );
use Koha::Misc::Files;
use Koha::Acquisition::Invoice::Adjustments;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::Acquisition qw/GetInvoices/;
-use C4::Budgets;
-use Koha::DateUtils;
+use C4::Acquisition qw( GetInvoices GetInvoice );
+use C4::Budgets qw( GetBudget GetBudgets CanUserUseBudget );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Acquisition::Booksellers;
my $input = CGI->new;
use CGI qw ( -utf8 );
use Encode;
-use C4::Auth;
-use C4::Acquisition;
+use C4::Auth qw( get_template_and_user );
+use C4::Acquisition qw( GetOrder );
use C4::Output;
use C4::Context;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Acquisition;
-use C4::Letters;
-use Koha::DateUtils;
-use Koha::Acquisition::Orders;
+use C4::Letters qw( SendAlerts GetLetters );
+use Koha::DateUtils qw( dt_from_string output_pref );
+use Koha::Acquisition::Orders qw( filter_by_lates );
use Koha::CsvProfiles;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Acquisition qw( GetOrder GetBasket ModOrder );
use Koha::Acquisition::Booksellers;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Budgets;
-
-use C4::Acquisition;
-use C4::Contract;
-use C4::Suggestions; # GetSuggestion
-use C4::Biblio; # GetBiblioData GetMarcPrice
-use C4::Items; #PrepareItemRecord
-use C4::Output;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
+use C4::Budgets qw( GetBudget GetBudgetHierarchy CanUserUseBudget );
+
+use C4::Acquisition qw( GetOrder GetBasket FillWithDefaultValues GetOrderUsers );
+use C4::Contract qw( GetContract );
+use C4::Suggestions qw( GetSuggestion GetSuggestionInfo );
+use C4::Biblio qw(
+ AddBiblio
+ GetBiblioData
+ GetMarcBiblio
+ GetMarcFromKohaField
+ GetMarcPrice
+ GetMarcStructure
+ IsMarcStructureInternal
+);
+use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Members;
-use C4::Search qw/FindDuplicate/;
+use C4::Search qw( FindDuplicate );
#needed for z3950 import:
-use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus SetMatchedBiblionumber/;
+use C4::ImportBatch qw( SetImportRecordStatus SetMatchedBiblionumber GetImportRecordMarc );
use Koha::Acquisition::Booksellers;
-use Koha::Acquisition::Currencies;
+use Koha::Acquisition::Currencies qw( get_active );
use Koha::BiblioFrameworks;
use Koha::DateUtils qw( dt_from_string );
use Koha::MarcSubfieldStructures;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Acquisition;
-use C4::Auth;
+use C4::Acquisition qw( GetBasket );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Serials;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Serials qw( SearchSubscriptions subscriptionCurrentlyOnOrder check_routing );
use Koha::Acquisition::Booksellers;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth; # get_template_and_user
-use C4::Output;
-use C4::Suggestions;
-use C4::Biblio;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Suggestions qw( ConnectSuggestionAndBiblio SearchSuggestion );
use C4::Budgets;
use Koha::Acquisition::Booksellers;
use C4::Context;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Acquisition::Invoice::Adjustments;
-use C4::Acquisition;
+use C4::Acquisition qw( get_rounded_price );
my $dbh = C4::Context->dbh;
my $input = CGI->new;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Acquisition;
-use C4::Auth;
-use C4::Output;
-use C4::Budgets qw/ GetBudget GetBudgetHierarchy CanUserUseBudget GetBudgetPeriods /;
+use C4::Acquisition qw( GetInvoice );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Budgets qw( GetBudget GetBudgetPeriods GetBudgetPeriod GetBudgetHierarchy CanUserUseBudget );
use C4::Members;
-use C4::Items;
-use C4::Biblio;
-use C4::Suggestions;
-use C4::Koha;
+use C4::Biblio qw( GetMarcStructure );
+use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSuggestionInfo );
use Koha::Acquisition::Booksellers;
-use Koha::Acquisition::Currencies;
+use Koha::Acquisition::Currencies qw( get_active );
use Koha::Acquisition::Orders;
use Koha::DateUtils qw( dt_from_string );
use Koha::ItemTypes;
use Modern::Perl;
-use C4::Auth;
-use C4::Acquisition;
-use C4::Budgets;
-use C4::Biblio;
-use C4::Items;
+use C4::Auth qw( get_template_and_user );
+use C4::Acquisition qw( CancelReceipt GetInvoice GetInvoiceDetails get_rounded_price );
+use C4::Budgets qw( _round GetBudget GetBudgetByOrderNumber GetBudgetName );
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Suggestions;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSuggestionInfo );
use Koha::Acquisition::Baskets;
use Koha::Acquisition::Bookseller;
use Koha::Acquisition::Orders;
use Koha::Biblios;
-use Koha::DateUtils;
-use Koha::Biblios;
-use JSON;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::Acquisition;
-use C4::Budgets;
+use C4::Acquisition qw( GetInvoices GetInvoice AddInvoice );
+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
use Koha::Acquisition::Booksellers;
use Koha::DateUtils qw( output_pref dt_from_string );
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Acquisition::Orders;
use Koha::Patrons;
=cut
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Acquisition;
+use C4::Acquisition qw( get_rounded_price );
use Koha::Acquisition::Invoice::Adjustments;
my $dbh = C4::Context->dbh;
=cut
use Modern::Perl;
-use C4::Auth;
-use C4::Contract;
-use C4::Biblio;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Contract qw( GetContracts GetContract );
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Budgets;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Acquisition;
+use C4::Acquisition qw( GetOrder GetBasket TransferOrder GetBasketsByBookseller SearchOrders );
use Koha::Acquisition::Booksellers;
my $input = CGI->new;
use Modern::Perl;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;
-use C4::Biblio qw/GetBiblioData/;
+use C4::Acquisition qw( SearchOrders GetOrder ModOrder );
use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Baskets;
=cut
use Modern::Perl;
-use List::Util;
use C4::Context;
-use C4::Auth;
+use C4::Auth qw( checkauth );
-use C4::Biblio;
use C4::Output;
use Koha::Acquisition::Bookseller::Contacts;
use Modern::Perl;
use CGI qw/-utf8/;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Breeding;
-use C4::Koha;
+use C4::Breeding qw( Z3950Search );
use Koha::Acquisition::Booksellers;
use Koha::BiblioFrameworks;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Members;
use Koha::Patron::Categories;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::AdditionalFields;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Plugins;
my $query = CGI->new;
=cut
use Modern::Perl;
-use Encode;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Koha;
use Koha::KeyboardShortcuts;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use List::Util qw/min/;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Database;
use C4::Koha;
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Acquisition;
-use C4::Budgets;
+use C4::Budgets qw( GetBudgetPeriod GetBudgetPeriods ModBudgetPeriod AddBudgetPeriod GetBudgets DelBudgetPeriod CloneBudgetPeriod MoveOrders );
use Koha::Acquisition::Currencies;
my $dbh = C4::Context->dbh;
my $mark_original_budget_as_inactive = $input->param('mark_original_budget_as_inactive');
my $reset_all_budgets = $input->param('reset_all_budgets');
- my $new_budget_period_id = C4::Budgets::CloneBudgetPeriod(
+ my $new_budget_period_id = CloneBudgetPeriod(
{
budget_period_id => $budget_period_id,
budget_period_startdate => $budget_period_startdate,
my $budget_period = GetBudgetPeriod($budget_period_id);
my $active_budget_periods =
- C4::Budgets::GetBudgetPeriods( { budget_period_active => 1 } );
+ GetBudgetPeriods( { budget_period_active => 1 } );
# Remove the budget period from the list
$active_budget_periods =
elsif ( $op eq 'close_confirmed' ) {
my $to_budget_period_id = $input->param('to_budget_period_id');
my $move_remaining_unspent = $input->param('move_remaining_unspent');
- my $report = C4::Budgets::MoveOrders(
+ my $report = MoveOrders(
{
from_budget_period_id => $budget_period_id,
to_budget_period_id => $to_budget_period_id,
use Modern::Perl;
use CGI qw ( -utf8 );
-use List::Util qw/min/;
use Koha::Database;
-use C4::Auth qw/get_user_subpermissions/;
-use C4::Auth;
-use C4::Acquisition;
-use C4::Budgets;
+use C4::Auth qw( get_template_and_user );
+use C4::Budgets qw(
+ AddBudget
+ BudgetHasChildren
+ CanUserModifyBudget
+ CanUserUseBudget
+ DelBudget
+ GetBudget
+ GetBudgetAuthCats
+ GetBudgetHierarchy
+ GetBudgetPeriod
+ GetBudgetPeriods
+ GetBudgetUsers
+ ModBudget
+ ModBudgetUsers
+);
use C4::Context;
-use C4::Output;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers output_and_exit );
use Koha::Acquisition::Currencies;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Contract;
-use Koha::DateUtils;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Contract qw(
+ AddContract
+ DelContract
+ GetContract
+ GetContracts
+ ModContract
+);
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Acquisition::Booksellers;
use Modern::Perl;
use CGI qw ( -utf8 );
-use List::Util qw/min/;
-use Date::Calc qw/Delta_YMD Easter_Sunday Today Decode_Date_EU/;
-use Date::Manip qw/ ParseDate UnixDate DateCalc/;
+use Date::Calc qw( Delta_YMD );
+use Date::Manip qw( DateCalc UnixDate );
use Text::CSV_XS;
-use C4::Acquisition;
-use C4::Budgets;
+use C4::Budgets qw(
+ CanUserUseBudget
+ GetBudgetAuthCats
+ GetBudgetHierarchy
+ GetBudgetPeriod
+ GetBudgetsPlanCell
+ GetCols
+ GetPeriodsCount
+ HideCols
+ ModBudgetPlan
+);
use C4::Context;
-use C4::Output;
-use C4::Koha;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use Koha::Acquisition::Currencies;
our $input = CGI->new;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::AudioAlert;
use Koha::AudioAlerts;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Koha;
use Koha::Authority::Types;
use Koha::AuthorisedValues;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use Koha::Authority::Types;
use Modern::Perl;
use CGI qw ( -utf8 );
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
-use C4::Output;
+use C4::Koha qw( getitemtypeimagelocation );
+use C4::Output qw( output_html_with_http_headers );
use Koha::AuthorisedValues;
use Koha::AuthorisedValueCategories;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Authorities;
use Koha::Authority::Types;
use Modern::Perl;
use CGI qw ( -utf8 );
-use JSON qw( decode_json );
-use Try::Tiny;
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::BackgroundJobs;
use Koha::Virtualshelves;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Biblios;
use Koha::BiblioFramework;
use Koha::BiblioFrameworks;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Koha;
-use C4::Circulation qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
+use C4::Output qw( output_html_with_http_headers );
+use C4::Circulation qw( DeleteBranchTransferLimits CreateBranchTransferLimit IsBranchTransferAllowed );
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use Koha::Database;
use warnings;
use CGI;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use Koha::Libraries;
use C4::Koha;
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Cash::Registers;
my $cgi = CGI->new();
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Form::MessagingPreferences;
use Koha::Patrons;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patron::Categories;
use Koha::Libraries;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Budgets;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Budgets qw( CheckBudgetParent GetBudget );
=head1 DESCRIPTION
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Budgets;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Budgets qw( GetBudget GetBudgetPeriod );
=head1 DESCRIPTION
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Biblio;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Cities;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Koha;
-use C4::ClassSortRoutine;
-use C4::ClassSplitRoutine;
+use C4::Output qw( output_html_with_http_headers );
+use C4::ClassSortRoutine qw( GetSortRoutineNames );
+use C4::ClassSplitRoutine qw( GetSplitRoutineNames );
use Koha::ClassSources;
use Koha::ClassSortRules;
use Koha::ClassSplitRules;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use Koha::CirculationRules;
my $input = CGI->new;
use Modern::Perl;
use CGI;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Utils::DataTables::TablesSettings qw( get_modules );
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Account::CreditType;
use Koha::Account::CreditTypes;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Currencies;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Account::DebitType;
use Koha::Account::DebitTypes;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Desks;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::SuggestionEngine;
-use Module::Load::Conditional qw(can_load);
-use JSON;
+use Module::Load::Conditional qw( can_load );
+use JSON qw( from_json );
my $input = CGI->new;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
use Koha::Plugins;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
my $input = CGI->new();
use CGI qw ( -utf8 );
use CGI::Cookie;
use C4::Context;
-use C4::Auth qw/check_cookie_auth/;
-use C4::ImportExportFramework;
+use C4::Auth qw( check_cookie_auth );
+use C4::ImportExportFramework qw( createODS ExportFramework ImportFramework );
my %cookies = CGI::Cookie->fetch();
my $authenticated = 0;
use Modern::Perl;
use CGI qw ( -utf8 );
-use File::Basename;
-use Encode;
-use JSON;
+use JSON qw( encode_json );
#use Data::Dump 'pp';
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::ItemCirculationAlertPreference;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::ItemTypes;
use Koha::Patron::Categories;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Item::Search::Field qw(GetItemSearchField ModItemSearchField);
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Item::Search::Field qw(AddItemSearchField GetItemSearchFields DelItemSearchField);
use Modern::Perl;
use CGI qw ( -utf8 );
-use File::Spec;
-use C4::Koha;
+use C4::Koha qw( getImageSets GetAuthorisedValues );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::ItemTypes;
use Koha::ItemType;
use Koha::Localizations;
use CGI qw ( -utf8 );
use Koha::Database;
-use C4::Auth;
-use C4::Biblio;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::BiblioFrameworks;
use Koha::Caches;
use Koha::MarcSubfieldStructures;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Libraries;
use Koha::Library::Group;
use Modern::Perl;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Localization;
use Koha::Localizations;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use Koha::Caches;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
use C4::Matcher qw/valid_normalization_routines/;
my $script_name = "/cgi-bin/koha/admin/matching-rules.pl";
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::OAI::Sets;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::OAI::Sets qw( GetOAISet GetOAISetMappings ModOAISetMappings );
-use Data::Dumper;
my $input = CGI->new;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::OAI::Sets;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::OAI::Sets qw( AddOAISet DelOAISet GetOAISet GetOAISets ModOAISet );
-use Data::Dumper;
my $input = CGI->new;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Libraries;
use Koha::Library::OverDriveInfos;
use Modern::Perl;
use CGI qw ( -utf8 );
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patron::Attribute::Types;
use Koha::AuthorisedValues;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
-use C4::Languages qw(getTranslatedLanguages);
-use C4::ClassSource;
-use C4::Log;
-use C4::Output;
+use C4::Koha qw( getallthemes );
+use C4::Languages qw( getTranslatedLanguages );
+use C4::ClassSource qw( GetClassSources GetClassSource );
+use C4::Output qw( output_html_with_http_headers );
use C4::Templates;
use Koha::Acquisition::Currencies;
-use File::Spec;
use IO::File;
use YAML::XS;
use Encode;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
# use Smart::Comments;
#
use Modern::Perl;
use CGI;
-use Scalar::Util qw(looks_like_number);
+use Scalar::Util qw( looks_like_number );
use List::Util qw( first );
-use C4::Koha;
use C4::Output;
use C4::Auth;
use C4::Log;
use Koha::SearchFields;
use Koha::Caches;
-use Try::Tiny;
-use Module::Load::Conditional qw(can_load);
+use Try::Tiny qw( catch try );
+use Module::Load::Conditional qw( can_load );
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use JSON;
+use JSON qw( to_json );
use HTTP::Request;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::SharedContent;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Koha;
-use Koha::DateUtils;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Database;
use Koha::Logger;
use Koha::Libraries;
use CGI;
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::SMS::Provider;
use Koha::SMS::Providers;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Scalar::Util qw(blessed);
-use Try::Tiny;
+use Scalar::Util qw( blessed );
+use Try::Tiny qw( catch try );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Libraries;
use Koha::SMTP::Servers;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
# Initialize CGI, template
use Modern::Perl;
use CGI qw ( -utf8 );
-use MIME::Base64;
-use C4::Auth;
+use MIME::Base64 qw( encode_base64 );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
-use C4::Languages qw(getTranslatedLanguages);
-use C4::ClassSource;
-use C4::Output;
+use C4::Koha qw( getallthemes );
+use C4::Languages qw( getTranslatedLanguages );
+use C4::ClassSource qw( GetClassSources GetClassSource );
+use C4::Output qw( output_html_with_http_headers );
use YAML::XS;
my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Context;
-use C4::Output;
-use C4::Koha;
-use C4::Circulation
- qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Koha;
-use C4::HoldsQueue qw(TransportCostMatrix UpdateTransportCostMatrix);
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::HoldsQueue qw( TransportCostMatrix UpdateTransportCostMatrix );
use Koha::Libraries;
-use Data::Dumper;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use Koha::DateUtils qw( dt_from_string output_pref );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use Koha::DateUtils qw( output_pref );
use Koha::Libraries;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
use Koha::Z3950Servers;
use Modern::Perl;
-require Mojolicious::Commands;
+use Mojolicious::Commands;
Mojolicious::Commands->start_app('Koha::REST::V1');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Acquisition;
-use C4::Koha;
use Koha::SearchEngine::Search;
use Koha::SearchEngine::QueryBuilder;
use Modern::Perl;
use CGI qw ( -utf8 );
-use URI::Escape;
+use URI::Escape qw( uri_escape_utf8 );
use POSIX qw( ceil );
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::AuthoritiesMarc;
-use C4::Acquisition;
-use C4::Koha;
-use C4::Biblio;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit pagination_bar output_html_with_http_headers );
+use C4::AuthoritiesMarc qw( DelAuthority );
use C4::Search::History;
use Koha::Authority::Types;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::AuthoritiesMarc;
-use C4::ImportBatch; #GetImportRecordMarc
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::AuthoritiesMarc qw( GetAuthority );
+use C4::ImportBatch qw( GetImportRecordMarc );
use C4::Context;
-use C4::Koha;
-use Date::Calc qw(Today);
+use Date::Calc qw( Today );
use MARC::File::USMARC;
use MARC::File::XML;
-use C4::Biblio;
+use C4::Biblio qw( TransformHtmlToMarc );
use Koha::Authority::Types;
use Koha::ItemTypes;
use vars qw( $tagslib);
use Modern::Perl;
-use C4::AuthoritiesMarc;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
+use C4::AuthoritiesMarc qw( GetAuthority );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use MARC::Record;
-use C4::Koha;
use Koha::Authorities;
use Koha::Authority::Types;
use Modern::Perl;
-use C4::AuthoritiesMarc;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
+use C4::AuthoritiesMarc qw( GetAuthority );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use MARC::Record;
-use C4::Koha;
# use C4::Biblio;
# use C4::Catalogue;
use Modern::Perl;
-use C4::AuthoritiesMarc;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
+use C4::AuthoritiesMarc qw( GetAuthority GenerateHierarchy );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use MARC::Record;
use C4::Koha;
use Koha::Authorities;
use Modern::Perl;
use C4::Record;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
-use C4::AuthoritiesMarc;
+use C4::AuthoritiesMarc qw( GetAuthority );
use CGI qw ( -utf8 );
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth;
-use C4::AuthoritiesMarc;
-use C4::Koha;
-use C4::Biblio;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::AuthoritiesMarc qw( GetAuthority ModAuthority DelAuthority );
+use C4::Biblio qw( TransformHtmlToMarc );
use Koha::Authority::MergeRequests;
use Koha::Authority::Types;
use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before CGI parses the POST request
-use JSON;
+use JSON qw( encode_json );
use C4::Context;
-use C4::Auth qw/check_cookie_auth/;
-use C4::AuthoritiesMarc;
+use C4::Auth qw( check_cookie_auth );
+use C4::AuthoritiesMarc qw( GetTagsLabels );
my %cookies = CGI::Cookie->fetch;
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' });
use CGI qw ( -utf8 );
use Modern::Perl;
-use JSON;
+use JSON qw( to_json );
use C4::Context;
-use C4::Charset;
-use C4::Auth qw/check_cookie_auth/;
-use C4::Output;
+use C4::Charset qw( nsb_clean );
+use C4::Auth qw( check_cookie_auth );
+use C4::Output qw( output_with_http_headers );
use Koha::SearchEngine::Search;
use Koha::SearchEngine::QueryBuilder;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Koha;
-use C4::Biblio;
-use C4::Items;
-use C4::Auth;
-use C4::Output;
+use C4::Biblio qw(
+ GetBiblioData
+ GetMarcAuthors
+ GetMarcBiblio
+ GetMarcSeries
+ GetMarcSubjects
+ GetMarcUrls
+);
+use C4::Items qw( GetItemsInfo );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::AuthorisedValues;
use Koha::Biblios;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Encode qw(encode);
+use Encode qw( encode );
-use C4::Auth;
-use C4::Biblio;
-use C4::Items;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetMarcBiblio );
+use C4::Output qw( output_html_with_http_headers );
use C4::Record;
-use C4::Ris;
+use C4::Ris qw( marc2ris );
use Koha::CsvProfiles;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Encode qw(encode);
-use Carp;
-use Try::Tiny;
-
-use C4::Biblio;
-use C4::Items;
-use C4::Auth;
-use C4::Output;
-use C4::Templates ();
+use Encode;
+use Carp qw( carp );
+use Try::Tiny qw( catch try );
+
+use C4::Biblio qw(
+ GetBiblioData
+ GetMarcAuthors
+ GetMarcBiblio
+ GetMarcSubjects
+);
+use C4::Items qw( GetItemsInfo );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
+use C4::Templates;
use Koha::Email;
use Koha::Token;
use Modern::Perl;
use HTML::Entities;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Koha;
-use C4::Biblio;
-use C4::Items;
-use C4::Serials; # CountSubscriptionFromBiblionumber
-use C4::Search; # enabled_staff_search_views
+use C4::Biblio qw( GetBiblioData GetFrameworkCode GetISBDView GetMarcBiblio );
+use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
+use C4::Search qw( z3950_search_args enabled_staff_search_views );
use Koha::Biblios;
use Koha::Patrons;
use CGI qw ( -utf8 );
use HTML::Entities;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
-use MARC::Record;
-use C4::Biblio;
-use C4::Items;
-use C4::Acquisition;
-use C4::Serials; #uses getsubscriptionsfrombiblionumber GetSubscriptionsFromBiblionumber
-use C4::Search; # enabled_staff_search_views
+use C4::Biblio qw(
+ GetAuthorisedValueDesc
+ GetBiblioData
+ GetFrameworkCode
+ GetMarcBiblio
+ GetMarcFromKohaField
+ GetMarcStructure
+);
+use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
+use C4::Search qw( z3950_search_args enabled_staff_search_views );
use Koha::Biblios;
use Koha::BiblioFrameworks;
use Koha::Patrons;
-use Koha::DateUtils;
+use Koha::DateUtils qw( output_pref );
use Koha::Virtualshelves;
use List::MoreUtils qw( uniq );
use CGI qw ( -utf8 );
use HTML::Entities;
-use Try::Tiny;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
-use C4::Serials; #uses getsubscriptionfrom biblionumber
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
-use C4::Circulation;
+use C4::Koha qw(
+ GetAuthorisedValues
+ getitemtypeimagelocation
+ GetNormalizedEAN
+ GetNormalizedISBN
+ GetNormalizedOCLCNumber
+ GetNormalizedUPC
+);
+use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
+use C4::Items qw( GetAnalyticsCount GetHostItemsInfo GetItemsInfo );
+use C4::Circulation qw( GetTransfers );
use C4::Reserves;
-use C4::Serials;
-use C4::XISBN qw(get_xisbns);
-use C4::External::Amazon;
-use C4::Search; # enabled_staff_search_views
-use C4::Tags qw(get_tags);
-use C4::XSLT;
-use Koha::DateUtils;
+use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
+use C4::XISBN qw( get_xisbns );
+use C4::External::Amazon qw( get_amazon_tld );
+use C4::Search qw( z3950_search_args enabled_staff_search_views );
+use C4::Tags qw( get_tags );
+use C4::XSLT qw( XSLTParse4Display );
+use Koha::DateUtils qw( format_sqldatetime );
use C4::HTML5Media;
-use C4::CourseReserves qw(GetItemCourseReservesInfo);
-use C4::Acquisition qw(GetOrdersByBiblionumber);
+use C4::CourseReserves qw( GetItemCourseReservesInfo );
use Koha::AuthorisedValues;
use Koha::Biblios;
use Koha::CoverImages;
use Modern::Perl;
use C4::Record;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber );
use CGI qw ( -utf8 );
-use C4::Ris;
+use C4::Ris qw( marc2ris );
use Modern::Perl;
use CGI qw ( -utf8 );
-use JSON;
+use JSON qw( to_json );
-use C4::Auth;
-use C4::Biblio;
-use C4::Items;
-use C4::Koha;
-use C4::Output;
+use C4::Auth qw( check_api_auth );
+use C4::Biblio qw( GetMarcStructure );
+use C4::Output qw( output_with_http_headers );
use Koha::Libraries;
use Koha::AuthorisedValues;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Biblio;
-use C4::Items;
-use C4::Output;
-use C4::Search;
+use C4::Auth qw( get_template_and_user );
+use C4::Items qw( GetItemsInfo );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Search qw( enabled_staff_search_views );
use Koha::Biblios;
use Koha::Items;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::Biblio; # GetBiblio
-use C4::Search; # enabled_staff_search_views
-use C4::Serials;
+use C4::Search qw( enabled_staff_search_views );
+use C4::Serials qw( CountSubscriptionFromBiblionumber );
use Koha::Checkouts;
use Koha::Old::Checkouts;
use CGI;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
my $cgi = CGI->new;
use Modern::Perl;
use CGI;
-use JSON;
+use JSON qw( to_json );
-use C4::Auth;
-use C4::Output;
-use C4::Items;
-use C4::Biblio;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers output_html_with_http_headers );
+use C4::Items qw( SearchItems );
+use C4::Koha qw( GetAuthorisedValues );
use Koha::AuthorisedValues;
use Koha::Biblios;
use Modern::Perl;
use CGI qw ( -utf8 );
use HTML::Entities;
-use MARC::Record;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
-use C4::Search; # enabled_staff_search_views
-use C4::Serials;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Biblio qw(
+ GetBiblioData
+ GetFrameworkCode
+ GetMarcBiblio
+ GetMarcStructure
+);
+use C4::Search qw( z3950_search_args enabled_staff_search_views );
+use C4::Serials qw( CountSubscriptionFromBiblionumber );
use Koha::Biblios;
use Koha::BiblioFrameworks;
use Modern::Perl;
-use C4::Koha;
+use C4::Koha qw( GetAuthorisedValues );
use CGI qw ( -utf8 );
use HTML::Entities;
-use C4::Biblio;
-use C4::Items;
-use C4::Acquisition;
-use C4::Output;
-use C4::Auth;
-use C4::Serials;
-use C4::Search; # enabled_staff_search_views
+use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
+use C4::Items qw( GetHostItemsInfo GetItemsInfo );
+use C4::Acquisition qw( GetOrderFromItemnumber GetBasket GetInvoice );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Serials qw( CountSubscriptionFromBiblionumber );
+use C4::Search qw( enabled_staff_search_views z3950_search_args );
use Koha::Acquisition::Booksellers;
use Koha::AuthorisedValues;
use Koha::Biblios;
-use Koha::DateUtils;
use Koha::Items;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Search::History;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
my $cgi = CGI->new;
## load Koha modules
use C4::Context;
-use C4::Output;
-use C4::Auth qw(:DEFAULT get_session);
-use C4::Search;
-use C4::Languages qw(getLanguages);
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers pagination_bar );
+use C4::Auth qw( get_template_and_user );
+use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );
+use C4::Languages qw( getlanguage getLanguages );
+use C4::Koha qw( getitemtypeimagelocation GetAuthorisedValues );
use URI::Escape;
use POSIX qw(ceil floor);
-use C4::Search::History;
+use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );
use Koha::ItemTypes;
use Koha::Library::Groups;
# standard or CPAN modules used
use CGI qw(:standard -utf8);
-use DBI;
use Encode;
# Koha modules used
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Biblio;
-use C4::ImportBatch;
-use C4::XSLT ();
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetMarcBiblio GetXmlBiblio );
+use C4::ImportBatch qw( GetRecordFromImportBiblio );
+use C4::XSLT;
my $input= CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
-use C4::Search;
-use C4::Serials;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Search qw( enabled_staff_search_views );
+use C4::Serials qw( CountSubscriptionFromBiblionumber );
use Koha::Biblio;
use Koha::Item;
use Koha::StockRotationRotas;
use Koha::StockRotationStages;
-use Koha::Util::StockRotation qw(:ALL);
+use Koha::Util::StockRotation qw( get_stages get_branches toggle_indemand remove_from_stage move_to_next_stage );
my $input = CGI->new;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( checkauth );
use C4::Context;
-use C4::Biblio;
-use C4::Items;
use C4::Output;
-use C4::Circulation;
+use C4::Circulation qw( LostItem );
use C4::Reserves;
my $cgi= CGI->new;
use Modern::Perl;
-use CGI q(-utf8);
-use C4::Output;
-use C4::Auth;
-use C4::Biblio;
-use C4::Search;
-use C4::AuthoritiesMarc;
+use CGI;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user haspermission );
+use C4::Biblio qw(
+ AddBiblio
+ DelBiblio
+ GetFrameworkCode
+ GetMarcBiblio
+ GetMarcFromKohaField
+ GetMarcStructure
+ GetUsedMarcStructure
+ ModBiblio
+ prepare_host_field
+ PrepHostMarcField
+ TransformHtmlToMarc
+);
+use C4::Search qw( FindDuplicate enabled_staff_search_views );
+use C4::Auth qw( get_template_and_user haspermission );
use C4::Context;
use MARC::Record;
-use C4::Log;
-use C4::Koha;
-use C4::ClassSource;
-use C4::ImportBatch;
-use C4::Charset;
+use C4::ClassSource qw( GetClassSources );
+use C4::ImportBatch qw( GetImportRecordMarc );
+use C4::Charset qw( SetMarcUnicodeFlag );
use Koha::BiblioFrameworks;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::ItemTypes;
use Koha::Libraries;
use Koha::BiblioFrameworks;
-use Date::Calc qw(Today);
use MARC::File::USMARC;
use MARC::File::XML;
-use URI::Escape;
+use URI::Escape qw( uri_escape_utf8 );
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
MARC::File::XML->default_record_format('UNIMARC');
use Modern::Perl;
use CGI qw ( -utf8 );
-use URI::Escape;
-use C4::Auth;
-use C4::Biblio;
-use C4::Breeding;
-use C4::Output;
-use C4::Koha;
-use C4::Languages qw(getlanguage);
-use C4::Search;
+use C4::Auth qw( get_template_and_user );
+use C4::Breeding qw( BreedingSearch );
+use C4::Output qw( output_html_with_http_headers pagination_bar );
+use C4::Koha qw( getnbpages );
+use C4::Languages;
+use C4::Search qw( searchResults z3950_search_args );
use Koha::BiblioFrameworks;
use Koha::SearchEngine::Search;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
+use C4::Auth qw( get_template_and_user haspermission );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
+use C4::Biblio qw(
+ GetAuthorisedValueDesc
+ GetFrameworkCode
+ GetMarcBiblio
+ GetMarcFromKohaField
+ GetMarcStructure
+ IsMarcStructureInternal
+ ModBiblio
+ TransformHtmlToXml
+ TransformMarcToKoha
+);
+use C4::Items qw( AddItemFromMarc ModItemFromMarc );
use C4::Context;
-use C4::Circulation;
-use C4::Koha;
-use C4::ClassSource;
-use Koha::DateUtils;
+use C4::Circulation qw( LostItem );
+use C4::Koha qw( GetAuthorisedValues );
+use C4::ClassSource qw( GetClassSources GetClassSource );
+use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use Koha::ItemTypes;
use Koha::Libraries;
use Koha::Patrons;
use Koha::SearchEngine::Indexer;
-use List::MoreUtils qw/any/;
-use C4::Search;
-use Storable qw(thaw freeze);
-use URI::Escape;
+use List::MoreUtils qw( any );
+use C4::Search qw( enabled_staff_search_views );
+use Storable qw( freeze thaw );
+use URI::Escape qw( uri_escape_utf8 );
use C4::Members;
use MARC::File::XML;
-use URI::Escape;
-use MIME::Base64 qw(decode_base64url encode_base64url);
+use URI::Escape qw( uri_escape_utf8 );
+use MIME::Base64 qw( decode_base64url encode_base64url );
our $dbh = C4::Context->dbh;
use Modern::Perl;
use CGI;
-use MARC::Record;
-use C4::Auth;
-use C4::Biblio;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use DBIx::Class::ResultClass::HashRefInflator;
use Koha::Database;
use Koha::MarcSubfieldStructures;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Biblio qw( GetMarcBiblio ModBiblio PrepHostMarcField );
use C4::Context;
-use C4::Koha;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth;
-use C4::Items;
-use C4::Biblio;
-use C4::Serials;
-use C4::Koha;
-use C4::Reserves qw/MergeHolds/;
-use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Items qw( MoveItemFromBiblio );
+use C4::Biblio qw(
+ DelBiblio
+ GetBiblioData
+ GetFrameworkCode
+ GetMarcBiblio
+ GetMarcFromKohaField
+ GetMarcStructure
+ ModBiblio
+ TransformHtmlToMarc
+);
+use C4::Serials qw( CountSubscriptionFromBiblionumber );
+use C4::Reserves qw( MergeHolds );
+use C4::Acquisition qw( ModOrder GetOrdersByBiblionumber );
use Koha::BiblioFrameworks;
use Koha::Items;
use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before CGI parses the POST request
-use JSON;
+use JSON qw( encode_json );
use C4::Context;
-use C4::Biblio;
-use C4::Auth qw/check_cookie_auth/;
+use C4::Biblio qw( GetMarcStructure );
+use C4::Auth qw( check_cookie_auth );
my %cookies = CGI::Cookie->fetch;
my ( $auth_status, $sessionID ) = check_cookie_auth(
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Items qw( MoveItemFromBiblio );
use C4::Context;
-use C4::Koha;
use C4::ClassSource;
use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/;
use Koha::Biblios;
-use Date::Calc qw(Today);
use MARC::File::XML;
use Modern::Perl;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
# Example of framework plugin new style.
# It should define and return at least one and normally two anynomous
use C4::Context;
use C4::Barcodes::ValueBuilder;
-use C4::Biblio qw/GetMarcFromKohaField/;
-use Koha::DateUtils;
+use C4::Biblio qw( GetMarcFromKohaField );
+use Koha::DateUtils qw( dt_from_string output_pref );
-use Algorithm::CheckDigits;
+use Algorithm::CheckDigits qw( CheckDigits );
my $builder = sub {
my ( $params ) = @_;
use C4::Context;
use C4::Barcodes::ValueBuilder;
-use C4::Biblio qw/GetMarcFromKohaField/;
-use Koha::DateUtils;
+use C4::Biblio qw( GetMarcFromKohaField );
+use Koha::DateUtils qw( dt_from_string output_pref );
my $builder = sub {
my ( $params ) = @_;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
=head1 DESCRIPTION
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
=head1 DESCRIPTION
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use CGI;
-use C4::Auth;
-use C4::ClassSource;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::ClassSource qw( GetClassSort );
+use C4::Output qw( output_html_with_http_headers );
use Koha::ClassSources;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
my $builder = sub {
my ( $params ) = @_;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
my $builder = sub {
my ( $params ) = @_;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use XML::LibXML;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
my $builder = sub {
my ( $params ) = @_;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use XML::LibXML;
use Koha::Util::FrameworkPlugin qw|date_entered|;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Util::FrameworkPlugin qw|date_entered|;
use constant FIXLEN_DATA_ELTS => '|| aca||aabn | a|a d';
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Util::FrameworkPlugin qw|date_entered|;
use constant FIXLEN_DATA_ELTS => 'baaaaaaa';
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
my $builder = sub {
my ( $params ) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
my $builder = sub {
my ( $params ) = @_;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Search;
-use C4::Auth;
-use C4::Output;
+use C4::Search qw( new_record_from_zebra );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::Biblio;
-use C4::Koha;
-use MARC::Record;
+use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );
use Koha::ItemTypes;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
# find today's date
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::AuthorisedValues;
=head1 DESCRIPTION
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
=head1 DESCRIPTION
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
use Modern::Perl;
-use Date::Calc qw( Today );
+use Date::Calc;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
#use warnings; FIXME - Bug 2505
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
#use warnings; FIXME - Bug 2505
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
#use warnings; FIXME - Bug 2505
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
=head1 DESCRIPTION
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
#use warnings; FIXME - Bug 2505
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
#use warnings; FIXME - Bug 2505
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::AuthoritiesMarc;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( pagination_bar output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Search;
-use MARC::Record;
-use C4::Koha;
+use C4::Koha qw( getnbpages );
###TODO To rewrite in order to use SearchAuthorities
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::AuthoritiesMarc;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
use strict;
#use warnings; FIXME - Bug 2505
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::AuthoritiesMarc;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::AuthoritiesMarc qw( SearchAuthorities GetAuthority );
=head1 DESCRIPTION
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw( -utf8 );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
#use warnings; FIXME - Bug 2505
use CGI qw ( -utf8 );
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Search;
-use C4::Auth;
-use C4::Output;
+use C4::Search qw( new_record_from_zebra );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::Biblio;
-use C4::Koha;
-use MARC::Record;
+use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );
use Koha::ItemTypes;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
use Modern::Perl;
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Charset;
-use C4::Auth qw/check_cookie_auth/;
-use JSON qw/ to_json /;
+use C4::Charset qw( nsb_clean );
+use C4::Auth qw( check_cookie_auth );
+use JSON qw( to_json );
my $input = CGI->new;
my $query = $input->param('term');
use CGI qw / -utf8 /;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Breeding;
-use C4::Koha;
+use C4::Breeding qw( Z3950Search Z3950SearchAuth );
my $input = CGI->new;
my $dbh = C4::Context->dbh;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Breeding;
-use C4::Koha;
+use C4::Breeding qw( Z3950Search );
my $input = CGI->new;
my $error = $input->param('error');
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
use Koha::Patron::Message;
use CGI qw( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Letters;
use Koha::ArticleRequests;
use Koha::Patrons;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::ArticleRequests;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Circulation;
-use C4::Output;
-use C4::Koha;
-use C4::Auth;
+use C4::Output qw( output_and_exit output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use Koha::Biblios;
-use Koha::DateUtils;
use Koha::Libraries;
my $input = CGI->new;
use Modern::Perl;
use C4::Context;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth;
-use C4::Overdues;
-use C4::Biblio;
-use C4::Koha;
-use Koha::DateUtils;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Overdues qw( GetOverduesForBranch );
+use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure );
+use C4::Koha qw( GetAuthorisedValues );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::BiblioFrameworks;
-use Data::Dumper;
=head1 branchoverdues.pl
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Circulation;
-use C4::Output;
-use C4::Reserves;
-use C4::Biblio;
-use C4::Items;
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Koha;
+use C4::Circulation qw( transferbook );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reserves qw( ModReserve ModReserveAffect );
+use C4::Auth qw( get_session get_template_and_user );
use C4::Members;
use Koha::BiblioFrameworks;
use Koha::AuthorisedValues;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use Koha::Checkouts;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use Koha::BiblioFrameworks;
use Koha::Checkouts;
use DateTime;
use DateTime::Duration;
use Scalar::Util qw( looks_like_number );
-use C4::Output;
-use C4::Auth qw/:DEFAULT get_session haspermission/;
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
+use C4::Auth qw( get_session get_template_and_user );
use C4::Koha;
-use C4::Circulation;
+use C4::Circulation qw( barcodedecode CanBookBeIssued AddIssue );
use C4::Utils::DataTables::Members;
use C4::Members;
-use C4::Biblio;
-use C4::Search;
-use MARC::Record;
+use C4::Biblio qw( TransformMarcToKoha );
+use C4::Search qw( new_record_from_zebra );
use C4::Reserves;
use Koha::Holds;
use C4::Context;
use Koha::AuthorisedValues;
use Koha::CsvProfiles;
use Koha::Patrons;
-use Koha::Patron::Debarments qw(GetDebarments);
-use Koha::DateUtils;
+use Koha::Patron::Debarments qw( GetDebarments );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Database;
use Koha::BiblioFrameworks;
use Koha::Items;
use Koha::SearchEngine::Search;
use Koha::Patron::Modifications;
-use Date::Calc qw(
- Today
- Add_Delta_Days
- Date_to_Days
-);
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
#
# PARAMETERS READING
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
use Koha::Patron::Messages;
use Modern::Perl;
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Reserves;
+use C4::Auth qw( get_session get_template_and_user );
+use C4::Reserves qw( ReserveSlip );
my $input = CGI->new;
my $sessionID = $input->cookie("CGISESSID");
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
my $query = CGI->new;
my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
my $query = CGI->new;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Circulation qw( GetPendingOnSiteCheckouts );
-use C4::Output;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
use Koha::BiblioFrameworks;
my $cgi = CGI->new;
use Modern::Perl;
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw(-oldstyle_urls -utf8);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use Text::CSV_XS;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use DateTime;
use DateTime::Format::MySQL;
use Encode;
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Items qw( ModItemTransfer );
+use C4::Auth qw( get_template_and_user );
+use C4::Items;
use C4::Reserves qw( ModReserveCancelAll );
use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Holds;
use DateTime::Duration;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Output;
-use C4::Circulation;
-use C4::Koha;
-use Koha::DateUtils;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Circulation qw( barcodedecode CanBookBeRenewed GetSoonestRenewDate GetLatestAutoRenewDate AddRenewal );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Database;
use Koha::BiblioFrameworks;
use Modern::Perl;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_and_exit output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Utils::DataTables::Members;
-use C4::Search;
-use C4::Serials;
+use C4::Search qw( enabled_staff_search_views );
+use C4::Serials qw( CountSubscriptionFromBiblionumber );
use Koha::Biblios;
use Koha::Patrons;
use Koha::ArticleRequests;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Date::Calc qw/Today Add_Delta_YM/;
use POSIX qw( ceil );
use C4::Context;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Acquisition qw/GetOrdersByBiblionumber/;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Acquisition::Baskets;
my $input = CGI->new;
use CGI qw ( -utf8 );
use DateTime;
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Output;
-use C4::Circulation;
-use C4::Reserves;
-use C4::Biblio;
-use C4::Circulation;
+use C4::Auth qw( get_template_and_user get_session haspermission );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Circulation qw( barcodedecode GetBranchItemRule AddReturn updateWrongTransfer LostItem );
+use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves );
+use C4::Circulation qw( barcodedecode GetBranchItemRule AddReturn updateWrongTransfer LostItem );
use C4::Context;
-use C4::Items;
-use C4::Koha; # FIXME : is it still useful ?
+use C4::Items qw( ModItemTransfer );
use C4::Members::Messaging;
use C4::Members;
-use C4::Output;
-use C4::Reserves;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves );
use C4::RotatingCollections;
use Koha::AuthorisedValues;
use Koha::BiblioFrameworks;
use Koha::Calendar;
use Koha::Checkouts;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Holds;
use Koha::Items;
use Koha::Item::Transfers;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user get_session );
use Koha::BiblioFrameworks;
use Koha::Cash::Registers;
use Koha::Libraries;
use Modern::Perl;
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Circulation;
+use C4::Auth qw( get_session get_template_and_user );
+use C4::Circulation qw( TransferSlip );
my $input = CGI->new;
my $sessionID = $input->cookie("CGISESSID");
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
my $input = CGI->new;
my $itemnumber = $input->param('itemnumber');
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Biblio;
-use C4::Circulation;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Circulation qw( GetTransfers GetTransfersFromTo );
use C4::Members;
-use Date::Calc qw(
- Today
- Add_Delta_Days
- Date_to_Days
-);
+use Date::Calc qw( Add_Delta_Days Date_to_Days Today );
-use C4::Koha;
use C4::Reserves;
use Koha::Items;
use Koha::ItemTypes;
use Koha::Libraries;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::BiblioFrameworks;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
-use C4::HoldsQueue qw(GetHoldsQueueItems);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::HoldsQueue qw( GetHoldsQueueItems );
use Koha::BiblioFrameworks;
use Koha::ItemTypes;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Circulation;
-use C4::Members;
-use C4::Biblio;
-use C4::Items;
-use Date::Calc qw(
- Today
- Add_Delta_Days
- Date_to_Days
-);
-use C4::Reserves;
-use C4::Koha;
-use Koha::DateUtils;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Items qw( ModItemTransfer );
+use Date::Calc qw( Date_to_Days Today );
+use C4::Reserves qw( ModReserve ModReserveCancelAll );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::BiblioFrameworks;
use Koha::Items;
use Koha::ItemTypes;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth qw/check_cookie_auth/;
+use C4::Auth qw( check_cookie_auth );
use Koha::Patrons;
-use Koha::DateUtils qw/format_sqldatetime/;
+use Koha::DateUtils qw( format_sqldatetime );
use JSON qw( to_json );
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Clubs;
my $cgi = CGI->new;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
-use Koha::DateUtils qw(dt_from_string);
+use Koha::DateUtils qw( dt_from_string );
use Koha::Clubs;
use Koha::Club::Fields;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Clubs;
use Koha::Club::Templates;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patrons;
use Koha::Club::Enrollments;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Clubs;
my $cgi = CGI->new;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use Koha::DateUtils qw(dt_from_string);
+use Koha::DateUtils qw( dt_from_string );
use Koha::Club::Templates;
use Koha::Club::Template::Fields;
use Koha::Club::Template::EnrollmentFields;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Koha;
-use C4::Biblio;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Koha qw( GetAuthorisedValues );
use Koha::Items;
-use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve);
+use C4::CourseReserves qw( GetCourse GetCourseReserve ModCourse ModCourseItem ModCourseReserve );
use Koha::Items;
use Koha::ItemTypes;
use CGI qw( -utf8 );
use List::MoreUtils qw( uniq );
-use C4::Auth;
-use C4::Output;
-use C4::CourseReserves qw(ModCourseItem ModCourseReserve GetCourse);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::CourseReserves qw( GetCourse ModCourse ModCourseItem ModCourseReserve );
use Koha::Items;
use CGI qw( -utf8 );
use List::MoreUtils qw( uniq );
-use C4::Auth;
-use C4::Output;
-use C4::CourseReserves qw(GetItemCourseReservesInfo DelCourseReserve GetCourseItem);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::CourseReserves qw( GetCourse GetCourseItem GetItemCourseReservesInfo DelCourse DelCourseReserve );
use Koha::Items;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::CourseReserves qw(DelCourseReserve GetCourse GetCourseReserves);
+use C4::CourseReserves qw( DelCourse DelCourseReserve GetCourse GetCourseReserve GetCourseReserves );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::CourseReserves qw(GetCourses);
+use C4::CourseReserves qw( GetCourse GetCourses );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Koha qw( GetAuthorisedValues );
-use C4::CourseReserves qw(GetCourse);
+use C4::CourseReserves qw( GetCourse );
my $cgi = CGI->new;
use C4::Output;
use C4::Reserves;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
-use C4::CourseReserves qw(DelCourse ModCourse ModCourseInstructors);
+use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors );
my $cgi = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use Modern::Perl;
use CGI qw ( -utf8 );
use Authen::CAS::Client;
-use Storable qw(nstore_fd);
+use Storable qw( nstore_fd );
my $casServerUrl = 'https://localhost:8443/cas/';
my $cas = Authen::CAS::Client->new($casServerUrl);
use Modern::Perl;
use CGI qw ( -utf8 );
use Authen::CAS::Client;
-use Storable qw(fd_retrieve);
-use LWP::Simple;
-use URI::Escape;
+use Storable qw( fd_retrieve );
+use LWP::Simple qw( get );
my $casServerUrl = 'https://localhost:8443/cas/';
my $cas = Authen::CAS::Client->new($casServerUrl);
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use Koha::Manual;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Notice::Templates;
use Koha::AuthorisedValues;
use Koha::Illcomment;
use Koha::Libraries;
use Koha::Token;
-use Try::Tiny;
-use URI::Escape;
-use JSON;
+use Try::Tiny qw( catch try );
+use URI::Escape qw( uri_escape_utf8 );
+use JSON qw( encode_json );
our $cgi = CGI->new;
my $illRequests = Koha::Illrequests->new;
use Modern::Perl;
# CPAN modules
-use DBI;
-use Getopt::Long;
# Koha modules
use C4::Context;
-use C4::Items;
-use Data::Dumper;
my $dbh = C4::Context->dbh;
use C4::Context;
use C4::Overdues qw/CalcFine/;
-use C4::Log qw/logaction/;
+use C4::Log qw( logaction );
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
my ($help, $verbose, $confirm, $log, $stdout_log);
use strict;
# CPAN modules
-use DBI;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
# Koha modules
use C4::Context;
-use MARC::Record;
use MARC::File::XML ( BinaryEncoding => 'utf8' );
# FIXME - The user might be installing a new database, so can't rely
#!/usr/bin/perl
use Modern::Perl;
-use Carp;
-use Data::Dumper;
+use Carp qw( croak );
-use Getopt::Long;
-use File::Basename;
-use File::Copy;
+use Getopt::Long qw( GetOptions );
+use File::Copy qw( copy );
my $help_msg = <<EOH;
This script does a first-cut conversion of koha HTML::Template template files (.tmpl).
use Modern::Perl;
use diagnostics;
-use C4::InstallAuth;
+use C4::InstallAuth qw( get_template_and_user );
use CGI qw ( -utf8 );
-use POSIX qw(strftime);
+use POSIX;
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Templates;
-use C4::Languages qw(getAllLanguages getTranslatedLanguages);
+use C4::Languages qw( getAllLanguages getTranslatedLanguages );
use C4::Installer;
use C4::Installer::PerlModules;
use Modern::Perl;
use C4::Context;
-use C4::InstallAuth;
+use C4::InstallAuth qw( checkauth get_template_and_user );
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Members qw(checkcardnumber);
+use C4::Output qw( output_html_with_http_headers );
+use C4::Members qw( checkcardnumber );
use Koha::Patrons;
use Koha::Libraries;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use Koha::Patron::Categories;
use Koha::ItemTypes;
#!/usr/bin/perl
-use Getopt::Long;
-use Pod::Usage;
-use Term::ANSIColor;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
+use Term::ANSIColor qw( color );
use FindBin; # we need to enforce which C4::Installer is used in case more than one is installed
use lib $FindBin::Bin;
use CGI qw ( -utf8 );
use Text::CSV_XS;
-use Data::Dumper;
-use C4::Creators;
use C4::Labels;
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Creators;
use C4::Labels;
use CGI qw ( -utf8 );
use XML::Simple;
-use Data::Dumper;
-use C4::Creators;
use C4::Labels;
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw( get_label_summary html_table );
use C4::Labels;
use Koha::Items;
use Modern::Perl;
use CGI qw ( -utf8 );
-use POSIX;
+use POSIX qw( exit sprintf );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw(
+ get_barcode_types
+ get_font_types
+ get_label_types
+ get_text_justification_types
+);
use C4::Labels;
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw( get_all_templates get_unit_values );
use C4::Labels;
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $cgi = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw( get_all_profiles get_unit_values );
use C4::Labels;
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $cgi = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use Modern::Perl;
use CGI qw ( -utf8 );
-use List::Util qw( max min );
-use POSIX qw(ceil);
+use POSIX qw( ceil );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Search qw(SimpleSearch);
-use C4::Biblio qw(TransformMarcToKoha);
-use C4::Creators::Lib qw(html_table);
+use C4::Search qw( new_record_from_zebra );
+use C4::Biblio qw( TransformMarcToKoha );
+use C4::Creators::Lib qw( html_table );
use Koha::Logger;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Items;
use Koha::ItemTypes;
use Koha::SearchEngine::Search;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Data::Dumper;
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw(
+ get_all_layouts
+ get_all_profiles
+ get_all_templates
+ get_batch_summary
+ html_table
+);
use C4::Labels;
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Data::Dumper;
use C4::Context;
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators::Lib qw(get_all_templates get_all_layouts get_output_formats);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators::Lib qw(
+ get_all_layouts
+ get_all_templates
+ get_output_formats
+);
use C4::Labels::Batch;
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
# use Smart::Comments;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $scheme = C4::Context->preference('SpineLabelFormat');
my $query = CGI->new;
use warnings;
use CGI::Session::ErrorHandler;
-use YAML::XS ();
+use YAML::XS;
$CGI::Session::Serialize::yamlxs::VERSION = '0.1';
@CGI::Session::Serialize::yamlxs::ISA = ( "CGI::Session::ErrorHandler" );
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Koha;
-use C4::Tags qw/get_count_by_tag_status/;
+use C4::Tags qw( get_count_by_tag_status );
use Koha::News;
use Koha::Patron::Modifications;
use Koha::Patron::Discharge;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use Koha::Patrons;
use Koha::Account::Lines;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
use Koha::ApiKeys;
use Koha::Patrons;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use URI::Escape;
+use URI::Escape qw( uri_unescape );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
use CGI;
-use C4::Auth;
+use C4::Auth qw( checkauth );
use Koha::Token;
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Members;
-use C4::Suggestions qw( SearchSuggestion );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Suggestions;
use Koha::Patrons;
use Koha::Token;
use Koha::Patron::Categories;
=cut
use Modern::Perl;
-use Carp;
+use Carp qw( carp );
use CGI qw( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Members;
use C4::Reserves;
use C4::Letters;
use Koha::Patron::Discharge;
use Koha::Patrons;
-use Koha::DateUtils;
my $input = CGI->new;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Context;
use Koha::Patron::Discharge;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Members;
-use Koha::DateUtils;
use Koha::Patrons;
use Koha::Patron::Files;
use Koha::Patron::Categories;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Members;
use Koha::Patron::Categories;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patrons;
use Modern::Perl;
use CGI;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use DateTime;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Libraries;
use Koha::Patrons;
use Koha::Patron::Categories;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use Koha::Patrons;
my $input = CGI->new;
use Modern::Perl;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
-use C4::Items;
use Koha::Items;
use Koha::Patrons;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Try::Tiny;
-use URI::Escape;
+use Try::Tiny qw( catch try );
+use URI::Escape qw( uri_escape_utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
-use C4::Items;
use Koha::Token;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth qw(:DEFAULT :EditPermissions);
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user get_all_subpermissions get_user_subpermissions );
use C4::Context;
-use C4::Members;
-#use C4::Acquisitions;
use Koha::Patron::Categories;
use Koha::Patrons;
-use C4::Output;
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use Koha::Token;
my $input = CGI->new;
use Modern::Perl;
-use C4::Auth;
-use Koha::AuthUtils;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Context;
-use C4::Members;
-use C4::Circulation;
use CGI qw ( -utf8 );
-use Koha::AuthUtils;
use Koha::Token;
use Koha::Patrons;
use Koha::Patron::Categories;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
my $input = CGI->new;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use CGI qw( -utf8 );
-use Koha::DateUtils;
-use Koha::List::Patron;
+use Koha::List::Patron qw( GetPatronLists );
use Koha::Patrons;
my $input = CGI->new;
# external modules
use CGI qw ( -utf8 );
-use List::MoreUtils qw/uniq/;
# internal modules
-use C4::Auth;
+use C4::Auth qw( get_template_and_user haspermission );
use C4::Context;
-use C4::Output;
-use C4::Members;
-use C4::Koha;
-use C4::Log;
-use C4::Letters;
+use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_http_headers );
+use C4::Members qw( checkcardnumber get_cardnumber_length );
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Letters qw( SendAlerts );
use C4::Form::MessagingPreferences;
use Koha::AuthUtils;
use Koha::AuthorisedValues;
-use Koha::Patron::Debarments;
+use Koha::Patron::Debarments qw( AddDebarment DelDebarment GetDebarments );
use Koha::Cities;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
use Koha::Patrons;
use Koha::Patron::Attribute::Types;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use C4::Members;
use Koha::Patron::Modifications;
use Koha::Libraries;
-use Koha::List::Patron;
+use Koha::List::Patron qw( GetPatronLists );
use Koha::Patron::Categories;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
use C4::Context;
use Koha::Patrons;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use C4::Members;
use Koha::Patron::Attribute::Types;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use Koha::Patrons;
use CGI qw ( -utf8 );
-use C4::Auth;
-use Koha::DateUtils;
-use Koha::Patron::Debarments;
+use C4::Auth qw( checkauth );
+use Koha::DateUtils qw( dt_from_string );
+use Koha::Patron::Debarments qw( AddDebarment DelDebarment );
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Form::MessagingPreferences;
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
use Scalar::Util qw( looks_like_number );
use Koha::Patron::Attribute::Types;
-use Koha::Patron::Debarments qw(GetDebarments);
+use Koha::Patron::Debarments qw( GetDebarments );
use Koha::Patron::Messages;
-use Koha::DateUtils;
use Koha::CsvProfiles;
use Koha::Holds;
use Koha::Patrons;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Members;
use C4::Letters;
use Modern::Perl;
-use URI::Escape;
+use URI::Escape qw( uri_escape_utf8 uri_unescape );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
use Koha::Items;
use Koha::Patron::Categories;
-use URI::Escape;
+use URI::Escape qw( uri_escape_utf8 uri_unescape );
our $input = CGI->new;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use URI::Escape;
+use URI::Escape qw( uri_escape uri_unescape );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Members;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Accounts;
use C4::Koha;
use Koha::AuthorisedValues;
use Koha::Account;
use Koha::Token;
-use Koha::DateUtils;
+use Koha::DateUtils qw( output_pref );
my $input = CGI->new();
use CGI;
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Overdues qw(parse_overdues_letter);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
+use C4::Overdues qw( parse_overdues_letter );
use Koha::Patrons;
use Modern::Perl;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Letters;
use Koha::Account::Lines;
use Modern::Perl;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Letters;
use Koha::Account::Lines;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Output;
-use C4::Members;
-use C4::Koha;
-use Koha::DateUtils;
+use C4::Auth qw( get_session get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
+use C4::Members qw( IssueSlip );
my $input = CGI->new;
my $sessionID = $input->cookie("CGISESSID");
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Members;
-use C4::Suggestions;
+use C4::Suggestions qw( SearchSuggestion );
use Koha::Patrons;
my $input = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Members;
-use List::MoreUtils qw/any uniq/;
-use Koha::DateUtils;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
+use C4::Members qw( GetAllIssues );
+use List::MoreUtils qw( uniq );
+use Koha::DateUtils qw( dt_from_string );
use Koha::Patrons;
use Koha::Patron::Categories;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth qw/:DEFAULT/;
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Members;
use C4::Context;
use C4::Serials;
use Modern::Perl;
use CGI qw ( -utf8 );
+use C4::Auth qw( checkauth );
use C4::Context;
use C4::Members;
-use C4::Auth;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Members;
-use C4::Members::Statistics;
-use C4::Output;
+use C4::Members::Statistics qw(
+ GetPrecedentStateByBorrower
+ GetTotalIssuesReturnedTodayByBorrower
+ GetTotalIssuesTodayByBorrower
+);
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use Koha::Patrons;
use Koha::Patron::Categories;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Members;
use C4::Circulation qw( GetIssuingCharges );
use C4::Reserves;
-use C4::Items;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Holds;
use Koha::ItemTypes;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers output_and_exit_if_error output_and_exit );
use Koha::Patrons;
use Koha::Patron::Categories;
use Koha::Patrons;
use Modern::Perl;
BEGIN {
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use MARC::Field;
use C4::Biblio;
use Modern::Perl;
use Bytes::Random::Secure;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use String::Random;
use Koha::Patrons;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use JSON qw( encode_json decode_json );
-use Try::Tiny;
+use JSON qw( decode_json );
+use Try::Tiny qw( catch try );
use Koha::BackgroundJobs;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
use Koha::Script;
use C4::Context;
use MARC::File::USMARC;
-use MARC::Record;
use MARC::Batch;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use IO::File;
my ( $input_marc_file,$number,$nowarning,$frameworkcode) = ('',0);
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
# Koha modules used
use Koha::Script;
-use MARC::Record;
use C4::Context;
-use C4::Biblio;
-use Time::HiRes qw(gettimeofday);
+use C4::Biblio qw( GetMarcStructure );
+use Time::HiRes qw( gettimeofday );
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
my ( $input_marc_file, $number) = ('',0);
my ($version, $confirm,$test_parameter);
GetOptions(
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
use Koha::Script;
use C4::Context;
-use C4::Biblio;
-use MARC::Record;
+use C4::Biblio qw( GetMarcFromKohaField );
use MARC::File::USMARC;
use MARC::File::XML;
use MARC::Batch;
-use Time::HiRes qw(gettimeofday);
-use Getopt::Long;
+use Time::HiRes qw( gettimeofday );
+use Getopt::Long qw( GetOptions );
use IO::File;
my $input_marc_file = '';
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
use MARC::Record;
use C4::Charset;
use C4::Context;
-use C4::Biblio;
-use Time::HiRes qw(gettimeofday);
+use C4::Biblio qw(
+ GetXmlBiblio
+ TransformMarcToKoha
+);
+use Time::HiRes qw( gettimeofday );
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
my ($version, $confirm);
GetOptions(
use Modern::Perl;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use MARC::Field;
use MARC::Record;
-use Pod::Usage;
-use Time::HiRes qw(gettimeofday);
+use Pod::Usage qw( pod2usage );
+use Time::HiRes qw( gettimeofday );
use Koha::Script;
use C4::Context;
-use C4::Biblio;
-use C4::Items;
+use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField );
+use C4::Items qw( ModItemFromMarc );
=head1 NAME
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
# Koha modules used
use Koha::Script;
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio ModBiblioMarc );
my $dbh = C4::Context->dbh;
#!/usr/bin/perl
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
-use IO::File;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script;
-use C4::Biblio;
+use C4::Biblio qw( DelBiblio );
my $help;
GetOptions(
use strict;
use warnings;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
my ($help, $config, $daemon);
{
package ImportProxyServer;
-use Carp;
-use IO::Socket::INET;
+use Carp qw( croak );
+use IO::Socket::INET qw( SOCK_STREAM );
# use IO::Socket::IP;
use IO::Select;
-use POSIX;
-use HTTP::Status qw(:constants);
+use POSIX qw( close exit fork localtime open printf sprintf );
+use HTTP::Status qw( HTTP_FORBIDDEN HTTP_UNAUTHORIZED );
use strict;
use warnings;
use LWP::UserAgent;
-use XML::Simple;
+use XML::Simple qw( XMLin );
use MARC::Record;
use MARC::File::XML;
use strict;
use warnings;
-use File::Find;
+use File::Find qw( find );
use Koha::Script;
use C4::Context;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
use Koha::Script;
use C4::Context;
-use C4::ImportBatch;
-use Getopt::Long;
+use C4::ImportBatch qw( GetImportBatch BatchCommitRecords BatchRevertRecords );
+use Getopt::Long qw( GetOptions );
$| = 1;
use strict;
use warnings;
-use Getopt::Long;
-use Pod::Usage;
-use Data::Dumper;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
-use C4::Biblio;
use C4::Context;
use C4::Letters;
use C4::Members;
use C4::Members::Messaging;
-use C4::Overdues;
-use Koha::DateUtils;
-use C4::Log;
+use C4::Log qw( cronlogaction );
use Koha::Items;
use Koha::Libraries;
use Koha::Patrons;
use Modern::Perl;
-use Pod::Usage;
-use Getopt::Long;
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Suggestions;
-use C4::Koha;
+use C4::Koha qw( GetAuthorisedValues );
my ( $help, $verbose, $confirm, $age, $age_date_field, @statuses );
GetOptions(
use Modern::Perl;
use Koha::Checkouts;
use Koha::Script -cron;
-use C4::Log;
+use C4::Log qw( cronlogaction );
cronlogaction();
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use JSON;
use Koha::Script -cron;
use C4::Context;
use C4::Items;
-use C4::Log;
+use C4::Log qw( cronlogaction );
# Getting options
my ( $verbose, $help, $confirm );
=cut
use Modern::Perl;
-use Pod::Usage;
-use Getopt::Long;
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
-use C4::Circulation;
+use C4::Circulation qw( CanBookBeRenewed AddRenewal );
use C4::Context;
-use C4::Log;
+use C4::Log qw( cronlogaction );
use C4::Letters;
use Koha::Checkouts;
use Koha::Libraries;
use strict;
use warnings;
-use Carp;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
use C4::Context;
use Koha::Patrons;
-use Date::Calc qw(
- Today
- Add_Delta_Days
-);
-use Getopt::Long;
-use C4::Log;
+use Date::Calc qw( Add_Delta_Days Today );
+use Getopt::Long qw( GetOptions );
+use C4::Log qw( cronlogaction );
sub usage {
print STDERR <<USAGE;
use Koha::Script -cron;
use C4::Koha;
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio );
use Date::Calc;
use Time::HiRes qw(gettimeofday);
use ZOOM;
use warnings;
use Koha::Script -cron;
-use C4::Items qw/ CartToShelf /;
-use C4::Log;
+use C4::Items qw( CartToShelf );
+use C4::Log qw( cronlogaction );
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use C4::Context;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
my $hours = 0;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Pod::Usage;
-use Getopt::Long;
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio );
use AnyEvent;
-use AnyEvent::HTTP;
-use Encode;
+use AnyEvent::HTTP qw( http_request );
+use Encode qw( encode_utf8 );
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
my ( $host, $host_intranet ) = ( '', '' );
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use C4::Context;
use C4::Search;
use C4::Search::History;
-use Getopt::Long;
-use C4::Log;
-use C4::Accounts;
+use Getopt::Long qw( GetOptions );
+use C4::Log qw( cronlogaction );
+use C4::Accounts qw( purge_zero_balance_fees );
use Koha::UploadedFiles;
use Koha::Old::Biblios;
use Koha::Old::Items;
use strict;
use warnings;
use diagnostics;
-use Carp;
+use Carp qw( carp croak );
use YAML::XS;
-use Pod::Usage;
-use Getopt::Long;
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
use C4::Context;
-use C4::Log;
+use C4::Log qw( cronlogaction );
my $verbose = 0;
my $help = 0;
use strict;
use warnings;
use diagnostics;
-use Carp;
+use Carp qw( carp croak );
sub new {
my $self = {};
$|++;
use DBI;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script -cron;
use C4::Context;
#! /usr/bin/perl
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
use C4::Context;
-use C4::Items;
-use C4::Circulation;
use Modern::Perl;
-use Pod::Usage;
+use Pod::Usage qw( pod2usage );
my $dbh = C4::Context->dbh();
use Modern::Perl;
-use Pod::Usage;
-use Getopt::Long;
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
-use C4::Members;
-use Koha::DateUtils;
+use C4::Members qw( GetBorrowersToExpunge );
+use Koha::DateUtils qw( dt_from_string );
use Koha::Patrons;
-use C4::Log;
+use C4::Log qw( cronlogaction );
my ( $help, $verbose, $not_borrowed_since, $expired_before, $last_seen,
@category_code, $branchcode, $file, $confirm );
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script -cron;
-use C4::Biblio;
-use C4::Items;
+use C4::Biblio qw( DelBiblio );
use Koha::Database;
use Koha::Biblios;
use Koha::Biblio::Metadatas;
use C4::Context;
use Log::Log4perl qw(:easy);
use Koha::Database;
-use Koha::EDI qw( process_quote process_invoice process_ordrsp);
+use Koha::EDI qw( process_quote process_invoice process_ordrsp );
use Koha::Edifact::Transport;
use Koha::Plugins::Handler;
-use Fcntl qw( :DEFAULT :flock :seek );
+use Fcntl qw( LOCK_EX O_CREAT O_RDWR SEEK_SET );
my $logdir = C4::Context->config('logdir');
use Koha::Script -cron;
use C4::Context;
-use C4::Overdues;
-use Getopt::Long;
-use Carp;
+use C4::Overdues qw( Getoverdues CalcFine UpdateFine );
+use Getopt::Long qw( GetOptions );
+use Carp qw( carp croak );
use File::Spec;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use Koha::Calendar;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
-use C4::Log;
+use C4::Log qw( cronlogaction );
my $help;
my $verbose;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
+use CGI; # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
use Koha::Script -cron;
use C4::Context;
-use C4::Letters;
+use C4::Letters qw( GetPrintMessages );
use C4::Templates;
use File::Spec;
-use Pod::Usage;
-use Getopt::Long;
-use C4::Log;
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
+use C4::Log qw( cronlogaction );
-use Koha::DateUtils;
-use Koha::Util::OpenDocument;
+use Koha::DateUtils qw( dt_from_string output_pref );
+use Koha::Util::OpenDocument qw( generate_ods );
use MIME::Lite;
my (
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
use C4::Reserves;
-use C4::Log;
+use C4::Log qw( cronlogaction );
cronlogaction();
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
use C4::HoldsQueue qw(CreateQueue);
-use C4::Log;
+use C4::Log qw( cronlogaction );
cronlogaction();
=cut
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
use C4::Reserves;
-use C4::Log;
+use C4::Log qw( cronlogaction );
=head1 OPTIONS
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script -cron;
use C4::Reserves;
-use C4::Log;
+use C4::Log qw( cronlogaction );
use Koha::Holds;
use Koha::Calendar;
-use Koha::DateUtils;
use Koha::Libraries;
cronlogaction();
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
-use Text::CSV_XS;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use DateTime;
use DateTime::Duration;
use C4::Context;
use C4::Letters;
-use C4::Log;
-use Koha::DateUtils;
+use C4::Log qw( cronlogaction );
+use Koha::DateUtils qw( dt_from_string );
use Koha::Calendar;
use Koha::Libraries;
use Koha::Notice::Templates;
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
-use C4::ImportBatch;
+use C4::ImportBatch qw( BatchCommitRecords );
my ($help, $framework);
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
-use C4::Circulation qw/LostItem MarkIssueReturned/;
+use C4::Circulation qw( LostItem MarkIssueReturned );
use C4::Context;
-use C4::Items;
-use C4::Log;
+use C4::Log qw( cronlogaction );
use Koha::ItemTypes;
use Koha::Patron::Categories;
use Koha::Patrons;
=cut
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
-use Data::Dumper;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
use C4::Context;
use C4::Letters;
-use C4::Log;
+use C4::Log qw( cronlogaction );
use Koha::Patrons;
#!/usr/bin/perl
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
-use Time::HiRes qw(gettimeofday);
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
+use Time::HiRes qw( gettimeofday );
use Koha::Script -cron;
use C4::AuthoritiesMarc;
use Modern::Perl;
-use Pod::Usage;
-use Getopt::Long;
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
-use C4::Budgets qw( GetBudget );
-use C4::Suggestions qw( GetUnprocessedSuggestions );
+use C4::Budgets;
+use C4::Suggestions;
use Koha::Libraries;
use Koha::Patrons;
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Text::CSV_XS;
use DateTime;
use DateTime::Duration;
use Koha::Script -cron;
use C4::Context;
use C4::Letters;
-use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes parse_overdues_letter);
-use C4::Log;
-use Koha::Patron::Debarments qw(AddUniqueDebarment);
-use Koha::DateUtils;
+use C4::Overdues qw( GetOverdueMessageTransportTypes parse_overdues_letter );
+use C4::Log qw( cronlogaction );
+use Koha::Patron::Debarments qw( AddUniqueDebarment );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Calendar;
use Koha::Libraries;
use Koha::Acquisition::Currencies;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
-use C4::Log;
-use C4::Reports::Guided;
+use C4::Log qw( cronlogaction );
+use C4::Reports::Guided qw( EmailReport );
cronlogaction();
use Modern::Perl;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use C4::Context;
-use C4::Log;
+use C4::Log qw( cronlogaction );
use Koha::Logger;
use Koha::Plugins;
use Koha::Script -cron;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
-use C4::Letters;
-use C4::Log;
-use Getopt::Long;
-use Try::Tiny;
+use C4::Letters qw( SendQueuedMessages );
+use C4::Log qw( cronlogaction );
+use Getopt::Long qw( GetOptions );
+use Try::Tiny qw( catch try );
my $username = undef;
my $password = undef;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
use C4::Suggestions;
-use C4::Log;
+use C4::Log qw( cronlogaction );
use C4::Context;
my ( $help, $days, $confirm );
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
-use Try::Tiny;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
+use Try::Tiny qw( catch try );
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
-use C4::Log;
+use C4::Log qw( cronlogaction );
use Koha::Account::Lines;
use Koha::Patrons;
use Koha::Script -cron;
use C4::Context;
-use Time::Local;
-use POSIX;
+use POSIX qw( close localtime open strftime );
my $dbh = C4::Context->dbh;
my $file = $ARGV[0];
use Modern::Perl;
use Koha::Script -cron;
-use C4::Reports::Guided; # 0.12
+use C4::Reports::Guided qw( store_results execute_query );
use Koha::Reports;
use C4::Context;
-use C4::Log;
+use C4::Log qw( cronlogaction );
use Koha::Email;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::SMTP::Servers;
-use Getopt::Long qw(:config auto_help auto_version);
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Text::CSV::Encoded;
use CGI qw ( -utf8 );
-use Carp;
-use Encode;
+use Carp qw( carp );
+use Encode qw( decode );
use JSON qw( to_json );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
use C4::Context;
-use C4::Serials;
-use C4::Log;
-use Koha::DateUtils;
+use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus );
use C4::Serials::Frequency;
+use C4::Log qw( cronlogaction );
+use Koha::DateUtils qw( dt_from_string output_pref );
-use Date::Calc qw/Date_to_Days check_date/;
-use Getopt::Long;
-use Pod::Usage;
+use Date::Calc qw( check_date Date_to_Days );
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
=head1 NAME
use Modern::Perl;
-use Pod::Usage;
-use Getopt::Long;
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
use C4::Context;
use C4::UsageStats;
-use C4::Log;
-use POSIX qw(strftime);
+use C4::Log qw( cronlogaction );
+use POSIX qw( strftime );
my ( $help, $verbose, $force, $quiet );
GetOptions(
use Modern::Perl;
use utf8;
-use Pod::Usage;
-use Getopt::Long;
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
-use C4::Biblio;
use Koha::Sitemapper;
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
-use Date::Calc qw/Date_to_Days/;
+use Date::Calc qw( Date_to_Days );
use Koha::Script -cron;
use C4::Context;
-use C4::Circulation;
-use C4::Overdues;
+use C4::Overdues qw( CalcFine checkoverdues GetFine Getoverdues );
use C4::Calendar qw(); # don't need any exports from Calendar
-use C4::Biblio;
-use C4::Log;
-use Getopt::Long;
-use List::MoreUtils qw/none/;
-use Koha::DateUtils;
+use C4::Log qw( cronlogaction );
+use Getopt::Long qw( GetOptions );
+use List::MoreUtils qw( none );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
my $help = 0;
=cut
use Modern::Perl;
-use Getopt::Long qw/HelpMessage :config gnu_getopt/;
+use Getopt::Long qw( GetOptions HelpMessage );
use Koha::Script -cron;
use C4::Context;
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script -cron;
use C4::Context;
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script -cron;
use C4::Context;
-use C4::Items;
use C4::Letters;
use C4::Overdues;
use Koha::Calendar;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use Koha::Libraries;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use C4::Context;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Logger;
use Koha::Patrons;
use Koha::Patron::Categories;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Script -cron;
=head1 NAME
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script -cron;
-use Koha::DateUtils qw/ dt_from_string /;
+use Koha::DateUtils qw( dt_from_string );
use C4::Context;
-use C4::Biblio;
-use C4::Log;
+use C4::Biblio qw( UpdateTotalIssues );
+use C4::Log qw( cronlogaction );
use DateTime;
use DateTime::Format::MySQL;
-use Time::HiRes qw/time/;
-use POSIX qw/strftime ceil/;
+use Time::HiRes qw( time );
+use POSIX qw( ceil strftime );
sub usage {
pod2usage( -verbose => 2 );
use Modern::Perl;
use feature 'say';
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Account::Lines;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Script -cron;
use Modern::Perl;
-use File::Slurp;
-use Pod::Usage;
-use Getopt::Long;
+use File::Slurp qw( read_file write_file );
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
use t::lib::QA::TemplateFilters;
use Modern::Perl;
use C4::Context;
-use Cwd;
-use Getopt::Long;
-use Pod::Usage;
+use Cwd qw( getcwd );
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
my $help;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script;
use Koha::Patrons;
use Modern::Perl;
-use Getopt::Long;
-use JSON;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use JSON qw( decode_json );
+use Pod::Usage qw( pod2usage );
-use C4::Letters;
+use C4::Letters qw( GetPreparedLetter );
my $help;
my ( $module, $letter_code, $branchcode, $message_transport_type, $lang,
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script;
use Modern::Perl;
use DBIx::Class::Schema::Loader qw/ make_schema_at /;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
my %db_defaults = (
driver => 'mysql',
use Modern::Perl;
use Text::CSV;
-use Getopt::Long qw(:config no_ignore_case);
+use Getopt::Long qw( GetOptions );
use Koha::Script;
use C4::Context;
use Modern::Perl;
use MARC::File::XML;
-use List::MoreUtils qw(uniq);
-use Getopt::Long;
-use Pod::Usage;
+use List::MoreUtils qw( uniq );
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script;
use C4::Auth;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
use Koha::Script;
use C4::Context;
-use C4::Biblio;
use C4::Auth;
my $outfile = $ARGV[0];
open(my $fh, '>', $outfile) or die $!;
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script;
use Koha::Patrons::Import;
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
use Koha::Script;
use C4::Context;
-use C4::Biblio;
-use Getopt::Long;
-use Pod::Usage;
-use Data::Dumper;
-use Time::HiRes qw/time/;
-use POSIX qw/strftime ceil/;
-use Module::Load::Conditional qw(can_load);
+use C4::Biblio qw(
+ GetFrameworkCode
+ GetMarcBiblio
+ LinkBibHeadingsToAuthorities
+ ModBiblio
+);
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
+use Time::HiRes qw( time );
+use POSIX qw( ceil strftime );
+use Module::Load::Conditional qw( can_load );
sub usage {
pod2usage( -verbose => 2 );
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
use HTTPD::Bench::ApacheBench;
use LWP::UserAgent;
-use Data::Dumper;
use HTTP::Cookies;
use C4::Context;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use HTTPD::Bench::ApacheBench;
use LWP::UserAgent;
-use Data::Dumper;
use HTTP::Cookies;
use C4::Context;
-use URI::Escape;
+use URI::Escape qw( uri_escape_utf8 );
use Koha::Patrons;
my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print);
#
# Requires LWP::UserAgent, File::Slurp.
use LWP::UserAgent;
-use File::Slurp qw(slurp);
-use Carp;
+use File::Slurp qw( slurp );
my $ua = LWP::UserAgent->new();
$ua->cookie_jar({ file =>"cookies.txt" });
my $baseurl = shift;
use Modern::Perl;
use Koha::Script;
-use Getopt::Long qw(:config no_ignore_case);
+use Getopt::Long qw( GetOptions );
use C4::Context;
use C4::Installer;
use warnings;
BEGIN {
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script;
-use C4::Biblio;
sub process {
use warnings;
BEGIN {
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script;
-use C4::Biblio;
-use Getopt::Long;
+use C4::Biblio qw( GetMarcBiblio ModBiblio );
+use Getopt::Long qw( GetOptions );
sub _read_marc_code {
my $input = shift;
# which hidden fields in the framework still contain data.
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script;
use Koha::Authorities;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script;
use C4::Context;
use C4::Members::Messaging;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
sub usage {
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Encode qw( encode_utf8 );
use Koha::Script;
use Modern::Perl;
use open OUT => ':encoding(UTF-8)', ':std';
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script;
use C4::Context;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script;
use C4::Context;
-use Getopt::Long;
-use Pod::Usage;
-use Koha::DateUtils;
+use Getopt::Long qw( GetOptions );
+use Koha::DateUtils qw( dt_from_string output_pref );
=head1 NAME
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script;
use C4::Context;
-use C4::Installer;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use Data::Dumper;
sub print_usage {
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
my $lib = "$FindBin::Bin/../kohalib.pl";
eval { require $lib };
}
-use Getopt::Long;
-use Pod::Usage;
-use Try::Tiny;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
+use Try::Tiny qw( catch try );
use Koha::Script;
use C4::Context;
use Koha::Tags::Approvals;
use Koha::Tags::Indexes;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
=head1 NAME
#
use Modern::Perl;
-use XML::Simple;
-use Pod::Usage;
-use Getopt::Long;
-use Carp;
+use XML::Simple qw( XMLin );
+use Pod::Usage qw( pod2usage );
+use Getopt::Long qw( GetOptions );
+use Carp qw( croak );
use open ':std', ':encoding(UTF-8)';
use Koha::Script;
use Koha::RecordProcessor;
-use Data::Dumper;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio );
my $record = GetMarcBiblio({ biblionumber => $ARGV[0] });
use Koha::Script;
use C4::Context;
-use C4::Biblio;
-use Getopt::Long;
+use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio );
+use Getopt::Long qw( GetOptions );
my ($wherestring, $run, $silent, $want_help);
my $result = GetOptions(
use Modern::Perl;
use Koha::Script;
-use C4::Charset qw( SanitizeRecord );
+use C4::Charset;
use C4::Context;
-use DBI;
use C4::Biblio;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
my ( $help, $verbose, $confirm, $biblionumbers, $reindex, $filename,
$auto_search, $fix_ampersand );
use Koha::Biblioitems;
use Koha::Items;
use Koha::ItemTypes;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcFromKohaField );
{
my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
# possible modules to use
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use Koha::Script;
use C4::Context;
-use C4::Biblio;
-use Pod::Usage;
+use C4::Biblio qw( GetMarcBiblio ModBiblio );
+use Pod::Usage qw( pod2usage );
sub usage {
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
# possible modules to use
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use Koha::Script;
use C4::Context;
-use C4::Items;
use Koha::Items;
-use Pod::Usage;
+use Pod::Usage qw( pod2usage );
sub usage {
use Modern::Perl;
-use Getopt::Long;
-use List::MoreUtils qw/uniq/;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use List::MoreUtils qw( uniq );
+use Pod::Usage qw( pod2usage );
use Koha::Script;
use C4::AuthoritiesMarc qw/AddAuthority DelAuthority GetAuthority merge/;
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../../kohalib.pl" };
}
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
#use MARC::File::XML(BinaryEncoding=>"utf8");
#use MARC::File::USMARC;
-use MARC::Record;
use C4::AuthoritiesMarc;
-use POSIX;
+use POSIX qw( close localtime sprintf time );
#MARC::File::XML::default_record_format("UNIMARCAUTH");
my $dbh = C4::Context->dbh;
my $rq= $dbh->prepare(qq|
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
use MARC::File::XML(BinaryEncoding=>"utf8");
-use MARC::Record;
use C4::AuthoritiesMarc;
-use POSIX;
+use POSIX qw( close localtime open sprintf time );
MARC::File::XML::default_record_format("UNIMARCAUTH");
my $dbh = C4::Context->dbh;
my $rq= $dbh->prepare(qq|
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../../kohalib.pl" };
}
# Koha modules used
use C4::Context;
-use C4::Biblio;
-use MARC::Record;
+use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblioMarc );
use MARC::File::USMARC;
$|=1;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
-use C4::Biblio;
use MARC::Record;
use MARC::File::XML ( BinaryEncoding => 'utf8' );
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../../kohalib.pl" };
}
# Koha modules used
use C4::Context;
-use C4::Biblio;
-use MARC::Record;
+use C4::Biblio qw( ModBiblioMarc );
use MARC::File::USMARC;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../../kohalib.pl" };
}
# Koha modules used
use C4::Context;
-use C4::Biblio;
-use MARC::Record;
+use C4::Biblio qw( GetMarcBiblio ModBiblioMarc );
use MARC::File::USMARC;
# Koha modules used
use Koha::Script;
use C4::Context;
-use C4::Biblio;
use C4::AuthoritiesMarc;
-use Time::HiRes qw(gettimeofday);
+use Time::HiRes qw( gettimeofday );
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
my ( $fields, $number,$language) = ('',0);
my ($version, $verbose, $test_parameter, $delete);
GetOptions(
use MARC::Batch;
use Koha::Script;
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio );
use C4::AuthoritiesMarc;
-use Time::HiRes qw(gettimeofday);
+use Time::HiRes qw( gettimeofday );
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
my ( $input_marc_file, $number) = ('',0);
my ($version, $verbose, $test_parameter, $confirm,$delete);
GetOptions(
# Koha modules used
use Koha::Script;
use C4::Context;
-use C4::Biblio;
use C4::AuthoritiesMarc;
-use Time::HiRes qw(gettimeofday);
+use Time::HiRes qw( gettimeofday );
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
my ( $fields, $number,$language) = ('',0);
my ($version, $verbose, $test_parameter, $delete);
GetOptions(
use Modern::Perl;
use MARC::Record;
use MARC::File::XML;
-use List::MoreUtils qw/uniq/;
-use Getopt::Std;
+use List::MoreUtils qw( uniq );
+use Getopt::Std qw( getopts );
use Koha::Script;
use C4::Context;
-use C4::Charset qw/StripNonXmlChars/;
+use C4::Charset qw( StripNonXmlChars );
use C4::Biblio;
-use C4::OAI::Sets;
+use C4::OAI::Sets qw(
+ AddOAISetsBiblios
+ CalcOAISetsBiblio
+ GetOAISet
+ GetOAISetBySpec
+ GetOAISets
+ GetOAISetsMappings
+ ModOAISetsBiblios
+);
my %opts;
$Getopt::Std::STANDARD_HELP_VERSION = 1;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
# Koha modules used
use MARC::File::USMARC;
use MARC::File::XML;
-use MARC::Record;
use MARC::Batch;
-use MARC::Charset;
use Encode;
use Koha::Script;
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw(
+ AddBiblio
+ GetMarcFromKohaField
+ ModBiblio
+ ModBiblioMarc
+);
use C4::Koha;
-use C4::Charset;
-use C4::Items;
-use C4::MarcModificationTemplates;
+use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
+use C4::Items qw( AddItemBatchFromMarc );
+use C4::MarcModificationTemplates qw(
+ GetModificationTemplates
+ ModifyRecordWithTemplate
+);
use YAML::XS;
-use Unicode::Normalize;
-use Time::HiRes qw(gettimeofday);
-use Getopt::Long;
+use Time::HiRes qw( gettimeofday );
+use Getopt::Long qw( GetOptions );
use IO::File;
-use Pod::Usage;
+use Pod::Usage qw( pod2usage );
use Koha::Logger;
use Koha::Biblios;
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
# Koha modules used
-use MARC::Record;
use Koha::Script;
use C4::Context;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use Koha::SearchEngine::Search;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script;
use C4::Context;
-use C4::Biblio;
-use C4::Items;
+use C4::Biblio qw( GetMarcBiblio ModBiblio );
use Koha::Items;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
$| = 1;
use Modern::Perl;
-use Date::Format;
-use File::Basename;
-use FindBin qw($Bin);
-use Getopt::Long;
+use Date::Format qw( time2str );
+use File::Basename qw( basename );
+use FindBin qw( $Bin );
+use Getopt::Long qw( GetOptions );
use Locale::PO;
use YAML::XS;
use utf8;
use Modern::Perl;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use Text::CSV;
use Koha::Script;
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio ModBiblio );
use C4::Koha qw( GetVariationsOfISBN );
use Koha::Biblios;
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use strict;
use LWP::UserAgent;
-use File::Slurp;
+use File::Slurp qw( read_file write_file );
if ( $#ARGV >= 3 && ! caller ) { # process command-line params only if not called as module!
my ( $url, $user, $password, $biblionumber, $file ) = @ARGV;
use Koha::Script;
use C4::Context;
-use Getopt::Long;
-use Fcntl qw(:flock);
-use File::Temp qw/ tempdir /;
-use File::Path;
-use C4::Biblio;
+use Getopt::Long qw( GetOptions );
+use Fcntl qw( LOCK_EX LOCK_NB LOCK_UN );
+use File::Temp qw( tempdir );
+use File::Path qw( mkpath rmtree );
+use C4::Biblio qw( GetXmlBiblio );
use C4::AuthoritiesMarc;
-use C4::Items;
+use C4::Items qw( GetItemsInfo Item2Marc );
use Koha::RecordProcessor;
use Koha::Caches;
use XML::LibXML;
use Koha::Script;
use C4::Context;
use C4::AuthoritiesMarc;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use Koha::SearchEngine::Search;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script;
-use C4::Biblio;
+use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblioMarc );
use C4::Context;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
my $commit;
my $add_links;
use Koha::Script;
use C4::Context;
-use C4::Items;
-use C4::Biblio;
+use C4::Items qw( ModItemFromMarc );
+use C4::Biblio qw( GetMarcBiblio );
my $dbh=C4::Context->dbh;
use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Script;
-use C4::Biblio;
+use C4::Biblio qw( ModZebra );
my @biblios;
my @authorities;
use Koha::Script;
use C4::Context;
-use C4::Items;
-use Data::Dumper;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use Koha::Items;
my $dbh = C4::Context->dbh;
use warnings;
use XML::SAX;
-use Encode;
+use Encode qw( encode_utf8 );
my $parser = XML::SAX::ParserFactory->parser(
Handler => MySAXHandler->new
use Koha::SearchEngine::Elasticsearch;
use YAML::XS;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
my $type = '';
my $man;
=cut
use autodie;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use Koha::Script;
use C4::Context;
use Koha::MetadataRecord::Authority;
use Koha::SearchEngine::Elasticsearch;
use Koha::SearchEngine::Elasticsearch::Indexer;
use MARC::Field;
-use MARC::Record;
use Modern::Perl;
-use Pod::Usage;
-use Try::Tiny;
+use Pod::Usage qw( pod2usage );
+use Try::Tiny qw( catch try );
my $verbose = 0;
my $commit = 5000;
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
- use FindBin;
+ use FindBin ();
eval { require "$FindBin::Bin/kohalib.pl" };
}
use Koha::Script;
use C4::Context;
-use C4::ImportBatch;
+use C4::ImportBatch qw( RecordsFromISO2709File RecordsFromMARCXMLFile BatchStageMarcRecords SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates );
use C4::Matcher;
-use C4::MarcModificationTemplates;
-use Getopt::Long;
+use C4::MarcModificationTemplates qw( GetModificationTemplates );
+use Getopt::Long qw( GetOptions );
$| = 1;
use Modern::Perl;
-use C4::Context;
+use C4::Context qw( config preference new interface );
# WARNING: Any other tested YAML library fails to work properly in this
# script content
# FIXME Really?
use YAML::XS;
use Locale::PO;
use FindBin qw( $Bin );
-use File::Basename;
use File::Path qw( make_path );
use File::Copy;
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 );
package VerboseWarnings;
use Modern::Perl;
-require Exporter;
-
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
###############################################################################
###############################################################################
-
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(
- &pedantic_p
- &warn_additional
- &warn_normal
- &warn_pedantic
- &error_additional
- &error_normal
-);
-%EXPORT_TAGS = (
- 'warn' => [ 'warn_additional', 'warn_normal', 'warn_pedantic' ],
- 'die' => [ 'error_additional', 'error_normal' ],
-);
+our (@ISA, @EXPORT_OK);
+BEGIN {
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ &pedantic_p
+ &warn_additional
+ &warn_normal
+ &warn_pedantic
+ &error_additional
+ &error_normal
+ );
+}
###############################################################################
use strict;
#use warnings; FIXME - Bug 2505
-use File::Basename;
-use Getopt::Long;
+use File::Basename qw( fileparse );
+use Getopt::Long qw( GetOptions );
use Locale::PO;
-use File::Temp qw( :POSIX );
use TmplTokenizer;
use VerboseWarnings qw( :warn :die );
use strict;
use warnings;
-use Getopt::Long;
-use POSIX;
+use Getopt::Long qw( GetOptions );
+use POSIX qw( close exit localtime open printf time );
use Locale::PO;
use TmplTokenizer;
use VerboseWarnings;
use Modern::Perl;
-use Carp;
-use File::Basename;
-use Getopt::Long qw(:config no_ignore_case);
-use Pod::Usage;
+use File::Basename qw( fileparse );
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Config;
use Koha::Z3950Responder;
use Modern::Perl;
use CGI qw ( -utf8 );
-use JSON;
-use C4::Auth;
+use JSON qw( to_json );
+use C4::Auth qw( checkauth );
use C4::Output;
use C4::Context;
use C4::Koha;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Biblio;
use C4::Accounts;
-use C4::Circulation;
-use C4::Items;
+use C4::Circulation qw( AddOfflineOperation );
use C4::Members;
use C4::Stats;
use Koha::Checkouts;
use Koha::UploadedFiles;
use Koha::Items;
-use Date::Calc qw( Add_Delta_Days Date_to_Days );
# this is the file version number that we're coded against.
my $FILE_VERSION = '1.0';
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Circulation;
+use C4::Circulation qw( GetOfflineOperations GetOfflineOperation );
use C4::Members;
-use C4::Biblio;
use Koha::Patrons;
use Koha::Items;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Circulation;
+use C4::Auth qw( get_template_and_user );
+use C4::Circulation qw( GetOfflineOperation ProcessOfflineOperation DeleteOfflineOperation );
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Carp;
-use C4::Output;
-use C4::Auth;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Biblio;
use C4::Accounts;
-use C4::Circulation;
-use C4::Items;
+use C4::Circulation qw( barcodedecode GetOpenIssue AddRenewal AddIssue MarkIssueReturned );
+use C4::Items qw( ModDateLastSeen );
use C4::Members;
use C4::Stats;
use C4::BackgroundJob;
use Koha::Checkouts;
use Koha::Patrons;
-use Date::Calc qw( Add_Delta_Days Date_to_Days );
+use Date::Calc qw( Date_to_Days );
use constant DEBUG => 0;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Circulation;
-use Koha::DateUtils;
+use C4::Auth qw( check_api_auth check_cookie_auth );
+use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation );
+use Koha::DateUtils qw( dt_from_string );
use DateTime::TimeZone;
my $cgi = CGI->new;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patrons;
my $cgi = CGI->new;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Clubs;
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $query = CGI->new;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
use Modern::Perl;
use CGI qw ( -utf8 );
use URI;
-use URI::Escape;
-use C4::Auth qw(checkauth);
+use URI::Escape qw( uri_escape );
use Koha::Logger;
use Koha::ExternalContent::OverDrive;
use Modern::Perl;
use C4::ILSDI::Services;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
-use XML::Simple;
+use List::MoreUtils qw( any );
+use XML::Simple qw( XMLout );
use CGI qw ( -utf8 );
use Net::Netmask;
use CGI qw ( -utf8 );
use C4::Auth;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Templates qw/gettemplate/;
use Koha;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( parametrized_url output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Biblio;
-use C4::Items;
+use C4::Biblio qw(
+ CountItemsIssued
+ GetISBDView
+ GetMarcControlnumber
+ GetMarcISSN
+ TransformMarcToKoha
+);
use C4::Reserves;
-use C4::Acquisition;
-use C4::Serials; # uses getsubscriptionfrom biblionumber
-use C4::Koha;
+use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
+use C4::Koha qw(
+ GetNormalizedEAN
+ GetNormalizedISBN
+ GetNormalizedOCLCNumber
+ GetNormalizedUPC
+);
use Koha::CirculationRules;
use Koha::ItemTypes;
use Koha::Patrons;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( parametrized_url output_html_with_http_headers );
use CGI qw ( -utf8 );
-use MARC::Record;
-use C4::Biblio;
-use C4::Items;
+use C4::Biblio qw(
+ CountItemsIssued
+ GetAuthorisedValueDesc
+ GetMarcBiblio
+ GetMarcControlnumber
+ GetMarcFromKohaField
+ GetMarcISSN
+ GetMarcStructure
+ TransformMarcToKoha
+);
use C4::Reserves;
use C4::Members;
-use C4::Acquisition;
-use C4::Koha;
-use List::MoreUtils qw( any uniq );
+use C4::Koha qw( GetNormalizedISBN );
+use List::MoreUtils qw( uniq );
use Koha::Biblios;
use Koha::CirculationRules;
use Koha::Items;
use Koha::ItemTypes;
use Koha::Patrons;
use Koha::RecordProcessor;
-use Koha::DateUtils;
+use Koha::DateUtils qw( output_pref );
my $query = CGI->new();
use CGI;
-use C4::Auth;
+use C4::Auth qw( checkauth );
use Koha::Plugins::Handler;
my $cgi = CGI->new;
use Modern::Perl;
use CGI;
-use HTTP::Request::Common;
-use LWP::UserAgent;
-use URI;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
use C4::Context;
use Koha::Acquisition::Currencies;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Members;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Account::Lines;
use Koha::Patrons;
use Koha::Plugins;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Biblio;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use Koha::Biblios;
use Koha::Virtualshelves;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Koha;
-use C4::Letters;
-use C4::Serials;
+use C4::Serials qw( GetSubscription );
my $query = CGI->new;
use CGI qw ( -utf8 );
use C4::Output;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use Koha::ArticleRequests;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use URI::Escape;
-use C4::Auth;
+use URI::Escape qw( uri_escape_utf8 );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::AuthoritiesMarc;
+use C4::Output qw( pagination_bar output_html_with_http_headers );
use C4::Koha;
use C4::Search::History;
use Modern::Perl;
-use C4::AuthoritiesMarc;
-use C4::Auth;
-use C4::Biblio qw(GetMarcUrls);
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetMarcUrls );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
+use C4::AuthoritiesMarc qw( GetAuthority BuildSummary );
use CGI qw ( -utf8 );
-use MARC::Record;
use C4::Koha;
use Koha::Authorities;
use CGI qw ( -utf8 );
use C4::Koha;
-use C4::Biblio;
-use C4::Items;
-use C4::Circulation;
-use C4::Auth;
-use C4::Output;
+use C4::Biblio qw(
+ GetBiblioData
+ GetFrameworkCode
+ GetMarcAuthors
+ GetMarcBiblio
+ GetMarcSeries
+ GetMarcSubjects
+ GetMarcUrls
+);
+use C4::Items qw( GetHiddenItemnumbers GetItemsInfo );
+use C4::Circulation qw( GetTransfers );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::RecordProcessor;
use Koha::CsvProfiles;
use Koha::AuthorisedValues;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
use C4::Context;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::SearchEngine::Elasticsearch;
use Koha::SearchEngine::Elasticsearch::Browse;
use Koha::SearchEngine::Elasticsearch::QueryBuilder;
use Koha::SearchEngine::Elasticsearch::Search;
-use JSON;
+use JSON qw( to_json );
use Unicode::Collate;
my $query = CGI->new;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Biblio;
my $query = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::CourseReserves qw(GetCourse GetCourseReserves);
+use C4::CourseReserves qw( GetCourse GetCourseReserve GetCourseReserves );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::CourseReserves qw(SearchCourses);
+use C4::CourseReserves qw( SearchCourses );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
use C4::Acquisition qw( SearchOrders );
-use C4::Auth qw(:DEFAULT get_session);
-use C4::Koha;
-use C4::Serials; #uses getsubscriptionfrom biblionumber
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
-use C4::Circulation;
-use C4::Tags qw(get_tags);
-use C4::XISBN qw(get_xisbns);
-use C4::External::Amazon;
+use C4::Auth qw( get_template_and_user get_session );
+use C4::Koha qw(
+ getitemtypeimagelocation
+ GetNormalizedEAN
+ GetNormalizedISBN
+ GetNormalizedOCLCNumber
+ GetNormalizedUPC
+);
+use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
+use C4::Output qw( parametrized_url output_html_with_http_headers );
+use C4::Biblio qw(
+ CountItemsIssued
+ GetBiblioData
+ GetMarcAuthors
+ GetMarcBiblio
+ GetMarcControlnumber
+ GetMarcISBN
+ GetMarcISSN
+ GetMarcSeries
+ GetMarcSubjects
+ GetMarcUrls
+);
+use C4::Items qw( GetHiddenItemnumbers GetItemsInfo );
+use C4::Circulation qw( GetTransfers );
+use C4::Tags qw( get_tags );
+use C4::XISBN qw( get_xisbns );
+use C4::External::Amazon qw( get_amazon_tld );
use C4::External::BakerTaylor qw( image_url link_url );
-use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes );
+use C4::External::Syndetics qw(
+ get_syndetics_anotes
+ get_syndetics_excerpt
+ get_syndetics_index
+ get_syndetics_reviews
+ get_syndetics_summary
+ get_syndetics_toc
+);
use C4::Members;
-use C4::XSLT;
-use C4::ShelfBrowser;
-use C4::Reserves;
-use C4::Charset;
-use C4::Letters;
-use MARC::Record;
+use C4::XSLT qw( XSLTParse4Display );
+use C4::ShelfBrowser qw( GetNearbyItems );
+use C4::Reserves qw( GetReserveStatus );
+use C4::Charset qw( SetUTF8Flag );
use MARC::Field;
-use List::MoreUtils qw/any none/;
-use Koha::DateUtils;
+use List::MoreUtils qw( any );
use C4::HTML5Media;
-use C4::CourseReserves qw(GetItemCourseReservesInfo);
+use C4::CourseReserves qw( GetItemCourseReservesInfo );
use Koha::Biblios;
use Koha::RecordProcessor;
use Koha::Reviews;
use Koha::SearchEngine::Search;
-use Try::Tiny;
my $query = CGI->new();
my %paging = (previous => {}, next => {});
if ($session->param('busc')) {
use C4::Search;
- use URI::Escape;
+ use URI::Escape qw( uri_escape_utf8 uri_unescape );
# Rebuild the string to store on session
# param value is URI encoded and params separator is HTML encode (&)
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Carp;
+use Carp qw( carp );
-use C4::Auth qw(:DEFAULT get_session);
+use C4::Auth qw( get_template_and_user );
use CGI qw( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Log;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patrons;
use Koha::Patron::Discharge;
-use Koha::DateUtils;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Encode qw(encode);
+use Encode qw( encode );
-use C4::Auth;
-use C4::Biblio;
-use C4::Items;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio );
+use C4::Output qw( output_html_with_http_headers );
use C4::Record;
-use C4::Ris;
+use C4::Ris qw( marc2ris );
use Koha::CsvProfiles;
use Koha::RecordProcessor;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Encode qw(encode);
-use C4::Auth;
-use C4::Biblio;
-use C4::Items;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio );
+use C4::Output qw( output_html_with_http_headers );
use C4::Record;
-use C4::Ris;
+use C4::Ris qw( marc2ris );
use Koha::CsvProfiles;
use Koha::RecordProcessor;
use Koha::Virtualshelves;
use C4::Record;
use C4::Auth;
use C4::Output;
-use C4::Biblio;
+use C4::Biblio qw(
+ GetFrameworkCode
+ GetISBDView
+ GetMarcBiblio
+ GetMarcControlnumber
+);
use CGI qw ( -utf8 );
use C4::Auth;
-use C4::Ris;
+use C4::Ris qw( marc2ris );
use Koha::RecordProcessor;
my $query = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patrons;
use Koha::Holds;
use DateTime::Event::ICal;
use URI;
-use C4::Auth;
-use C4::Koha;
-use C4::Circulation;
-use C4::Members;
-use Koha::DateUtils;
+use C4::Auth qw( get_template_and_user );
+use Koha::DateUtils qw( dt_from_string );
my $query = CGI->new;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
use CGI;
use LWP::UserAgent;
-use HTTP::Request::Common;
-use JSON;
+use JSON qw( from_json );
use Encode;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
my $cgi = CGI->new;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
use JSON qw( encode_json );
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Koha;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Illrequest::Config;
use Koha::Illrequests;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Biblio;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Biblios;
use Koha::CoverImages;
use C4::Koha;
use C4::Context;
use C4::Scrubber;
-use C4::Output;
-use C4::Auth;
-use C4::Biblio;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Letters;
use Koha::Checkouts;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Patrons;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Libraries;
my $query = CGI->new();
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth; # get_template_and_user
-use C4::Output;
-use C4::Languages qw(getTranslatedLanguages accept_language);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Quotes;
use C4::Members;
-use C4::Overdues;
+use C4::Overdues qw( checkoverdues );
use Koha::Checkouts;
use Koha::Holds;
use Koha::News;
use CGI qw ( -utf8 );
use Digest::MD5 qw( md5_base64 md5_hex );
-use JSON;
+use JSON qw( to_json );
use List::MoreUtils qw( any each_array uniq );
use String::Random qw( random_string );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Members;
+use C4::Members qw( checkcardnumber );
use C4::Form::MessagingPreferences;
use Koha::AuthUtils;
use Koha::Patrons;
use Koha::Patron::Modifications;
use C4::Scrubber;
use Email::Valid;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
use Koha::Patron::Attribute::Types;
use Koha::Patron::Attributes;
use CGI qw ( -utf8 );
-use C4::Auth; # checkauth, getborrowernumber.
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
-use C4::Circulation;
-use C4::Output;
-use C4::Members;
+use C4::Output qw( output_html_with_http_headers );
use C4::Members::Messaging;
use C4::Form::MessagingPreferences;
use Koha::Patrons;
use CGI qw ( -utf8 );
use C4::Output;
-use C4::Reserves;
-use C4::Auth;
+use C4::Reserves qw( CanReserveBeCanceledFromOpac ToggleSuspend SuspendAll );
+use C4::Auth qw( get_template_and_user );
my $query = CGI->new;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
{
use CGI qw ( -utf8 );
use C4::Output;
-use C4::Reserves;
-use C4::Auth;
+use C4::Reserves qw( CanReserveBeCanceledFromOpac );
+use C4::Auth qw( get_template_and_user );
use Koha::Holds;
my $query = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
use C4::Letters;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
my $query = CGI->new();
use Modern::Perl;
use CGI;
-use C4::Auth; # get_template_and_user
-use C4::Output;
-use C4::Languages qw(getTranslatedLanguages accept_language);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::News;
my $input = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth qw(:DEFAULT get_session);
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth; # checkauth, getborrowernumber.
+use C4::Auth qw( get_template_and_user checkpw checkpw_hash );
use C4::Context;
-use C4::Circulation;
-use C4::Members;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patrons;
-use Try::Tiny;
+use Try::Tiny qw( catch try );
my $query = CGI->new;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use Koha::Patron::Password::Recovery
- qw(SendPasswordRecoveryEmail ValidateBorrowernumber GetValidLinkInfo CompletePasswordRecovery DeleteExpiredPasswordRecovery);
+use Koha::Patron::Password::Recovery qw(
+ CompletePasswordRecovery
+ DeleteExpiredPasswordRecovery
+ GetValidLinkInfo
+ SendPasswordRecoveryEmail
+ ValidateBorrowernumber
+);
use Koha::Patrons;
my $query = CGI->new;
use HTML::Entities;
-use Try::Tiny;
-use List::Util qw/any/;
+use Try::Tiny qw( catch try );
+use List::Util qw( any );
my ( $template, $dummy, $cookie ) = get_template_and_user(
{
use Modern::Perl;
use CGI qw/-utf8/;
-use C4::Auth qw/get_template_and_user/;
-use C4::Output qw/output_html_with_http_headers/;
-use Koha::DateUtils qw/dt_from_string/;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use Koha::DateUtils qw( dt_from_string );
use Koha::Patron::Consents;
use Koha::Patrons;
use C4::Members;
use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
-use C4::Auth qw(:DEFAULT check_cookie_auth);
+use C4::Auth qw( check_cookie_auth );
use Koha::Patron::Images;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth; # checkauth, getborrowernumber.
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patrons;
my $query = CGI->new;
use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
-use C4::Auth qw(:DEFAULT check_cookie_auth);
+use C4::Auth qw( get_template_and_user check_cookie_auth );
use C4::Context;
-use C4::Output qw(:html :ajax pagination_bar);
+use C4::Output qw( is_ajax output_ajax_with_http_headers );
use Koha::Ratings;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( checkauth );
use C4::Context;
use Koha::Ratings;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
+use C4::Koha qw(
+ getitemtypeimagelocation
+ GetNormalizedISBN
+ GetNormalizedUPC
+);
use C4::Biblio;
-use C4::Circulation;
-use C4::Members;
+use C4::Members qw( GetAllIssues );
use C4::External::BakerTaylor qw( image_url link_url );
-use Koha::DateUtils;
use MARC::Record;
-use C4::Output;
-use C4::Charset qw(StripNonXmlChars);
+use C4::Output qw( output_html_with_http_headers );
+use C4::Charset qw( StripNonXmlChars );
use Koha::Patrons;
use Koha::ItemTypes;
use CGI qw( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Members;
use C4::Form::MessagingPreferences;
use Koha::AuthUtils;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Circulation;
-use C4::Auth;
+use C4::Circulation qw( CanBookBeRenewed AddRenewal );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Items;
use C4::Members;
use Koha::Items;
use Koha::Patrons;
-use Date::Calc qw( Today Date_to_Days );
my $query = CGI->new;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
use Modern::Perl;
use CGI qw ( -utf8 );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
-use C4::Auth; # get_template_and_user
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Letters;
use Koha::ProblemReport;
use Koha::Libraries;
use Koha::Patrons;
use Koha::Util::Navigation;
-use URI::Escape;
+use URI::Escape qw( uri_unescape );
use Encode;
my $input = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Biblios;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth; # checkauth, getborrowernumber.
-use C4::Koha;
-use C4::Circulation;
-use C4::Reserves;
-use C4::Biblio;
-use C4::Items;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc );
+use C4::Circulation qw( GetBranchItemRule GetTransfers );
+use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch IsAvailableForItemLevelRequest );
+use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
+use C4::Items qw( GetHostItemsInfo GetItemsInfo );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use C4::Members;
use C4::Overdues;
use Koha::AuthorisedValues;
use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::CirculationRules;
use Koha::Items;
use Koha::ItemTypes;
use Koha::Checkouts;
use Koha::Libraries;
use Koha::Patrons;
-use Date::Calc qw/Today Date_to_Days/;
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
my $maxreserves = C4::Context->preference("maxreserves");
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $localNetwork = C4::Context->preference('RestrictedPageLocalIPs');
my $userIP = $ENV{'REMOTE_ADDR'};
use CGI;
use Encode;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::UploadedFiles;
my $input = CGI::->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
-use C4::Biblio;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Scrubber;
use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Review;
use Koha::Reviews;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Members;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patrons;
my $query = CGI->new;
use Modern::Perl;
-use C4::Auth qw(:DEFAULT get_session);
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Log;
-use C4::Items;
+use C4::Output qw( output_html_with_http_headers );
use C4::Search::History;
-use URI::Escape;
-use POSIX qw(strftime);
my $cgi = CGI->new;
$builder = Koha::SearchEngine::QueryBuilder->new({index => 'biblios'});
$searcher = Koha::SearchEngine::Search->new({index => 'biblios'});
-use C4::Output;
-use C4::Auth qw(:DEFAULT get_session);
-use C4::Languages qw(getLanguages);
-use C4::Search;
+use C4::Output qw( output_html_with_http_headers pagination_bar output_with_http_headers );
+use C4::Auth qw( get_template_and_user get_session );
+use C4::Languages qw( getlanguage getLanguages );
+use C4::Search qw( searchResults );
use C4::Search::History;
-use C4::Biblio; # Unused here?
-use C4::Koha;
-use C4::Tags qw(get_tags);
+use C4::Biblio qw( GetXmlBiblio CountItemsIssued );
+use C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues );
+use C4::Tags qw( get_tags get_tag );
use C4::SocialData;
use C4::External::OverDrive;
use C4::External::BakerTaylor qw( image_url link_url );
use Modern::Perl;
use CGI qw ( -utf8 );
-use Encode qw(encode);
-use Carp;
-use Try::Tiny;
-
-use C4::Biblio;
-use C4::Items;
-use C4::Auth;
-use C4::Output;
-use C4::Members;
-use C4::Templates ();
+use Encode;
+use Carp qw( carp );
+use Try::Tiny qw( catch try );
+
+use C4::Biblio qw(
+ GetBiblioData
+ GetMarcAuthors
+ GetMarcBiblio
+ GetMarcSubjects
+);
+use C4::Items qw( GetItemsInfo );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Templates;
use Koha::Email;
use Koha::Patrons;
use Koha::Token;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Encode qw( encode );
-use Carp;
-use Try::Tiny;
-
-use C4::Auth;
-use C4::Biblio;
-use C4::Items;
-use C4::Output;
-use C4::Members;
+use Encode;
+use Carp qw( carp );
+use Try::Tiny qw( catch try );
+
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw(
+ GetBiblioData
+ GetFrameworkCode
+ GetMarcAuthors
+ GetMarcBiblio
+ GetMarcISBN
+ GetMarcSubjects
+);
+use C4::Items qw( GetItemsInfo );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Email;
use Koha::Patrons;
use Koha::Virtualshelves;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
-use C4::Serials;
-use C4::Letters;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Serials qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber PrepareSerialsData GetSubscription GetSubscriptionsFromBiblionumber );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
my $query = CGI->new;
use CGI qw ( -utf8 );
use Email::Valid;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Letters;
-use C4::Members ();
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Patrons;
use Koha::Virtualshelves;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Biblio;
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
use C4::External::BakerTaylor qw( image_url link_url );
-use C4::Koha;
-use C4::Items;
+use C4::Koha qw(
+ GetNormalizedEAN
+ GetNormalizedISBN
+ GetNormalizedOCLCNumber
+ GetNormalizedUPC
+);
use C4::Members;
-use C4::Output;
+use C4::Output qw( pagination_bar output_with_http_headers );
use C4::Tags qw( get_tags );
use C4::XSLT;
# Koha modules used
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Biblio;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::ImportBatch;
-use C4::XSLT ();
+use C4::XSLT;
use C4::Templates;
use Koha::RecordProcessor;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
-use C4::Circulation;
-use C4::Biblio;
-use Koha::DateUtils;
+use C4::Auth qw( get_template_and_user );
+use C4::Koha qw(
+ GetNormalizedEAN
+ GetNormalizedISBN
+ GetNormalizedOCLCNumber
+ GetNormalizedUPC
+);
+use C4::Output qw( output_html_with_http_headers );
+use C4::Biblio qw( GetMarcBiblio );
+use Koha::DateUtils qw( dt_from_string );
use Koha::Patrons;
use Koha::Reviews;
-use POSIX qw(ceil floor strftime);
+use POSIX qw( ceil floor );
my $template_name;
my $query = CGI->new;
use CGI qw ( -utf8 );
-use Encode qw( encode );
-use C4::Auth; # get_template_and_user
+use Encode;
+use C4::Auth qw( get_template_and_user );
use C4::Members;
-use C4::Koha;
-use C4::Output;
-use C4::Suggestions;
-use C4::Koha;
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Suggestions qw(
+ DelSuggestion
+ MarcRecordFromNewSuggestion
+ NewSuggestion
+ SearchSuggestion
+);
+use C4::Koha qw( GetAuthorisedValues );
use C4::Scrubber;
use C4::Search qw( FindDuplicate );
use Koha::Libraries;
use Koha::Patrons;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
my $input = CGI->new;
my $op = $input->param('op') || 'else';
use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
-use C4::Auth qw(:DEFAULT check_cookie_auth);
+use C4::Auth qw( check_cookie_auth get_template_and_user );
use C4::Context;
-use C4::Output qw(:html :ajax );
+use C4::Output qw( output_with_http_headers is_ajax output_html_with_http_headers );
use C4::Scrubber;
-use C4::Biblio;
-use C4::Items qw(GetItemsInfo GetHiddenItemnumbers);
-use C4::Tags qw(add_tag get_approval_rows get_tag_rows remove_tag stratify_tags);
+use C4::Biblio qw( GetMarcBiblio );
+use C4::Items qw( GetHiddenItemnumbers GetItemsInfo );
+use C4::Tags qw(
+ add_tag
+ get_approval_rows
+ get_tag_rows
+ remove_tag
+ stratify_tags
+);
use C4::XSLT;
-use Data::Dumper;
use Koha::Logger;
use Koha::Biblios;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Biblio;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Languages;
use C4::Search;
-use C4::Output;
-use C4::Koha;
-use C4::Circulation;
-use Date::Manip;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Circulation qw( GetTopIssues );
=head1 NAME
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
-use C4::Circulation;
+use C4::Auth qw( get_template_and_user );
+use C4::Koha qw(
+ getitemtypeimagelocation
+ GetNormalizedISBN
+ GetNormalizedUPC
+);
+use C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges GetSoonestRenewDate );
use C4::External::BakerTaylor qw( image_url link_url );
-use C4::Reserves;
+use C4::Reserves qw( GetReserveStatus );
use C4::Members;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
-use C4::Letters;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Biblio qw( GetMarcBiblio );
use Koha::Account::Lines;
use Koha::Biblios;
use Koha::Libraries;
-use Koha::DateUtils;
+use Koha::DateUtils qw( output_pref );
use Koha::Holds;
use Koha::Database;
use Koha::ItemTypes;
use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';
-use Scalar::Util qw(looks_like_number);
-use Date::Calc qw(
- Today
- Add_Delta_Days
- Date_to_Days
-);
+use Scalar::Util qw( looks_like_number );
+use Date::Calc qw( Date_to_Days Today );
my $query = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user checkpw);
-use C4::Circulation;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Circulation qw( AddReturn );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Items;
use List::MoreUtils qw( uniq );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user in_iprange);
-use C4::Output qw(output_html_with_http_headers);
+use C4::Auth qw( in_iprange get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $query = CGI->new;
unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth qw/:DEFAULT get_session in_iprange/;
-use C4::Output;
-use C4::Members;
-use C4::Koha;
+use C4::Auth qw( in_iprange get_session get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Members qw( IssueSlip );
my $input = CGI->new;
unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user checkpw in_iprange);
-use C4::Koha;
-use C4::Circulation;
+use C4::Auth qw( in_iprange get_template_and_user checkpw );
+use C4::Circulation qw( AddReturn CanBookBeIssued AddIssue CanBookBeRenewed AddRenewal );
use C4::Reserves;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Members;
-use C4::Biblio;
-use C4::Items;
use Koha::DateUtils qw( dt_from_string );
use Koha::Acquisition::Currencies;
use Koha::Items;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth qw(in_iprange);
+use C4::Auth qw( in_iprange );
use C4::Service;
use C4::Members;
use Koha::Patron::Images;
use JSON qw( encode_json );
use C4::Service;
-use C4::Auth qw /check_cookie_auth/;
+use C4::Auth qw( check_cookie_auth get_template_and_user );
use C4::Letters;
use CGI;
-use C4::Output qw(:DEFAULT :ajax);
+use C4::Output qw( is_ajax output_with_http_headers );
use C4::Scrubber;
use C4::Circulation;
use C4::Biblio;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::ShelfBrowser;
+use C4::Output qw( output_html_with_http_headers );
+use C4::ShelfBrowser qw( GetNearbyItems );
my $cgi = CGI->new;
use Modern::Perl;
use C4::Context;
-use C4::Auth qw(checkauth);
+use C4::Auth qw( checkauth );
use C4::Biblio;
-use C4::Output;
+use C4::Output qw( output_error );
use Koha::Items;
use Koha::Linktracker;
use CGI qw ( -utf8 );
-use List::MoreUtils qw(any);
+use List::MoreUtils qw( any );
my $cgi = CGI->new;
my $uri = $cgi->param('uri') || '';
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use Koha::List::Patron;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use Koha::List::Patron qw( AddPatronList GetPatronLists ModPatronList );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
-use Koha::List::Patron;
+use Koha::List::Patron qw( DelPatronList );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use Koha::List::Patron;
-use List::MoreUtils qw/uniq/;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use Koha::List::Patron qw(
+ AddPatronsToList
+ DelPatronsFromList
+ GetPatronLists
+);
+use List::MoreUtils qw( uniq );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use Koha::List::Patron;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use Koha::List::Patron qw( GetPatronLists );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use Koha::List::Patron;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use Koha::List::Patron qw( AddPatronList GetPatronLists ModPatronList );
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Members;
use Koha::Patron::Categories;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use Graphics::Magick;
-use XML::Simple;
-use POSIX qw(ceil);
-use Storable qw(dclone);
+use XML::Simple qw( XMLin );
+use POSIX qw( ceil );
+use Storable qw( dclone );
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Context;
use C4::Creators;
use C4::Patroncards;
-use Koha::List::Patron;
+use Koha::List::Patron qw( GetPatronLists );
use Koha::Patrons;
use Koha::Patron::Images;
use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw( get_card_summary html_table );
use C4::Patroncards;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Text::CSV_XS;
-use XML::Simple;
+use XML::Simple qw( XMLin XMLout );
use autouse 'Data::Dumper' => qw(Dumper);
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw(
+ get_all_image_names
+ get_barcode_types
+ get_font_types
+ get_text_justification_types
+ get_unit_values
+);
use C4::Patroncards;
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators::Lib qw(get_all_templates get_unit_values);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators::Lib qw( get_all_templates get_unit_values );
use C4::Patroncards::Profile;
my $cgi = CGI->new;
use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw( get_all_profiles get_unit_values );
use C4::Patroncards;
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $cgi = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use CGI qw ( -utf8 );
use Graphics::Magick;
-use POSIX qw(ceil);
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Creators;
-use C4::Patroncards;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw( html_table );
+use C4::Patroncards qw( get_image put_image rm_image );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
-use C4::Patroncards;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw(
+ get_all_layouts
+ get_all_profiles
+ get_all_templates
+ get_batch_summary
+ html_table
+);
use C4::Labels;
-use Koha::List::Patron;
+use Koha::List::Patron qw( GetPatronLists );
my $cgi = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
-use C4::Patroncards;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw( get_all_layouts get_all_templates get_output_formats );
my $cgi = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth qw(check_cookie_auth);
+use C4::Auth qw( check_cookie_auth );
use Koha::Plugins::Handler;
die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins");
use CGI qw ( -utf8 );
-use JSON qw(from_json);
-use LWP::Simple qw(get);
+use JSON qw( from_json );
+use LWP::Simple qw( get );
use Koha::Plugins;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
my $plugins_enabled = C4::Context->config("enable_plugins");
use Modern::Perl;
use Archive::Extract;
-use File::Temp;
-use File::Copy;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
use C4::Members;
use Koha::Plugins::Handler;
use Archive::Extract;
use CGI qw ( -utf8 );
use Mojo::UserAgent;
-use File::Copy;
use File::Temp;
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Members;
use Koha::Logger;
use Koha::Plugins;
use CGI qw ( -utf8 );
use Koha::Plugins::Handler;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
my $plugins_enabled = C4::Context->config("enable_plugins");
use CGI;
use JSON qw( from_json );
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Output;
+use C4::Auth qw( get_session get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use Koha::Account::DebitTypes;
use Modern::Perl;
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Letters;
use Koha::Account::Lines;
-use Koha::DateUtils;
use Koha::Notice::Templates;
my $input = CGI->new;
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use Koha::Account::Lines;
use Koha::Cash::Registers;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
my $input = CGI->new();
use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use Koha::Cash::Registers;
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Reports;
-use C4::Output;
-use C4::Koha;
-use C4::Circulation;
-use C4::Biblio;
+use C4::Reports qw( GetDelimiterChoices );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Biblio qw( GetMarcSubfieldStructureFromKohaField );
use Koha::ItemTypes;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
=head1 NAME
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Koha;
-use C4::Circulation;
-use C4::Members;
-use C4::Reports;
+use C4::Reports qw( GetDelimiterChoices );
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::ItemTypes;
use Koha::Patron::Categories;
$patrons{$id}->{oldcols}->{$col} = $rank;
}
- use Data::Dumper;
-
+
$strcalc =~ s/old_issues/issues/g;
$dbcalc = $dbh->prepare($strcalc);
$dbcalc->execute;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
-use C4::Output;
-use C4::Circulation;
-use C4::Reports;
-use C4::Members;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reports qw( GetDelimiterChoices );
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patron::Categories;
=head1 NAME
use Modern::Perl;
use CGI qw ( -utf8 );
-use List::MoreUtils qw/uniq/;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
-use C4::Acquisition;
-use C4::Output;
-use C4::Reports;
-use C4::Circulation;
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reports qw( GetDelimiterChoices );
use Koha::AuthorisedValues;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
use Koha::Patron::Attribute::Types;
use Koha::Patron::Categories;
-use Date::Calc qw(
- Today
- Add_Delta_YM
- );
+use Date::Calc qw( Add_Delta_YM Today );
=head1 NAME
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI;
use C4::Context;
-use C4::Reports;
-use C4::Output;
-use C4::Koha;
-use C4::Circulation;
+use C4::Reports qw( GetDelimiterChoices );
+use C4::Output qw( output_html_with_http_headers );
use DateTime;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Text::CSV::Encoded;
-use List::Util qw/any/;
+use List::Util qw( any );
use Koha::Account::CreditTypes;
use Koha::Account::DebitTypes;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Koha;
-use C4::Circulation;
-use C4::Reports;
-use C4::Members;
-use Koha::DateUtils;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Reports qw( GetDelimiterChoices );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::ItemTypes;
=head1 NAME
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
# use Date::Manip; # TODO: add not borrowed since date X criteria
-use Data::Dumper;
=head1 catalogue_out
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Koha;
-use C4::Reports;
-use C4::Circulation;
-use C4::Biblio qw/GetMarcSubfieldStructureFromKohaField/;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Reports qw( GetDelimiterChoices );
+use C4::Biblio qw( GetMarcSubfieldStructureFromKohaField );
use Koha::AuthorisedValues;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::ItemTypes;
=head1 NAME
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Reports::Guided;
-use Koha::DateUtils;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reports::Guided qw( get_from_dictionary get_columns get_column_type get_distinct_values save_dictionary delete_definition get_report_areas );
+use Koha::DateUtils qw( dt_from_string output_pref );
=head1 NAME
use Encode qw( decode );
use URI::Escape;
use File::Temp;
-use C4::Reports::Guided;
+use C4::Reports::Guided qw( delete_report get_report_areas convert_sql update_sql get_saved_reports get_results ValidateSQLParameters format_results get_report_types get_columns get_from_dictionary get_criteria build_query save_report execute_query nb_rows get_report_groups );
use Koha::Reports;
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Output;
+use C4::Auth qw( get_template_and_user get_session );
+use C4::Output qw( pagination_bar output_html_with_http_headers );
use C4::Context;
use Koha::Caches;
-use C4::Log;
-use Koha::DateUtils qw/dt_from_string output_pref/;
+use C4::Log qw( logaction );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::AuthorisedValue;
use Koha::AuthorisedValues;
use Koha::BiblioFrameworks;
use Koha::Libraries;
use Koha::Patron::Categories;
use Koha::SharedContent;
-use Koha::Util::OpenDocument;
+use Koha::Util::OpenDocument qw( generate_ods );
=head1 NAME
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Koha;
-use C4::Circulation;
-use C4::Reports;
-use Koha::DateUtils;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reports qw( GetDelimiterChoices );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::ItemTypes;
use Koha::Patron::Categories;
-use Date::Calc qw(Delta_Days);
+use Date::Calc qw( Delta_Days );
=head1 NAME
use Modern::Perl;
use CGI qw ( -utf8 );
-use Date::Manip;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
-use C4::Output;
-use C4::Circulation;
-use C4::Reports;
-use C4::Members;
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reports qw( GetDelimiterChoices );
use Koha::AuthorisedValues;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::ItemTypes;
use Koha::Patron::Attribute::Types;
use CGI qw ( -utf8 );
use Text::CSV_XS;
-use C4::Auth;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::AuthorisedValues;
use Koha::CsvProfiles;
-use Koha::DateUtils;
my $query = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Circulation;
+use C4::Output qw( output_html_with_http_headers );
my $input = CGI->new;
use Modern::Perl;
use CGI qw( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Budgets;
-use C4::Biblio;
-use C4::Reports;
-use C4::Acquisition; #GetBasket()
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Budgets qw( GetBudgetsReport GetBudgetHierarchy );
+use C4::Acquisition qw( GetBasket get_rounded_price );
use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
my $query = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha;
-use C4::Output;
-use C4::Reports;
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reports qw( GetDelimiterChoices );
use C4::Members;
use Koha::AuthorisedValues;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::ItemTypes;
use Koha::Libraries;
use Koha::Patron::Categories;
-use List::MoreUtils qw/any/;
+use List::MoreUtils qw( any );
=head1 NAME
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Koha;
-use C4::Reports;
-use C4::Serials;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reports qw( GetDelimiterChoices );
+use C4::Serials qw( GetExpirationDate HasSubscriptionExpired );
=head1 serials_out
use CGI qw ( -utf8 );
use List::MoreUtils qw( uniq );
use C4::Output;
-use C4::Reserves;
-use C4::Auth;
+use C4::Reserves qw( ModReserve ModReserveCancelAll );
+use C4::Auth qw( get_template_and_user );
use Koha::DateUtils qw( dt_from_string );
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Output;
-use C4::Reserves;
-use C4::Auth;
+use C4::Reserves qw( SuspendAll );
+use C4::Auth qw( get_template_and_user );
my $query = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Biblio;
-use C4::Items;
-use C4::Output;
-use C4::Reserves;
-use C4::Circulation;
-use C4::Members;
-use C4::Auth qw/checkauth/;
+use C4::Reserves qw( CanItemBeReserved AddReserve CanBookBeReserved );
+use C4::Auth qw( checkauth );
use Koha::Items;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
-use List::MoreUtils qw/uniq/;
-use Date::Calc qw/Date_to_Days/;
-use C4::Output;
-use C4::Auth;
-use C4::Reserves;
-use C4::Biblio;
-use C4::Items;
-use C4::Koha;
-use C4::Serials;
-use C4::Circulation;
-use Koha::DateUtils;
+use List::MoreUtils qw( uniq );
+use Date::Calc qw( Date_to_Days );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Reserves qw( RevertWaitingStatus AlterPriority ToggleLowestPriority ToggleSuspend CanBookBeReserved GetMaxPatronHoldsForRecord ItemsAnyAvailableAndNotRestricted CanItemBeReserved IsAvailableForItemLevelRequest );
+use C4::Items qw( get_hostitemnumbers_of );
+use C4::Koha qw( getitemtypeimagelocation );
+use C4::Serials qw( CountSubscriptionFromBiblionumber );
+use C4::Circulation qw( GetTransfers _GetCircControlBranch GetBranchItemRule );
+use Koha::DateUtils qw( dt_from_string output_pref );
use C4::Utils::DataTables::Members;
-use C4::Members;
-use C4::Search; # enabled_staff_search_views
+use C4::Search qw( enabled_staff_search_views );
use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Checkouts;
use Koha::Holds;
use Koha::CirculationRules;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( pagination_bar output_html_with_http_headers );
use C4::Context;
-use C4::Biblio;
use Koha::Biblios;
use Koha::Patrons;
use Koha::Reviews;
use Modern::Perl;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::RotatingCollections;
-use C4::Items;
use Koha::Items;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::RotatingCollections;
use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::RotatingCollections;
use Modern::Perl;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::RotatingCollections;
use Modern::Perl;
-use C4::Auth;
-use C4::Biblio;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Acquisition qw( SearchOrders );
-use Koha::DateUtils;
+use Koha::DateUtils qw( output_pref );
use Koha::Acquisition::Booksellers;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Members;
use Koha::Patron::Categories;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Serials; # GetExpirationDate
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Serials qw( SearchSubscriptions GetExpirationDate );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use DateTime;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Serials;
-use C4::Acquisition;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Serials qw( GetSuppliersWithLateIssues GetLateOrMissingIssues updateClaim can_claim_subscription );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Letters;
-use C4::Koha qw( GetAuthorisedValues );
+use C4::Letters qw( GetLetters SendAlerts );
use Koha::AdditionalFields;
use Koha::CsvProfiles;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Serials::Numberpattern;
-use C4::Auth qw/check_cookie_auth/;
-use URI::Escape;
+use C4::Serials::Numberpattern qw(
+ AddSubscriptionNumberpattern
+ ModSubscriptionNumberpattern
+);
+use C4::Auth qw( check_cookie_auth );
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
-use C4::Serials;
-use C4::Acquisition;
+use C4::Serials qw( GetLateOrMissingIssues updateClaim );
use C4::Output;
use C4::Context;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Koha;
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition;
-use C4::Reserves;
-use C4::Circulation;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Reserves qw( AddReserve ModReserve );
use C4::Context;
-use C4::Members;
-use C4::Biblio;
-use C4::Items;
-use C4::Serials;
+use C4::Items qw( GetItemsInfo );
+use C4::Serials qw( delroutingmember getroutinglist GetSubscription GetSerials check_routing );
use URI::Escape;
use Koha::Biblios;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Koha;
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Context;
-use C4::Members;
-use C4::Serials;
+use C4::Serials qw( GetSubscription delroutingmember addroutingmember getroutinglist GetSerials GetLatestSerials check_routing );
use Koha::Patrons;
use URI::Escape;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
-use C4::Serials;
-use C4::Letters;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Serials qw( ModSerialStatus GetSubscription GetNextExpected GetNextSeq GetNextDate NewIssue HasSubscriptionExpired abouttoexpire check_routing GetFullSubscription PrepareSerialsData CountSubscriptionFromBiblionumber GetSubscriptionsFromBiblionumber GetFullSubscriptionsFromBiblionumber );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Context;
use Koha::Serial::Items;
use Koha::DateUtils qw( dt_from_string );
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Encode qw( decode is_utf8 );
-use C4::Auth;
-use C4::Biblio;
-use C4::Items;
-use C4::Koha;
-use C4::Output;
+use Encode;
+use C4::Auth qw( get_template_and_user haspermission );
+use C4::Biblio qw( GetMarcFromKohaField TransformHtmlToXml );
+use C4::Items qw( AddItemFromMarc ModItemFromMarc PrepareItemrecordDisplay );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use C4::Serials;
-use C4::Search qw/enabled_staff_search_views/;
+use C4::Serials qw( GetSerials GetSerials2 GetSerialInformation HasSubscriptionExpired GetSubscription abouttoexpire NewIssue ModSerialStatus GetPreviousSerialid AddItem2Serial );
+use C4::Search qw( enabled_staff_search_views );
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Items;
use Koha::Serial::Items;
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
my $query = CGI->new();
my $dbh = C4::Context->dbh;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Serials;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Koha qw( GetAuthorisedValues );
-use C4::Output;
-use C4::Serials;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Serials qw( CloseSubscription ReopenSubscription SearchSubscriptions check_routing );
use Koha::AdditionalFields;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::SharedContent;
my $query = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM);
-use C4::Auth;
-use C4::Output;
-use C4::Serials;
+use Date::Calc qw( Add_Delta_Days Add_Delta_YM Day_of_Week Delta_Days );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq );
use C4::Serials::Frequency;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
my $input = CGI->new;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
use Modern::Perl;
use CGI qw ( -utf8 );
-use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
-use C4::Koha;
-use C4::Biblio;
-use C4::Auth;
-use C4::Acquisition;
-use C4::Output;
+use Date::Calc qw( Add_Delta_Days Add_Delta_YM );
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Biblio qw( GetMarcBiblio );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Context;
-use C4::Serials;
+use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription );
use C4::Serials::Frequency;
use C4::Serials::Numberpattern;
-use C4::Letters;
+use C4::Letters qw( GetLetters );
use Koha::AdditionalFields;
use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( output_pref );
use Koha::ItemTypes;
-use Carp;
+use Carp qw( carp );
use Koha::Subscription::Numberpattern;
use Koha::Subscription::Frequency;
use CGI qw( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Serials;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Serials qw( can_edit_subscription );
use Koha::Subscriptions;
use Koha::Acquisition::Booksellers;
use Koha::AdditionalFields;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Koha;
-use C4::Auth;
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Search;
-use C4::Biblio;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Search qw( new_record_from_zebra );
+use C4::Biblio qw( TransformMarcToKoha );
use Koha::ItemTypes;
use Koha::SearchEngine;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Acquisition;
-use C4::Auth;
-use C4::Budgets;
-use C4::Koha;
-use C4::Serials;
-use C4::Output;
+use C4::Auth qw( get_template_and_user checkauth );
+use C4::Serials qw( CloseSubscription ReopenSubscription GetSubscription GetExpirationDate GetSerials HasSubscriptionStrictlyExpired CountIssues HasItems DelSubscription check_routing abouttoexpire can_edit_subscription );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Context;
-use C4::Search qw/enabled_staff_search_views/;
+use C4::Search qw( enabled_staff_search_views );
use Koha::AdditionalFields;
use Koha::AuthorisedValues;
-use Koha::DateUtils;
+use Koha::DateUtils qw( output_pref );
use Koha::Acquisition::Bookseller;
use Koha::Subscriptions;
-use Date::Calc qw/Today Day_of_Year Week_of_Year Add_Delta_Days/;
-use Carp;
+use Carp qw( carp );
use Koha::SharedContent;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Serials;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Serials qw( GetSubscription ModSubscription DelSubscription );
use C4::Serials::Frequency;
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Serials::Frequency;
-use C4::Auth qw/check_cookie_auth/;
+use C4::Serials::Frequency qw( GetSubscriptionFrequency );
+use C4::Auth qw( check_cookie_auth );
use JSON qw( to_json );
my $input=CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
-use C4::Biblio;
-use C4::Serials;
+use C4::Serials qw( ModSubscriptionHistory ModSubscription GetSubscriptionHistoryFromSubscriptionId GetSubscription );
use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( output_pref );
my $input = CGI->new;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Serials::Numberpattern;
-use C4::Auth qw/check_cookie_auth/;
+use C4::Serials::Numberpattern qw( GetSubscriptionNumberpattern );
+use C4::Auth qw( check_cookie_auth );
use JSON qw( to_json );
my $input=CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Serials::Numberpattern;
-use C4::Serials::Frequency;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Serials::Numberpattern qw(
+ AddSubscriptionNumberpattern
+ DelSubscriptionNumberpattern
+ GetSubscriptionNumberpattern
+ GetSubscriptionNumberpatternByName
+ GetSubscriptionNumberpatterns
+ GetSubscriptionsWithNumberpattern
+ ModSubscriptionNumberpattern
+);
+use C4::Serials::Frequency qw( GetSubscriptionFrequencies );
my $input = CGI->new;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
use Modern::Perl;
use CGI qw ( -utf8 );
-use Carp;
+use Carp qw( carp );
use C4::Koha;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Serials;
-use Koha::DateUtils;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
+use C4::Serials qw( GetSubscription GetSubscriptionLength NewSubscription ReNewSubscription );
+use Koha::DateUtils qw( dt_from_string output_pref );
my $query = CGI->new;
my $dbh = C4::Context->dbh;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Subscriptions;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Items;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Items qw( PrepareItemrecordDisplay );
my $input = CGI->new;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Members;
use Koha::Patron::Categories;
use Modern::Perl;
require Exporter;
use CGI qw ( -utf8 );
-use C4::Auth; # get_template_and_user
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Suggestions;
-use C4::Koha;
-use C4::Budgets;
-use C4::Search;
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget );
+use C4::Search qw( FindDuplicate GetDistinctValues );
use C4::Members;
use Koha::DateUtils qw( dt_from_string );
use Koha::AuthorisedValues;
use Koha::Libraries;
use Koha::Patrons;
-use URI::Escape;
+use URI::Escape qw( uri_escape );
sub Init{
my $suggestion= shift @_;
use CGI;
use C4::Service;
use C4::Auth qw( check_cookie_auth );
-use C4::Output qw(:DEFAULT :ajax);
use Koha::AuthorisedValues;
=head1 NAME
use Modern::Perl;
use CGI;
-use JSON;
-use C4::Auth qw(check_cookie_auth);
-use C4::Biblio;
+use JSON qw( to_json );
+use C4::Auth qw( check_cookie_auth );
+use C4::Biblio qw( BiblioAutoLink TransformHtmlToMarc );
use C4::Context;
my $input = CGI->new;
use JSON qw( to_json );
use CGI;
use C4::Service;
-use C4::Auth qw /check_cookie_auth/;
-use C4::Output qw(:DEFAULT :ajax);
+use C4::Auth qw ( check_cookie_auth );
+use C4::Output qw( is_ajax output_with_http_headers );
use Koha::Checkouts;
=head1 NAME
use CGI;
use C4::Service;
use C4::Context;
-use C4::Auth qw /check_cookie_auth/;
-use C4::Output qw(:DEFAULT :ajax);
+use C4::Auth qw( check_cookie_auth );
+use C4::Output qw( is_ajax output_with_http_headers );
use C4::Patroncards::Batch;
use C4::Labels::Batch;
use JSON qw( to_json );
use CGI;
use C4::Service;
-use C4::Auth qw /check_cookie_auth/;
-use C4::Output qw(:DEFAULT :ajax);
+use C4::Auth qw( check_cookie_auth );
+use C4::Output qw( is_ajax output_with_http_headers );
use Koha::ProblemReports;
=head1 NAME
use Modern::Perl;
use Test::More tests => 43;
-use C4::Acquisition;
+use C4::Acquisition qw( GetBasket GetBasketUsers CanUserManageBasket );
# Avoid "redefined subroutine" warnings
local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };
use Test::More tests => 12;
use Test::Warn;
-use C4::Auth qw / in_iprange /;
+use C4::Auth qw( in_iprange );
$ENV{REMOTE_ADDR} = '192.168.1.30';
my $logger = t::lib::Mocks::Logger->new();
# Can module load
-use C4::Auth_with_shibboleth;
+use C4::Auth_with_shibboleth qw( shib_ok login_shib_url get_login_shib checkpw_shib );
require_ok('C4::Auth_with_shibboleth');
# Subroutine tests
use MARC::Record;
BEGIN {
- use_ok('C4::AuthoritiesMarc::MARC21');
+ use_ok('C4::AuthoritiesMarc::MARC21', qw( default_auth_type_location fix_marc21_auth_type_location ));
}
my @result = C4::AuthoritiesMarc::MARC21::default_auth_type_location();
use Test::More tests => 2;
BEGIN {
- use_ok('C4::AuthoritiesMarc::UNIMARC');
+ use_ok('C4::AuthoritiesMarc::UNIMARC', qw( default_auth_type_location ));
}
my @test = C4::AuthoritiesMarc::UNIMARC::default_auth_type_location();
plan tests => 39;
-use_ok('C4::Biblio');
+
+use_ok('C4::Biblio', qw( AddBiblio ModBiblio BiblioAutoLink LinkBibHeadingsToAuthorities GetMarcPrice GetMarcQuantity GetMarcControlnumber GetMarcISBN GetMarcISSN GetMarcSubjects GetMarcAuthors GetMarcUrls GetMarcSeries TransformMarcToKoha ModBiblioMarc RemoveAllNsb GetMarcBiblio UpdateTotalIssues ));
my $db = Test::MockModule->new('Koha::Database');
$db->mock( _new_schema => sub { return Schema(); } );
use XML::Simple;
-use C4::Biblio qw/TransformHtmlToXml/;
+use C4::Biblio qw( TransformHtmlToXml );
sub run_tests {
use MARC::Record;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcFromKohaField );
subtest "_koha_marc_update_bib_ids basic Field", \&_koha_marc_update_bib_ids_simple;
sub _koha_marc_update_bib_ids_simple {
use Modern::Perl;
use Test::More tests => 134;
-use C4::Budgets;
+use C4::Budgets qw( GetBudget GetBudgetUsers CanUserModifyBudget );
use t::lib::Mocks;
# Avoid "redefined subroutine" warnings
use Modern::Perl;
use Test::More tests => 70;
-use C4::Budgets;
+use C4::Budgets qw( GetBudget GetBudgetUsers CanUserUseBudget );
use t::lib::Mocks;
# Avoid "redefined subroutine" warnings
use open ':std', ':encoding(utf8)';
BEGIN {
- use_ok('C4::Charset');
+ use_ok('C4::Charset', qw( NormalizeString SetUTF8Flag IsStringUTF8ish nsb_clean ));
}
my $string;
use t::lib::Mocks;
-use C4::Circulation;
+use C4::Circulation qw( GetAgeRestriction );
t::lib::Mocks::mock_preference( 'AgeRestrictionMarker', 'FSK|PEGI|Age|K' );
use C4::Context;
use t::lib::Mocks;
-use_ok( 'C4::Circulation' );
+use_ok('C4::Circulation', qw( barcodedecode ));
t::lib::Mocks::mock_userenv({ branchcode => 'IMS' });
use Test::More tests => 10;
BEGIN {
- use_ok('C4::ClassSortRoutine::Dewey');
+ use_ok('C4::ClassSortRoutine::Dewey', qw( get_class_sort_key ));
}
my $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key(undef, undef );
use Test::More tests => 3;
BEGIN {
- use_ok('C4::ClassSortRoutine::Generic');
+ use_ok('C4::ClassSortRoutine::Generic', qw( get_class_sort_key ));
}
my $cn_class = "My class ";
use Test::More tests => 10;
BEGIN {
- use_ok('C4::ClassSortRoutine::LCC');
+ use_ok('C4::ClassSortRoutine::LCC', qw( get_class_sort_key ));
}
#Obvious cases
BEGIN {
use_ok('C4::Creators');
- use_ok('C4::Creators::PDF');
+ use_ok('C4::Creators::PDF', qw( Init Add Bookmark Compress Font FontSize Page StrWidth Text End ));
}
my $pdf_creator = C4::Creators::PDF->new(InitVars => 0);
use t::lib::Mocks;
BEGIN {
- use_ok('C4::External::BakerTaylor');
+ use_ok('C4::External::BakerTaylor', qw( link_url image_url content_cafe_url http_jacket_link availability ));
}
# test with mocked prefs
use t::lib::Mocks;
BEGIN {
- use_ok('C4::ImportBatch');
+ use_ok('C4::ImportBatch', qw( RecordsFromISO2709File RecordsFromMARCXMLFile ));
}
t::lib::Mocks::mock_preference('marcflavour', 'MARC21');
}
}
-use_ok('C4::Koha');
+use_ok('C4::Koha', qw( xml_escape GetVariationsOfISBN GetVariationsOfISBNs GetVariationsOfISSN GetVariationsOfISSNs));
use Test::DBIx::Class;
use Modern::Perl;
use Test::More tests => 2;
+use MARC::Record;
BEGIN { use_ok('Koha::Util::MARC'); }
use Modern::Perl;
use Koha::Script;
-use Fcntl qw(:flock);
-use Try::Tiny;
# # Lock execution
my $script = Koha::Script->new({ script => 'sleep.pl' });
use Modern::Perl;
use Koha::Script;
-use Fcntl qw(:flock);
-use Try::Tiny;
# # Lock execution
my $script = Koha::Script->new({ script => 'sleep.pl' });
use warnings;
use Test::More tests => 4;
+use MARC::Record;
BEGIN {
use_ok('Koha::Util::MARC');
use strict;
use warnings;
-use C4::ClassSplitRoutine::LCC;
+use C4::ClassSplitRoutine::LCC qw( split_callnumber );
use Test::More tests => 11;
BEGIN {
- use_ok('C4::Labels::Label');
+ use_ok('C4::Labels::Label', qw( _get_text_fields _check_params _guide_box ));
}
my $format_string = "title, callnumber";
use Modern::Perl;
use Test::More tests => 5;
-use C4::ClassSplitRoutine::RegEx;
+use C4::ClassSplitRoutine::RegEx qw( split_callnumber );
my $callnumbers = {
'830 Han' => [qw{830 Han}],
$test_num += 4;
}
plan tests => $test_num;
- use_ok('C4::ClassSplitRoutine::Dewey');
+ use_ok('C4::ClassSplitRoutine::Dewey', qw( split_callnumber ));
use vars qw($ddcns);
}
use strict;
use warnings;
-use C4::ClassSplitRoutine::LCC;
+use C4::ClassSplitRoutine::LCC qw( split_callnumber );
use Test::More;
BEGIN {
use Koha::Cache::Memory::Lite;
BEGIN {
- use_ok('C4::Languages');
+ use_ok('C4::Languages', qw( getlanguage ));
}
my @languages = (); # stores the list of active languages
my $db = Test::MockModule->new('Koha::Database');
$db->mock( _new_schema => sub { return Schema(); } );
-use_ok('C4::Letters');
+use_ok('C4::Letters', qw( GetLetters ));
t::lib::Mocks::mock_preference('dateformat', 'metric');
my $db = Test::MockModule->new('Koha::Database');
$db->mock( _new_schema => sub { return Schema(); } );
-use_ok('C4::Matcher');
+use_ok('C4::Matcher', qw( GetMatcherList GetMatcherId ));
fixtures_ok [
MarcMatcher => [
use t::lib::Mocks;
-use_ok('C4::Members');
+use_ok('C4::Members', qw( get_cardnumber_length checkcardnumber ));
BEGIN {
if ( check_install( module => 'Test::DBIx::Class' ) ) {
use t::lib::Mocks;
BEGIN {
- use_ok('C4::Output');
+ use_ok('C4::Output', qw( output_html_with_http_headers parametrized_url ));
}
my $query = CGI->new();
}
}
-use_ok('C4::Acquisition');
+use_ok('C4::Acquisition', qw( populate_order_with_prices ));
use_ok('C4::Context');
use_ok('Koha::Number::Price');
use Test::Warn;
BEGIN {
- use_ok('C4::SIP::Sip');
+ use_ok('C4::SIP::Sip', qw( timestamp ));
}
my $date_time = C4::SIP::Sip::timestamp();
use Test::More tests => 7;
BEGIN {
- use_ok('C4::SMS');
+ use_ok('C4::SMS', qw( driver send_sms ));
}
use Test::More tests => 6;
BEGIN {
- use_ok('C4::Scheduler');
+ use_ok('C4::Scheduler', qw( get_jobs get_at_jobs get_at_job add_at_job remove_at_job ));
}
ok(C4::Scheduler::get_jobs(), "testing get_jobs with no arguments");
use Test::Warn;
BEGIN {
- use FindBin;
- use lib $FindBin::Bin;
- use_ok('C4::Scrubber');
+ use FindBin;
+ use lib $FindBin::Bin;
+ use_ok('C4::Scrubber');
}
sub pretty_line {
use JSON qw( decode_json );
use_ok('Koha::DateUtils');
-use_ok('C4::Search::History');
+use_ok('C4::Search::History', qw( get get_from_session set_to_session delete ));
use_ok('C4::Auth', qw/get_session/ );
# Test session
# Mock the DB connection and C4::Context
use Test::DBIx::Class;
-use_ok('C4::Search');
+use_ok('C4::Search', qw( buildQuery ));
can_ok('C4::Search',
qw/buildQuery/);
use_ok("Net::Z3950::ZOOM");
use Modern::Perl;
use Test::More tests => 43;
-use C4::Serials;
+use C4::Serials qw( GetNextSeq );
# TEST CASE 1 - 1 variable, from 1 to 4
my $subscription = {
use Test::More tests => 8;
-use C4::Serials qw//;
+use C4::Serials;
# Testing C4::Serials::_handle_seqno
my $list = '2017 (No. 8); 2017 (No. 9); 2017 (No. 10)';
use_ok("MARC::Field");
use_ok("MARC::Record");
-use_ok("Koha::SimpleMARC");
+use_ok("Koha::SimpleMARC", qw( field_exists read_field update_field copy_field copy_and_replace_field move_field delete_field field_equals ));
sub new_record {
my $record = MARC::Record->new;
}
BEGIN {
- use_ok('C4::SocialData');
+ use_ok('C4::SocialData', qw( get_data get_report ));
}
use Test::DBIx::Class;
use strict;
use warnings;
-use C4::TmplTokenType;
use Test::More tests => 19;
BEGIN {
use C4::Circulation qw( MarkIssueReturned );
BEGIN {
- use_ok('C4::Accounts');
+ use_ok('C4::Accounts', qw( chargelostitem purge_zero_balance_fees ));
use_ok('Koha::Object');
use_ok('Koha::Patron');
use_ok('Data::Dumper');
use MARC::File::XML ( BinaryEncoding => 'utf8', RecordFormat => 'MARC21' );
BEGIN {
- use_ok('C4::Acquisition');
- use_ok('C4::Biblio');
- use_ok('C4::Budgets');
+ use_ok('C4::Acquisition', qw( NewBasket GetBasket AddInvoice GetInvoice ModReceiveOrder SearchOrders GetOrder GetHistory ModOrder get_rounding_sql get_rounded_price ReopenBasket ModBasket ModBasketHeader ModBasketUsers ));
+ use_ok('C4::Biblio', qw( AddBiblio GetMarcSubfieldStructure ));
+ use_ok('C4::Budgets', qw( AddBudgetPeriod AddBudget GetBudget GetBudgetByOrderNumber GetBudgetsReport GetBudgets GetBudgetReport ));
use_ok('Koha::Acquisition::Orders');
use_ok('Koha::Acquisition::Booksellers');
use_ok('t::lib::TestBuilder');
use t::lib::TestBuilder;
use C4::Context;
-use C4::Acquisition;
-use C4::Biblio;
+use C4::Acquisition qw( NewBasket ModReceiveOrder CancelReceipt );
+use C4::Biblio qw( AddBiblio );
use C4::Items;
-use C4::Budgets;
+use C4::Budgets qw( AddBudget GetBudget );
use t::lib::Mocks;
use Koha::Database;
use Test::More tests => 4;
-use C4::Acquisition;
-use C4::Biblio;
+use C4::Acquisition qw( NewBasket GetBasket GetBasketAsCSV );
+use C4::Biblio qw( AddBiblio );
use Koha::Database;
use Koha::CsvProfiles;
use Koha::Acquisition::Orders;
use Test::More tests => 43;
use Data::Dumper;
-use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller );
+use C4::Acquisition qw( NewBasket GetBasket GetBasketsInfosByBookseller ReopenBasket AddInvoice GetInvoice ModReceiveOrder );
use C4::Biblio qw( AddBiblio );
-use C4::Budgets qw( AddBudget );
+use C4::Budgets qw( AddBudget GetBudget );
use C4::Context;
use Koha::Database;
use Koha::Acquisition::Orders;
use Modern::Perl;
use Test::More;
-use C4::Acquisition;
-use C4::Biblio;
-use C4::Budgets;
+use C4::Acquisition qw( NewBasket GetOrders GetOrdersByBiblionumber GetOrder );
+use C4::Biblio qw( AddBiblio );
+use C4::Budgets qw( AddBudget GetBudget );
use Koha::Database;
use Koha::Acquisition::Orders;
use Test::More tests => 24;
BEGIN {
- use_ok('C4::Acquisition');
+ use_ok('C4::Acquisition', qw( NewBasket GetBasket AddInvoice GetInvoice ModReceiveOrder GetInvoiceDetails GetInvoices ModInvoice CloseInvoice ReopenInvoice MergeInvoices DelInvoice ));
}
my $schema = Koha::Database->new()->schema();
use Modern::Perl;
use Test::More tests => 8;
-use C4::Acquisition;
-use C4::Biblio;
-use C4::Budgets;
+use C4::Acquisition qw( NewBasket );
+use C4::Biblio qw( AddBiblio );
+use C4::Budgets qw( AddBudget GetBudget );
use MARC::Record;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
use t::lib::TestBuilder;
-use_ok('C4::Acquisition');
-use_ok('C4::Biblio');
-use_ok('C4::Budgets');
-use_ok('C4::Serials');
+use_ok('C4::Acquisition', qw( NewBasket AddInvoice GetInvoice ModReceiveOrder GetInvoices ));
+use_ok('C4::Biblio', qw( AddBiblio ));
+use_ok('C4::Budgets', qw( AddBudgetPeriod AddBudget ));
+use_ok('C4::Serials', qw( NewSubscription GetSubscription subscriptionCurrentlyOnOrder ));
use Koha::Acquisition::Orders;
use Koha::Database;
use Modern::Perl;
use Test::More tests => 3;
-use C4::Acquisition;
-use C4::Biblio;
-use C4::Letters;
+use C4::Acquisition qw( NewBasket AddInvoice ModOrder ModOrderUsers GetOrder GetOrderUsers ModReceiveOrder );
+use C4::Biblio qw( AddBiblio );
+use C4::Letters qw( GetQueuedMessages );
use Koha::Database;
use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Orders;
use Test::More tests => 14;
use C4::Context;
-use C4::Acquisition;
-use C4::Biblio;
+use C4::Acquisition qw( NewBasket GetBasket SearchOrders AddInvoice ModReceiveOrder CancelReceipt );
+use C4::Biblio qw( AddBiblio );
use C4::Items;
use C4::Budgets;
use Koha::Acquisition::Orders;
use Test::More tests => 13;
use C4::Context;
-use C4::Acquisition;
+use C4::Acquisition qw( NewBasket GetOrders GetOrder TransferOrder SearchOrders ModReceiveOrder CancelReceipt );
use C4::Biblio;
use C4::Items;
-use C4::Budgets;
+use C4::Budgets qw( AddBudget GetBudget );
use Koha::Database;
use Koha::DateUtils;
use Koha::Acquisition::Booksellers;
use Modern::Perl;
use Test::More tests => 14;
-use C4::Acquisition;
-use C4::Biblio qw( AddBiblio DelBiblio );
-use C4::Budgets;
+use C4::Acquisition qw( NewBasket GetBiblioCountByBasketno GetOrders GetOrder ReopenBasket );
+use C4::Biblio qw( AddBiblio );
+use C4::Budgets qw( AddBudget GetBudget );
use C4::Context;
use Koha::Database;
use Koha::Acquisition::Booksellers;
use Modern::Perl;
use Test::More tests => 44;
-use C4::Acquisition;
+use C4::Acquisition qw( populate_order_with_prices );
use C4::Context;
use Koha::Database;
use t::lib::TestBuilder;
use C4::Context;
BEGIN {
- use_ok('C4::External::Amazon');
+ use_ok('C4::External::Amazon', qw( get_amazon_tld ));
}
my $context = C4::Context->new();
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Auth qw(checkpw);
use C4::Members;
use Koha::AuthUtils qw/hash_password/;
use Koha::Database;
use Koha::Patrons;
BEGIN {
- use_ok('C4::Auth');
+ use_ok('C4::Auth', qw( checkauth haspermission track_login_daily checkpw get_template_and_user checkpw_hash ));
}
my $schema = Koha::Database->schema;
use Koha::Database;
use t::lib::TestBuilder;
-use C4::Auth qw(haspermission);
+use C4::Auth qw( haspermission );
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
use Koha::Database;
BEGIN {
- use_ok('C4::Auth_with_cas');
+ use_ok('C4::Auth_with_cas', qw( check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url ));
can_ok('C4::Auth_with_cas', qw/
check_api_auth_cas
checkpw_cas
my $patron = Koha::Patrons->find($borrower->{borrowernumber});
# C4::Auth_with_ldap needs several stuff set first ^^^
-use_ok('C4::Auth_with_ldap');
+use_ok('C4::Auth_with_ldap', qw( checkpw_ldap ));
can_ok(
'C4::Auth_with_ldap', qw/
checkpw_ldap
use Koha::Authority::Types;
BEGIN {
- use_ok('C4::AuthoritiesMarc');
+ use_ok('C4::AuthoritiesMarc', qw( GetHeaderAuthority AddAuthority AddAuthorityTrees GetAuthority BuildAuthHierarchies GenerateHierarchy BuildSummary DelAuthority CompareFieldWithAuthority ModAuthority merge ));
}
# We are now going to be testing the authorities hierarchy code, and
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio GetMarcBiblio ModBiblio );
use Koha::Authorities;
use Koha::Authority::ControlledIndicators;
use Koha::Authority::MergeRequests;
use Koha::Database;
BEGIN {
- use_ok('C4::AuthoritiesMarc');
+ use_ok('C4::AuthoritiesMarc', qw( merge AddAuthority compare_fields DelAuthority ));
}
# Optionally change marc flavour
#!/usr/bin/perl
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_session );
use CGI qw ( -utf8 );
use Test::More tests => 18;
use Koha::Database;
BEGIN {
- use_ok('C4::BackgroundJob');
+ use_ok('C4::BackgroundJob', qw( get id fetch name invoker progress status size set finish results clear ));
}
my $query = CGI->new;
BEGIN {
use FindBin;
use lib $FindBin::Bin;
- use_ok('C4::Barcodes');
+ use_ok('C4::Barcodes', qw( value initial max db_max next_value next previous serial autoBarcode is_max ));
}
my $builder = t::lib::TestBuilder->new;
use Koha::Database;
BEGIN {
- use_ok('C4::Barcodes::ValueBuilder');
+ use_ok('C4::Barcodes::ValueBuilder', qw( get_barcode ));
};
my $schema = Koha::Database->new->schema;
use Koha::Caches;
use Koha::MarcSubfieldStructures;
-use C4::Linker::Default;
+use C4::Linker::Default qw( get_link );
BEGIN {
- use_ok('C4::Biblio');
+ use_ok('C4::Biblio', qw( AddBiblio GetMarcFromKohaField BiblioAutoLink GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField LinkBibHeadingsToAuthorities GetBiblioData GetMarcBiblio ModBiblio GetMarcISSN GetMarcControlnumber GetMarcISBN GetMarcPrice GetFrameworkCode GetMarcUrls IsMarcStructureInternal GetMarcStructure GetXmlBiblio DelBiblio ));
}
my $schema = Koha::Database->new->schema;
my $authid = $field->subfield('9');
ok($authid, 'ModBiblio adds authority id');
- use_ok('C4::AuthoritiesMarc');
+ use_ok('C4::AuthoritiesMarc', qw( GetAuthority ));
my $auth_record = C4::AuthoritiesMarc::GetAuthority($authid);
ok($auth_record, 'Authority record successfully retrieved');
use Koha::Database;
BEGIN {
- use_ok('C4::Biblio');
+ use_ok('C4::Biblio', qw( GetISBDView ));
}
my $schema = Koha::Database->new->schema;
use t::lib::TestBuilder;
use MARC::Record;
-use C4::Biblio;
+use C4::Biblio qw( ModBiblio ModBiblioMarc GetMarcBiblio );
use Koha::Database;
my $schema = Koha::Database->new->schema;
use Koha::Caches;
use Koha::Database;
use Koha::MarcSubfieldStructures;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcFromKohaField TransformHtmlToMarc );
our ( $biblionumbertagfield, $biblionumbertagsubfield );
my $schema = Koha::Database->new->schema;
use Koha::Database;
use Koha::Caches;
use Koha::MarcSubfieldStructures;
-use C4::Biblio;
+use C4::Biblio qw( TransformKohaToMarc );
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
use Koha::Database;
use Koha::Caches;
use Koha::MarcSubfieldStructures;
-use C4::Biblio;
+use C4::Biblio qw( TransformMarcToKoha TransformMarcToKohaOneField );
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
use Test::More tests => 144;
BEGIN {
- use_ok('C4::Budgets')
+ use_ok('C4::Budgets', qw( AddBudgetPeriod AddBudget GetBudgetPeriods GetBudgetPeriod GetBudget ModBudgetPeriod ModBudget DelBudgetPeriod DelBudget GetBudgets GetBudgetName GetBudgetByCode GetBudgetHierarchy GetBudgetHierarchySpent GetBudgetSpent GetBudgetOrdered CloneBudgetPeriod GetBudgetsByActivity MoveOrders GetBudgetByOrderNumber SetOwnerToFundHierarchy GetBudgetAuthCats GetBudgetsPlanCell ));
}
use C4::Context;
-use C4::Biblio;
-use C4::Acquisition;
+use C4::Biblio qw( AddBiblio );
+use C4::Acquisition qw( NewBasket AddInvoice GetInvoice ModReceiveOrder populate_order_with_prices );
use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Orders;
use Test::More tests => 4;
use MARC::Record;
-use C4::Biblio qw( AddBiblio GetMarcFromKohaField );
+use C4::Biblio qw( GetMarcFromKohaField AddBiblio );
use C4::Context;
use C4::Charset qw( SanitizeRecord );
use t::lib::TestBuilder;
use C4::Accounts;
-use C4::Calendar;
-use C4::Circulation;
+use C4::Calendar qw( new insert_single_holiday insert_week_day_holiday delete_holiday );
+use C4::Circulation qw( AddIssue AddReturn CanBookBeRenewed GetIssuingCharges AddRenewal GetSoonestRenewDate GetLatestAutoRenewDate LostItem GetUpcomingDueIssues CanBookBeIssued AddIssuingCharge ProcessOfflinePayment transferbook updateWrongTransfer );
use C4::Biblio;
-use C4::Items;
+use C4::Items qw( ModItemTransfer );
use C4::Log;
-use C4::Reserves;
-use C4::Overdues qw(UpdateFine CalcFine);
+use C4::Reserves qw( AddReserve ModReserve ModReserveCancelAll ModReserveAffect CheckReserves GetOtherReserves );
+use C4::Overdues qw( CalcFine UpdateFine get_chargeable_units );
use Koha::DateUtils;
use Koha::Database;
use Koha::Items;
use Modern::Perl;
-use C4::Circulation;
-use C4::Items;
-use C4::Biblio;
+use C4::Circulation qw( AddIssue AddReturn GetBranchBorrowerCircRule GetBranchItemRule );
+use C4::Items qw( ModItemTransfer );
+use C4::Biblio qw( AddBiblio );
use C4::Context;
use Koha::CirculationRules;
use t::lib::TestBuilder;
BEGIN {
- use_ok('C4::Circulation');
+ use_ok('C4::Circulation', qw( AddIssue AddReturn GetBranchBorrowerCircRule GetBranchItemRule ));
}
can_ok( 'C4::Circulation', qw(
use DateTime;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Calendar;
+use C4::Calendar qw( new insert_single_holiday delete_holiday insert_week_day_holiday );
use Koha::CirculationRules;
-use_ok('C4::Circulation');
+use_ok('C4::Circulation', qw( CalcDateDue ));
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
use Test::More tests => 3;
use C4::Context;
-use C4::Overdues;
+use C4::Overdues qw( CalcFine );
use Koha::DateUtils qw( dt_from_string );
use Test::MockModule;
use t::lib::TestBuilder;
-use C4::Circulation;
+use C4::Circulation qw( CheckIfIssuedToPatron AddIssue );
use C4::Items;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio );
use Koha::Library;
use Koha::Patrons;
use MARC::Record;
use Test::More tests => 10;
-use C4::Circulation;
-use C4::Biblio;
+use C4::Circulation qw( CheckValidBarcode );
+use C4::Biblio qw( AddBiblio );
use C4::Items;
use Koha::Database;
use Koha::Library;
BEGIN {
- use_ok('C4::Circulation');
+ use_ok('C4::Circulation', qw( CheckValidBarcode ));
}
my $schema = Koha::Database->new->schema;
use Test::More tests => 9;
BEGIN {
- use_ok('C4::Circulation');
+ use_ok('C4::Circulation', qw( GetHardDueDate GetLoanLength ));
}
can_ok(
'C4::Circulation',
use Test::MockModule;
use t::lib::TestBuilder;
-use C4::Circulation;
-use C4::Biblio;
+use C4::Circulation qw( AddIssue GetPendingOnSiteCheckouts );
+use C4::Biblio qw( AddBiblio );
use C4::Items;
use C4::Members;
use t::lib::TestBuilder;
use C4::Context;
-use C4::Circulation;
-use C4::Biblio;
+use C4::Circulation qw( AddIssue GetTopIssues );
+use C4::Biblio qw( GetMarcFromKohaField AddBiblio );
use C4::Items;
use Koha::Database;
use Test::More tests => 5;
use Test::MockModule;
-use C4::Circulation;
+use C4::Circulation qw( IsItemIssued AddIssue AddReturn );
use C4::Items;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio );
use Koha::Database;
use Koha::DateUtils;
use Koha::Items;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Circulation;
+use C4::Circulation qw( MarkIssueReturned AddIssue );
use C4::Context;
use Koha::Checkouts;
use Koha::Database;
#!/usr/bin/perl
use Modern::Perl;
-use C4::Circulation;
+use C4::Circulation qw( AddOfflineOperation GetOfflineOperation GetOfflineOperations DeleteOfflineOperation );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
use Test::More tests => 7;
BEGIN {
- use_ok('C4::Circulation');
+ use_ok('C4::Circulation', qw( AddOfflineOperation GetOfflineOperation GetOfflineOperations DeleteOfflineOperation ));
}
can_ok(
'C4::Circulation',
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Circulation;
+use C4::Circulation qw( LostItem AddIssue );
# Mock userenv, used by AddIssue
my $branch;
use t::lib::TestBuilder;
use C4::Members;
-use C4::Circulation;
+use C4::Circulation qw( AddReturn AddIssue LostItem );
use C4::Items;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio );
use Koha::Database;
use Koha::Account::Lines;
use Koha::DateUtils;
use Test::More tests => 1;
-use C4::Circulation;
+use C4::Circulation qw( AddReturn );
use C4::Context;
use Koha::Database;
use Koha::DateUtils;
use Test::More tests => 10;
use C4::Context;
-use C4::Circulation;
+use C4::Circulation qw( TooMany AddIssue CanBookBeIssued );
use C4::Biblio;
use C4::Items;
use C4::Members;
use C4::Members;
use C4::Items;
use C4::Biblio;
-use C4::Circulation;
+use C4::Circulation qw( TooMany AddIssue );
use C4::Context;
use Koha::DateUtils qw( dt_from_string );
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Biblio;
-use C4::Circulation;
+use C4::Biblio qw( AddBiblio );
+use C4::Circulation qw( AddIssue AddIssuingCharge AddRenewal AddReturn GetIssuingCharges GetOpenIssue GetRenewCount GetUpcomingDueIssues );
use C4::Context;
use C4::Items;
-use C4::Reserves;
+use C4::Reserves qw( AddReserve );
use Koha::Checkouts;
use Koha::Database;
use Koha::DateUtils;
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Circulation;
-use C4::Reserves;
+use C4::Circulation qw( transferbook AddIssue GetTransfers );
+use C4::Reserves qw( AddReserve );
use Koha::DateUtils qw( dt_from_string );
use Koha::Item::Transfers;
use Modern::Perl;
use C4::Context;
-use C4::Circulation;
-use C4::Biblio;
-use C4::Items;
+use C4::Circulation qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfers GetTransfersFromTo TransferSlip );
+use C4::Biblio qw( AddBiblio );
+use C4::Items qw( ModItemTransfer );
use Koha::Database;
use Koha::DateUtils;
use DateTime::Duration;
use Test::Deep;
BEGIN {
- use_ok('C4::Circulation');
+ use_ok('C4::Circulation', qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfers GetTransfersFromTo TransferSlip ));
}
can_ok(
'C4::Circulation',
use Test::More tests => 43;
BEGIN {
- use_ok('C4::Contract');
+ use_ok('C4::Contract', qw( GetContracts GetContract AddContract ModContract DelContract ));
}
my $schema = Koha::Database->new->schema;
use t::lib::TestBuilder;
BEGIN {
- use_ok('C4::Biblio');
- use_ok('C4::CourseReserves', qw/:all/);
+ use_ok('C4::Biblio', qw( AddBiblio ));
+ use_ok('C4::CourseReserves', qw( GetCourse ModCourse GetCourses DelCourse GetCourseInstructors ModCourseInstructors GetCourseItem ModCourseItem GetCourseReserve ModCourseReserve GetCourseReserves DelCourseReserve SearchCourses GetItemCourseReservesInfo ));
use_ok('C4::Context');
use_ok('MARC::Field');
use_ok('MARC::Record');
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::CourseReserves qw/ModCourseItem ModCourseReserve DelCourseReserve GetCourseItem/;
+use C4::CourseReserves qw( ModCourse ModCourseItem ModCourseReserve GetCourse GetCourseItem DelCourse DelCourseReserve );
use C4::Context;
use Koha::Items;
use Test::Warn;
BEGIN {
- use_ok('C4::Creators::Lib');
+ use_ok('C4::Creators::Lib', qw( get_all_templates get_all_layouts get_all_profiles get_all_image_names get_batch_summary get_label_summary get_card_summary get_barcode_types get_label_types get_font_types get_text_justification_types get_output_formats get_table_names get_unit_values html_table ));
use_ok('C4::Biblio');
use_ok('C4::Context');
use_ok('Koha::Patron');
use Modern::Perl;
use DateTime;
-use C4::Circulation;
+use C4::Circulation qw( CalcDateDue checkHighHolds CanBookBeIssued );
use Koha::Database;
use Koha::DateUtils;
use Koha::Patrons;
use File::Slurp;
use Encode;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio );
use C4::Context;
use Koha::Database;
use Koha::Biblio;
use MARC::Record;
use MARC::Field;
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcFromKohaField );
use Koha::Caches;
use Koha::Database;
use Modern::Perl;
use C4::Context;
-use C4::Overdues;
+use C4::Overdues qw( CalcFine );
use Koha::Database;
use Koha::DateUtils;
use t::lib::TestBuilder;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( checkauth );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
use Koha::FrameworkPlugin;
use t::lib::Mocks;
BEGIN {
- use_ok('C4::Heading');
+ use_ok('C4::Heading', qw( field valid_heading_subfield ));
}
subtest "MARC21 tests" => sub {
use C4::Context;
BEGIN {
- use_ok('C4::Heading');
+ use_ok('C4::Heading', qw( field new_from_field display_form search_form ));
}
SKIP: {
use C4::Biblio qw( AddBiblio );
use Koha::Database;
use Koha::Libraries;
-use C4::Calendar;
+use C4::Calendar qw( new insert_single_holiday );
use Koha::Patrons;
use Koha::Holds;
use Koha::Item;
use C4::Biblio;
use C4::Calendar;
use C4::Items;
-use C4::Reserves;
-use C4::Circulation;
+use C4::Reserves qw( AddReserve CalculatePriority ModReserve ToggleSuspend AutoUnsuspendReserves SuspendAll ModReserveMinusPriority AlterPriority CanItemBeReserved CheckReserves );
+use C4::Circulation qw( CanBookBeRenewed );
use Koha::Biblios;
use Koha::CirculationRules;
use Modern::Perl;
use C4::Context;
-use C4::Circulation;
+use C4::Circulation qw( AddIssue AddReturn );
use C4::Items;
use Koha::Items;
use Koha::CirculationRules;
use t::lib::Mocks;
BEGIN {
- use_ok('C4::Reserves');
+ use_ok('C4::Reserves', qw( ItemsAnyAvailableAndNotRestricted IsAvailableForItemLevelRequest ));
}
my $schema = Koha::Database->schema;
use Koha::Holds;
BEGIN {
- use_ok('C4::Reserves');
+ use_ok('C4::Reserves', qw( AddReserve CheckReserves ));
}
my $schema = Koha::Database->schema;
BEGIN {
use FindBin;
use lib $FindBin::Bin;
- use_ok('C4::Reserves');
+ use_ok('C4::Reserves', qw( AddReserve CheckReserves ));
}
my $schema = Koha::Database->schema;
BEGIN {
use FindBin;
use lib $FindBin::Bin;
- use_ok('C4::Reserves');
+ use_ok('C4::Reserves', qw( AddReserve CheckReserves ));
}
my $schema = Koha::Database->schema;
is($reserve->{borrowernumber}, $patron_nex_l2->borrowernumber, "Patron from other library is next checkout because item is excluded");
$schema->storage->txn_rollback;
-};
\ No newline at end of file
+};
use C4::Context;
use C4::Items;
use C4::Biblio;
-use C4::Reserves;
+use C4::Reserves qw( AddReserve ModReserve ModReserveAffect );
use t::lib::TestBuilder;
use t::lib::Mocks;
use Modern::Perl;
-use C4::Reserves;
+use C4::Reserves qw( ModReserve ModReserveAffect );
use Koha::DateUtils;
use t::lib::Mocks;
use Test::More tests => 11;
-use_ok('C4::Reserves');
+use_ok('C4::Reserves', qw( ModReserve ModReserveAffect ));
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
use Test::More tests => 57;
use Data::Dumper;
-use C4::Calendar;
+use C4::Calendar qw( new insert_single_holiday );
use C4::Context;
use C4::Members;
-use C4::Circulation;
+use C4::Circulation qw( AddIssue AddReturn );
use Koha::Database;
use Koha::DateUtils;
use Koha::Items;
BEGIN {
use FindBin;
use lib $FindBin::Bin;
- use_ok('C4::Reserves');
- use_ok('C4::HoldsQueue');
+ use_ok('C4::Reserves', qw( AddReserve ModReserve ModReserveAffect ));
+ use_ok('C4::HoldsQueue', qw( TransportCostMatrix GetHoldsQueueItems CreateQueue UpdateTransportCostMatrix GetPendingHoldRequestsForBib ));
}
my $schema = Koha::Database->schema;
BEGIN {
use_ok('Koha::Calendar');
- use_ok('C4::Calendar');
+ use_ok('C4::Calendar', qw( insert_exception_holiday insert_week_day_holiday insert_day_month_holiday insert_single_holiday copy_to_branch get_exception_holidays isHoliday ));
}
my $schema = Koha::Database->new->schema;
use t::lib::TestBuilder;
use C4::Items qw( ModItemTransfer );
-use C4::Circulation;
+use C4::Circulation qw( AddIssue );
use Koha::AuthUtils;
BEGIN {
- use_ok('C4::ILSDI::Services');
+ use_ok('C4::ILSDI::Services', qw( AuthenticatePatron GetPatronInfo LookupPatron HoldTitle HoldItem GetRecords RenewLoan ));
}
my $schema = Koha::Database->schema;
use File::Basename qw/basename/;
-use C4::Circulation qw(AddIssue AddReturn);
+use C4::Circulation qw( AddIssue AddReturn );
use Koha::Database;
use Koha::Illrequestattributes;
# Mock pluginsdir before loading Plugins module
my $path = dirname(__FILE__) . '/../lib';
t::lib::Mocks::mock_config( 'pluginsdir', $path );
- use_ok('C4::ImportBatch');
+ use_ok('C4::ImportBatch', qw( AddImportBatch GetImportBatch AddBiblioToBatch AddItemsToImportBiblio GetRecordFromImportBiblio SetMatchedBiblionumber GetImportBiblios GetItemNumbersFromImportBatch CleanBatch DeleteBatch RecordsFromMarcPlugin ));
}
# Start transaction
use Koha::Database;
use Koha::BiblioFrameworks;
use Koha::MarcSubfieldStructures;
-use C4::ImportExportFramework;
+use C4::ImportExportFramework qw( ImportFramework ExportFramework );
my $schema = Koha::Database->new->schema;
my $builder = t::lib::TestBuilder->new;
use Koha::Database;
BEGIN {
- use_ok('C4::Installer');
+ use_ok('C4::Installer', qw( column_exists index_exists foreign_key_exists primary_key_exists marc_framework_sql_list ));
}
ok( my $installer = C4::Installer->new(), 'Testing NewInstaller' );
use Data::Dumper;
use MARC::Record;
-use C4::Items;
-use C4::Biblio;
+use C4::Items qw( ModItemTransfer GetHiddenItemnumbers GetItemsInfo SearchItems AddItemFromMarc ModItemFromMarc get_hostitemnumbers_of Item2Marc );
+use C4::Biblio qw( GetMarcFromKohaField EmbedItemsInMarcBiblio GetMarcBiblio AddBiblio );
use Koha::Items;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use DateTime;
use DateTime::Duration;
-use C4::Items;
-use C4::Biblio;
+use C4::Items qw( GetMarcItem ToggleNewStatus );
+use C4::Biblio qw( AddBiblio GetMarcFromKohaField );
use C4::Context;
use Koha::DateUtils;
use Koha::Items;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Items;
+use C4::Items qw( GetHostItemsInfo );
use Koha::Database;
my $schema = Koha::Database->new->schema;
use List::MoreUtils qw( any none );
use C4::Biblio qw(AddBiblio);
-use C4::Reserves;
-use C4::ClassSource;
+use C4::Reserves qw( AddReserve );
+use C4::ClassSource qw( GetClassSort );
use Koha::AuthorisedValues;
use Koha::Biblios;
use Koha::Database;
BEGIN {
use_ok('C4::Context');
- use_ok('C4::Items');
+ use_ok('C4::Items', qw( GetItemsForInventory ));
use_ok('C4::Biblio');
use_ok('C4::Koha');
}
use Modern::Perl;
use Test::More tests => 8;
-use C4::Items;
+use C4::Items qw( MoveItemFromBiblio );
use C4::Reserves;
use Koha::Database;
use Koha::Holds;
use Koha::AuthorisedValueCategories;
BEGIN {
- use_ok('C4::Koha', qw( :DEFAULT GetItemTypesCategorized));
+ use_ok('C4::Koha', qw( GetAuthorisedValues GetItemTypesCategorized xml_escape ));
use_ok('C4::Members');
}
use DateTime;
-use C4::Circulation qw/AddIssue AddReturn/;
+use C4::Circulation qw( AddRenewal CanBookBeRenewed LostItem AddIssue AddReturn );
use Koha::Account;
use Koha::Account::Lines;
use Koha::Account::Offsets;
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Acquisition;
+use C4::Acquisition qw( NewBasket ModBasket ModBasketHeader );
use Koha::Database;
use Koha::DateUtils qw(dt_from_string);
use t::lib::TestBuilder;
-use C4::Acquisition;
-use C4::Biblio;
-use C4::Budgets;
-use C4::Serials;
+use C4::Acquisition qw( NewBasket );
+use C4::Biblio qw( AddBiblio );
+use C4::Budgets qw( AddBudgetPeriod AddBudget );
+use C4::Serials qw( NewSubscription SearchSubscriptions );
use Koha::Acquisition::Booksellers;
use Koha::Database;
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Circulation;
+use C4::Circulation qw( AddIssue AddReturn );
use Koha::Biblios;
use Koha::Database;
use Test::More tests => 3;
use C4::Context;
-use C4::Log;
+use C4::Log qw( logaction );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Test::Warn;
use C4::Context;
-use C4::AuthoritiesMarc;
+use C4::AuthoritiesMarc qw( merge AddAuthority );
use Koha::Authority;
use Koha::Authority::ControlledIndicators;
use Koha::Authorities;
use Test::More tests => 14;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio ModBiblio );
use Koha::Database;
use Koha::Acquisition::Orders;
use t::lib::TestBuilder;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio );
use Koha::Database;
BEGIN {
use MARC::Field;
use C4::Items;
-use C4::Biblio;
-use C4::Reserves;
+use C4::Biblio qw( AddBiblio ModBiblio );
+use C4::Reserves qw( AddReserve );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Biblios;
use t::lib::Dates;
use Time::Fake;
-use C4::Calendar;
+use C4::Calendar qw( new insert_week_day_holiday delete_holiday );
use Koha::DateUtils qw(dt_from_string);
BEGIN {
use Test::More tests => 10;
-use C4::Circulation;
+use C4::Circulation qw( MarkIssueReturned AddReturn );
use Koha::Checkouts;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
ok($enrollment->is_canceled, 'Enrollment should be canceled');
$schema->storage->txn_rollback;
-}
\ No newline at end of file
+}
use t::lib::TestBuilder;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcSubfieldStructure );
use Koha::Database;
use Koha::RecordProcessor;
use MARC::Record;
-use C4::Biblio qw/AddBiblio GetMarcBiblio/;
+use C4::Biblio qw( GetMarcFromKohaField AddBiblio GetMarcBiblio );
use Koha::Database;
use Koha::RecordProcessor;
use Test::More tests => 6;
use Test::Warn;
-use C4::Circulation;
-use C4::Reserves;
+use C4::Circulation qw( AddIssue );
+use C4::Reserves qw( AddReserve ModReserve ModReserveCancelAll );
use Koha::AuthorisedValueCategory;
use Koha::Database;
use Koha::Holds;
use Test::More tests => 9;
use Test::Exception;
-use C4::Biblio;
-use C4::Circulation;
+use C4::Biblio qw( GetMarcSubfieldStructure );
+use C4::Circulation qw( AddIssue AddReturn );
use Koha::Items;
use Koha::Database;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Calendar;
+use C4::Calendar qw( new );
use Koha::Biblioitems;
use Koha::Libraries;
use Koha::Database;
use Test::Exception;
use Time::Fake;
-use C4::Circulation;
+use C4::Circulation qw( AddIssue LostItem AddReturn );
use C4::Context;
use Koha::Item;
use Koha::Item::Transfer::Limits;
use DateTime;
use C4::Context;
-use C4::Circulation; # AddIssue
-use C4::Biblio; # AddBiblio
+use C4::Circulation qw( AddIssue );
+use C4::Biblio qw( AddBiblio );
use Koha::Database;
is($category->effective_require_strong_password, 1, 'Patron should be required strong password from category');
$schema->storage->txn_rollback;
-};
\ No newline at end of file
+};
use Data::Dumper;
use utf8;
-use C4::Circulation;
+use C4::Circulation qw( AddIssue AddReturn );
use C4::Biblio;
-use C4::Auth qw(checkpw_hash);
+use C4::Auth qw( checkpw checkpw_hash );
use Koha::ActionLogs;
use Koha::Holds;
use File::Basename;
-use C4::Circulation qw(AddIssue AddRenewal AddReturn);
+use C4::Circulation qw( AddIssue AddRenewal AddReturn );
use t::lib::Mocks;
use t::lib::TestBuilder;
use File::Basename;
-use C4::Reserves qw(AddReserve);
+use C4::Reserves qw( AddReserve );
use t::lib::Mocks;
use t::lib::TestBuilder;
use Test::More tests => 3;
use Try::Tiny;
-use C4::Circulation;
-use C4::Stats;
+use C4::Circulation qw( AddIssue AddReturn );
+use C4::Stats qw( UpdateStats );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use t::lib::Mocks;
#use C4::Biblio qw//;
-use C4::AuthoritiesMarc;
-use C4::Biblio;
-use C4::Circulation;
-use C4::Items;
+use C4::AuthoritiesMarc qw( AddAuthority DelAuthority merge );
+use C4::Biblio qw( ModZebra ModBiblio ModBiblioMarc DelBiblio );
+use C4::Circulation qw( MarkIssueReturned AddReturn LostItem );
+use C4::Items qw( ModDateLastSeen ModItemTransfer );
use Koha::Database;
use Koha::DateUtils;
use Koha::SearchEngine::Elasticsearch;
use Koha::Database;
use Koha::Statistics;
-use C4::Stats;
+use C4::Stats qw( UpdateStats );
use t::lib::TestBuilder;
use Modern::Perl;
use Test::More tests => 3;
use t::lib::TestBuilder;
-use C4::Items;
+use C4::Items qw( GetMarcItem );
BEGIN {
use_ok('Koha::Z3950Responder');
use Modern::Perl;
use Test::More tests => 3;
use t::lib::TestBuilder;
-use C4::Items;
+use C4::Items qw( GetMarcItem );
use Koha::Caches;
use Modern::Perl;
use C4::Context;
-use C4::Charset;
-use C4::AuthoritiesMarc;
+use C4::Charset qw( MarcToUTF8Record );
+use C4::AuthoritiesMarc qw( AddAuthority );
use Koha::Database;
use Test::More;
use File::Basename;
use t::lib::Mocks;
use t::lib::TestBuilder;
use Test::More tests => 3; # last test to print
-use C4::Auth;
+use C4::Auth qw( get_session );
use Koha::Database;
use Module::Load::Conditional qw( can_load );
use t::lib::TestBuilder;
use C4::Context;
-use C4::Items;
-use C4::Biblio;
+use C4::Items qw( AddItemBatchFromMarc );
+use C4::Biblio qw( GetMarcFromKohaField AddBiblio );
use Koha::Database;
use Koha::Libraries;
BEGIN {
- use_ok('C4::Labels::Batch');
+ use_ok('C4::Labels::Batch', qw( save retrieve delete ));
}
my $schema = Koha::Database->new->schema;
use Koha::Database;
BEGIN {
- use_ok('C4::Languages');
+ use_ok('C4::Languages', qw( accept_language getAllLanguages getLanguages getTranslatedLanguages get_rfc4646_from_iso639 ));
}
my $schema = Koha::Database->new->schema;
use_ok('C4::Context');
use_ok('C4::Members');
-use_ok('C4::Acquisition');
-use_ok('C4::Biblio');
-use_ok('C4::Letters');
+use_ok('C4::Acquisition', qw( NewBasket ));
+use_ok('C4::Biblio', qw( AddBiblio GetBiblioData ));
+use_ok('C4::Letters', qw( GetMessageTransportTypes GetMessage EnqueueLetter GetQueuedMessages SendQueuedMessages ResendMessage GetLetters GetPreparedLetter SendAlerts ));
use t::lib::Mocks;
use t::lib::TestBuilder;
use Koha::Database;
}
{
-use C4::Serials;
+use C4::Serials qw( NewSubscription GetSerials findSerialsByStatus ModSerialStatus );
my $notes = 'notes';
my $internalnotes = 'intnotes';
use Test::More tests => 19;
use C4::Context;
-use C4::Letters qw( GetLettersAvailableForALibrary DelLetter );
+use C4::Letters qw( GetLetters GetLettersAvailableForALibrary DelLetter );
use Koha::Database;
my $schema = Koha::Database->new->schema;
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Circulation;
-use C4::Letters;
-use C4::Members;
+use C4::Circulation qw( AddIssue AddReturn );
+use C4::Letters qw( GetPreparedLetter );
+use C4::Members qw( IssueSlip );
use C4::Biblio;
use Koha::Database;
use Koha::DateUtils;
is($ancestor1->id, $groupY->id, "Get root ancestor should return group's root ancestor");
ok($ancestor1->id ne $ancestor2->id, "Both root groups should have different ids");
-};
\ No newline at end of file
+};
use MARC::Record;
use MARC::Field;
use MARC::File::XML;
-use C4::Heading;
-use C4::Linker::FirstMatch;
+use C4::Heading qw( authorities field new_from_field auth_type search_form );
+use C4::Linker::Default;
use Test::MockModule;
use t::lib::Mocks qw( mock_preference );
use t::lib::TestBuilder;
use MARC::Record;
use MARC::Field;
use MARC::File::XML;
-use C4::Heading;
+use C4::Heading qw( authorities field new_from_field );
use C4::Linker::FirstMatch;
use Test::MockModule;
use t::lib::Mocks qw( mock_preference );
use Test::More tests => 3;
use C4::Context;
-use C4::Log;
-use C4::Auth qw/checkpw/;
+use C4::Log qw( logaction cronlogaction );
+use C4::Auth qw( checkpw );
use Koha::Database;
use Koha::DateUtils;
use Koha::ActionLogs;
use_ok("MARC::Field");
use_ok("MARC::Record");
-use_ok("C4::MarcModificationTemplates");
+use_ok('C4::MarcModificationTemplates', qw( AddModificationTemplate AddModificationTemplateAction GetModificationTemplateAction GetModificationTemplateActions ModModificationTemplateAction MoveModificationTemplateAction DelModificationTemplate DelModificationTemplateAction ModifyRecordWithTemplate GetModificationTemplates ));
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
use t::lib::TestBuilder;
BEGIN {
- use_ok('C4::Members');
+ use_ok('C4::Members', qw( checkcardnumber GetBorrowersToExpunge DeleteUnverifiedOpacRegistrations DeleteExpiredOpacRegistrations ));
}
my $schema = Koha::Database->schema;
use t::lib::TestBuilder;
-use C4::Circulation;
-use C4::Biblio;
+use C4::Circulation qw( AddIssue );
+use C4::Biblio qw( AddBiblio );
use C4::Items;
-use C4::Members;
+use C4::Members qw( GetAllIssues );
use Koha::Libraries;
use Koha::Patrons;
use MARC::Record;
use Test::MockTime qw( set_fixed_time );
use t::lib::TestBuilder;
-use C4::Circulation;
-use C4::Biblio;
+use C4::Circulation qw( AddIssue AddReturn );
+use C4::Biblio qw( AddBiblio );
use C4::Items;
-use C4::Members;
+use C4::Members qw( IssueSlip );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Library;
use t::lib::Mocks;
-use C4::Members::Statistics;
+use C4::Members::Statistics qw( get_fields );
use Koha::Database; # we need the db here; get_fields looks for the item columns
my $schema = Koha::Database->schema;
use t::lib::TestBuilder;
-use C4::Letters;
+use C4::Letters qw( GetPreparedLetter );
use Koha::Database;
my $schema = Koha::Database->schema;
#!/usr/bin/perl
use Modern::Perl;
-use C4::Biblio;
+use C4::Biblio qw( MungeMarcPrice );
use Koha::Database;
use Koha::Acquisition::Currencies;
use Test::More;
use Data::Dumper;
use Koha::Database;
-use C4::Biblio;
-use C4::OAI::Sets;
+use C4::Biblio qw( GetMarcBiblio );
+use C4::OAI::Sets qw( AddOAISet ModOAISet ModOAISetMappings CalcOAISetsBiblio );
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio GetMarcBiblio ModBiblio );
use C4::Context;
use Koha::Biblio::Metadatas;
use MARC::Record;
use Koha::Database;
-use C4::Biblio;
-use C4::OAI::Sets;
+use C4::Biblio qw( GetMarcBiblio );
+use C4::OAI::Sets qw( AddOAISet GetOAISets GetOAISet GetOAISetBySpec ModOAISet ModOAISetMappings GetOAISetsMappings GetOAISetMappings AddOAISetsBiblios GetOAISetsBiblio ModOAISetsBiblios DelOAISet DelOAISetsBiblio UpdateOAISetsBiblio CalcOAISetsBiblio );
use t::lib::TestBuilder;
use t::lib::Mocks;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use_ok('C4::Overdues');
+use_ok('C4::Overdues', qw( GetOverdueMessageTransportTypes GetBranchcodesWithOverdueRules UpdateFine ));
can_ok('C4::Overdues', 'GetOverdueMessageTransportTypes');
can_ok('C4::Overdues', 'GetBranchcodesWithOverdueRules');
use Modern::Perl;
use C4::Context;
-use C4::Letters;
+use C4::Letters qw( GetQueuedMessages );
use Koha::Database;
use Koha::DateUtils;
use Koha::Patrons;
use Modern::Perl;
use C4::Members;
-use C4::Circulation;
+use C4::Circulation qw( AddIssue AddReturn CanBookBeIssued );
use Koha::Database;
use Koha::DateUtils;
use Koha::Patrons;
is(Koha::Patron::Messages->find($message->{message_id}), undef, 'Message is deleted');
};
-$schema->storage->txn_rollback;
\ No newline at end of file
+$schema->storage->txn_rollback;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Patroncards::Layout;
+use C4::Patroncards::Layout qw( save new );
subtest '->save' => sub {
plan tests => 1;
use Koha::Database;
BEGIN {
- use_ok('C4::Record');
+ use_ok('C4::Record', qw( marc2marc marc2marcxml marcxml2marc marc2dcxml marc2modsxml marc2bibtex ));
}
my $schema = Koha::Database->new->schema;
# specify the number of tests
use Test::More tests => 21; #FIXME Commented out two failing tests
#use C4::Context;
-use C4::Record;
+use C4::Record qw( marc2marc marc2marcxml marc2dcxml changeEncoding );
=head1 NAME
use MARC::Field;
use Text::CSV::Encoded;
-use C4::Biblio qw( AddBiblio );
+use C4::Biblio qw( AddBiblio GetMarcBiblio );
use C4::Context;
-use C4::Record;
+use C4::Record qw( marcrecord2csv );
use Koha::Database;
-use C4::Items;
+use C4::Items qw( AddItemFromMarc );
use t::lib::TestBuilder;
use Test::More tests => 2;
BEGIN {
- use_ok('C4::Reports');
+ use_ok('C4::Reports', qw( GetDelimiterChoices ));
}
use Koha::Reports;
use Koha::Notice::Messages;
-use_ok('C4::Reports::Guided');
+use_ok('C4::Reports::Guided', qw( execute_query save_report delete_report strip_limit GetReservedAuthorisedValues IsAuthorisedValueValid GetParametersFromSQL ValidateSQLParameters get_saved_reports update_sql get_report_areas convert_sql EmailReport nb_rows ));
can_ok(
'C4::Reports::Guided',
qw(save_report delete_report execute_query)
use MARC::Record;
use DateTime::Duration;
-use C4::Circulation;
+use C4::Circulation qw( AddReturn AddIssue );
use C4::Items;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblio );
use C4::Members;
-use C4::Reserves;
+use C4::Reserves qw( AddReserve CheckReserves GetReservesControlBranch ModReserve ModReserveAffect ReserveSlip CalculatePriority CanReserveBeCanceledFromOpac CanBookBeReserved IsAvailableForItemLevelRequest MoveReserve ChargeReserveFee RevertWaitingStatus CanItemBeReserved MergeHolds );
use Koha::ActionLogs;
use Koha::Caches;
use Koha::DateUtils;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Reserves;
+use C4::Reserves qw( AutoUnsuspendReserves );
use Koha::Database;
use Koha::DateUtils;
use Koha::Holds;
use t::lib::TestBuilder;
use C4::Members;
-use C4::Reserves;
+use C4::Reserves qw( CancelExpiredReserves );
use Koha::Database;
use Koha::DateUtils;
use Koha::Holds;
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Circulation;
-use C4::Reserves qw|AddReserve|;
+use C4::Circulation qw( AddIssue );
+use C4::Reserves qw( GetReserveFee ChargeReserveFee AddReserve );
use Koha::Database;
my $schema = Koha::Database->new->schema;
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Reserves qw( GetMaxPatronHoldsForRecord AddReserve CanBookBeReserved );
+use C4::Reserves qw( GetMaxPatronHoldsForRecord CanBookBeReserved AddReserve );
use Koha::Database;
use Koha::Holds;
use Test::More tests => 53;
use C4::Context;
-use C4::RotatingCollections;
-use C4::Biblio;
+use C4::RotatingCollections qw( AddItemToCollection CreateCollection DeleteCollection GetCollection GetCollectionItemBranches GetCollections GetItemsInCollection RemoveItemFromCollection TransferCollection UpdateCollection isItemInAnyCollection isItemInThisCollection );
+use C4::Biblio qw( AddBiblio );
use Koha::Database;
use Koha::Library;
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Reserves;
-use C4::Circulation;
+use C4::Reserves qw( AddReserve );
+use C4::Circulation qw( AddIssue );
use Koha::CirculationRules;
use Koha::Database;
use Koha::DateUtils;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Reserves qw(AddReserve);
+use C4::Reserves qw( AddReserve );
use C4::Circulation qw( AddReturn );
use Koha::Database;
use Koha::AuthUtils qw(hash_password);
$mockPrefork->mock( 'run', sub {} );
}
-use C4::SIP::SIPServer;
+use C4::SIP::SIPServer qw( get_timeout );
# Start testing !
# TODO We should include more tests here.
use C4::SIP::ILS::Transaction::Checkout;
use C4::SIP::ILS::Transaction::Checkin;
-use C4::Reserves;
+use C4::Reserves qw( AddReserve ModReserve ModReserveAffect RevertWaitingStatus );
use Koha::CirculationRules;
use Koha::Item::Transfer;
use Koha::DateUtils qw( dt_from_string output_pref );
my $context = C4::Context->new("$datadir/etc/koha-conf.xml");
$context->set_context();
- use_ok('C4::Search');
+ use_ok('C4::Search', qw( getIndexes FindDuplicate SimpleSearch getRecords buildQuery searchResults ));
# set search syspreferences to a known starting point
$QueryStemming = 0;
my $context = C4::Context->new("$datadir/etc/koha-conf.xml");
$context->set_context();
- use_ok('C4::Search');
+ use_ok('C4::Search', qw( getIndexes FindDuplicate SimpleSearch getRecords buildQuery searchResults ));
# set search syspreferences to a known starting point
$QueryStemming = 0;
is($total_hits, 1, 'UNIMARC generic item index (bug 10037)');
# authority records
- use_ok('C4::AuthoritiesMarc');
+ use_ok('C4::AuthoritiesMarc', qw( SearchAuthorities ));
my ($auths, $count) = SearchAuthorities(
['mainentry'], ['and'], [''], ['contains'],
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Auth;
+use C4::Auth qw( get_session checkauth get_template_and_user );
use Koha::Database;
use Test::More tests => 27;
t::lib::Mocks::mock_preference( 'SessionStorage', 'tmp' );
use_ok('Koha::DateUtils');
-use_ok('C4::Search::History');
+use_ok('C4::Search::History', qw( add get delete get_from_session ));
my $userid = 123;
my $previous_sessionid = "PREVIOUS_SESSIONID";
use Modern::Perl;
-use C4::Serials;
+use C4::Serials qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate );
use C4::Serials::Frequency;
use C4::Serials::Numberpattern;
-use C4::Biblio;
-use C4::Budgets;
-use C4::Items;
+use C4::Biblio qw( AddBiblio GetMarcFromKohaField );
+use C4::Budgets qw( AddBudgetPeriod AddBudget );
+use C4::Items qw( AddItemFromMarc );
use Koha::Database;
use Koha::DateUtils;
use Koha::Acquisition::Booksellers;
use Test::More tests => 49;
BEGIN {
- use_ok('C4::Serials');
+ use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));
}
my $schema = Koha::Database->new->schema;
use Test::More tests => 17;
use C4::Acquisition;
-use C4::Budgets;
+use C4::Budgets qw( AddBudgetPeriod AddBudget );
use Koha::Database;
use Koha::Acquisition::Booksellers;
-use_ok('C4::Serials');
+use_ok('C4::Serials', qw( GetSuppliersWithLateIssues NewSubscription GetLateOrMissingIssues updateClaim ));
use Koha::DateUtils qw( dt_from_string output_pref );
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
-use C4::Serials::Frequency;
+use C4::Serials::Frequency qw( GetSubscriptionFrequencies DelSubscriptionFrequency GetSubscriptionFrequency ModSubscriptionFrequency AddSubscriptionFrequency );
# Start by deleting all frequencies.
my @frequencies = GetSubscriptionFrequencies();
use Test::More tests => 5;
use Koha::Database;
-use C4::Serials;
+use C4::Serials qw( GetFictiveIssueNumber GetSubscription );
use C4::Serials::Frequency;
my $schema = Koha::Database->new->schema;
use Test::More tests => 102;
use Koha::Database;
-use C4::Serials;
+use C4::Serials qw( GetNextDate );
use C4::Serials::Frequency;
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
use C4::Serials::Frequency;
-use C4::Serials;
+use C4::Serials qw( GetNextDate GetNextSeq );
my $frequency = {
description => "One issue per day",
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
-use C4::Serials::Numberpattern;
+use C4::Serials::Numberpattern qw( GetSubscriptionNumberpatterns GetSubscriptionNumberpattern DelSubscriptionNumberpattern ModSubscriptionNumberpattern AddSubscriptionNumberpattern );
# Start by deleting all numberpatterns.
my @numberpatterns = GetSubscriptionNumberpatterns();
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Serials;
+use C4::Serials qw( NewSubscription ReNewSubscription GetSubscription GetSubscriptionLength );
use Koha::Database;
use Koha::Subscription::Histories;
use Koha::Patrons;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use_ok('C4::Serials');
-use_ok('C4::Budgets');
+use_ok('C4::Serials', qw( NewSubscription GetSubscription NewIssue GetPreviousSerialid ));
+use_ok('C4::Budgets', qw( AddBudgetPeriod AddBudget ));
# Mock userenv
local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };
use C4::Context;
use C4::Items;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio );
use Koha::Database;
use t::lib::TestBuilder;
-use_ok('C4::ShelfBrowser');
+use_ok('C4::ShelfBrowser', qw( GetNearbyItems ));
my $schema = Koha::Database->schema;
$schema->storage->txn_begin;
#!/usr/bin/perl
use Modern::Perl;
-use C4::Stats;
+use C4::Stats qw( UpdateStats );
use Koha::Database;
use Test::More tests => 18;
BEGIN {
- use_ok('C4::Stats');
+ use_ok('C4::Stats', qw( UpdateStats ));
}
can_ok(
'C4::Stats',
use t::lib::TestBuilder;
use C4::Context;
-use C4::Letters;
+use C4::Letters qw( GetQueuedMessages GetMessage );
use C4::Budgets qw( AddBudgetPeriod AddBudget GetBudget );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Suggestions;
BEGIN {
- use_ok('C4::Suggestions');
+ use_ok('C4::Suggestions', qw( NewSuggestion GetSuggestion ModSuggestion GetSuggestionInfo GetSuggestionFromBiblionumber GetSuggestionInfoFromBiblionumber GetSuggestionByStatus ConnectSuggestionAndBiblio SearchSuggestion DelSuggestion MarcRecordFromNewSuggestion GetUnprocessedSuggestions DelSuggestionsOlderThan ));
}
my $schema = Koha::Database->new->schema;
use Koha::Tags::Approvals;
use Koha::Tags::Indexes;
-use C4::Tags;
+use C4::Tags qw( add_tag_approval add_tag add_tag_index get_tag_rows get_tag stratify_tags );
# So any output is readable :-D
binmode STDOUT, ':encoding(utf8)';
use t::lib::Mocks;
-use C4::Auth qw//;
+use C4::Auth qw( get_template_and_user );
BEGIN {
- use_ok( 'C4::Templates' );
+ use_ok('C4::Templates', qw( GetColumnDefs getlanguagecookie setlanguagecookie themelanguage gettemplate param output availablethemes badtemplatecheck ));
can_ok( 'C4::Templates',
qw/ GetColumnDefs
getlanguagecookie
use Koha::Libraries;
BEGIN {
- use_ok('C4::UsageStats');
+ use_ok('C4::UsageStats', qw( NeedUpdate BuildReport ReportToCommunity _count ));
use_ok('C4::Context');
- use_ok('C4::Biblio');
+ use_ok('C4::Biblio', qw( UpdateTotalIssues ));
use_ok( 'C4::AuthoritiesMarc', qw(AddAuthority) );
- use_ok('C4::Reserves');
+ use_ok('C4::Reserves', qw( AddReserve ));
use_ok('MARC::Record');
use_ok('Koha::Acquisition::Orders');
}
use Test::More tests => 1;
-use C4::Utils::DataTables;
+use C4::Utils::DataTables qw( dt_build_orderby );
use t::lib::Mocks;
use t::lib::TestBuilder;
use Test::More tests => 13;
-use C4::Biblio;
+use C4::Biblio qw( AddBiblio );
use C4::Context;
use Koha::Library;
use Test::More tests => 6;
use List::MoreUtils qw(any none);
use MARC::Record;
-use C4::Biblio;
-use C4::XISBN;
+use C4::Biblio qw( GetMarcFromKohaField AddBiblio );
+use C4::XISBN qw( get_xisbns );
use C4::Context;
use C4::Search;
use Koha::Database;
use Test::MockModule;
BEGIN {
- use_ok('C4::XISBN');
+ use_ok('C4::XISBN', qw( get_xisbns ));
}
my $schema = Koha::Database->new->schema;
use Koha::ItemTypes;
BEGIN {
- use_ok('C4::XSLT');
+ use_ok('C4::XSLT', qw( transformMARCXML4XSLT getAuthorisedValues4MARCSubfields buildKohaItemsNamespace ));
}
my $schema = Koha::Database->new->schema;
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Auth;
+use C4::Auth qw( get_session );
use Koha::Database;
my $schema = Koha::Database->new->schema;
use DateTime;
use C4::Context;
-use C4::Circulation;
+use C4::Circulation qw( AddIssue AddReturn );
use Koha::Database;
use Koha::DateUtils;
use C4::Context;
use Koha::Patrons;
-use C4::Reserves;
+use C4::Reserves qw( AddReserve CanItemBeReserved CanBookBeReserved );
use C4::Items;
use Koha::Database;
use t::lib::Mocks;
use t::lib::TestBuilder;
-use C4::Circulation qw(AddIssue);
+use C4::Circulation qw( AddIssue );
use Koha::Checkouts::ReturnClaims;
use Koha::Database;
use Modern::Perl;
use C4::Context;
-use C4::Circulation;
+use C4::Circulation qw( CanBookBeIssued AddIssue AddReturn );
use C4::Members;
use C4::Items;
use Koha::DateUtils;
use Time::HiRes qw(gettimeofday);
use POSIX qw(strftime);
use C4::Context;
-use C4::Biblio qw( AddBiblio ); # We shouldn't use it
+use C4::Biblio qw( AddBiblio );
use Koha::CirculationRules;
use C4::Context;
use C4::Biblio qw( AddBiblio );
-use C4::Circulation;
+use C4::Circulation qw( AddIssue );
use Koha::AuthUtils;
use t::lib::Mocks;
use t::lib::Selenium;
use t::lib::Mocks;
use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( ModBiblio );
use Koha::Database;
use Koha::Caches;
use Modern::Perl;
-use File::Copy;
-use File::Path qw(make_path);
-use File::Find;
-use File::Basename;
+use File::Copy qw( copy );
+use File::Path qw( make_path );
+use File::Find qw( find );
+use File::Basename qw( dirname );
use File::Spec;
use C4::Context;
package t::lib::Dates;
use Modern::Perl;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use DateTime;
=head1 NAME
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use JSON qw( encode_json decode_json );
+use JSON qw( decode_json encode_json );
use Koha::BackgroundJobs;
use Koha::DateUtils qw( dt_from_string );
use Modern::Perl;
-use Mojo::JSON qw(decode_json);
+use Mojo::JSON qw( decode_json );
use base qw(Koha::Plugins::Base);
use Koha::Exceptions::Exception;
use Koha::Plugins::Tab;
-use Mojo::JSON qw(decode_json);
+use Mojo::JSON qw( decode_json );
## Required for all plugins
use base qw(Koha::Plugins::Base);
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Context;
+use C4::Context qw( config new preference userenv _new_userenv set_userenv );
use Test::MockModule;
use Test::MockObject;
use Modern::Perl;
use Carp qw( croak );
-use JSON qw( from_json );
-use File::Slurp qw( write_file );
-use C4::Context;
+use C4::Context qw( new config preference interface );
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(login password base_url opac_base_url selenium_addr selenium_port driver));
use Modern::Perl;
-use Koha::Database;
-use C4::Biblio;
-use C4::Items;
-use Koha::Biblios;
-use Koha::Items;
+use Koha::Database qw( schema );
+use C4::Biblio qw( AddBiblio );
+use Koha::Biblios qw( _type );
+use Koha::Items qw( _type );
use Koha::DateUtils qw( dt_from_string );
use Bytes::Random::Secure;
-use Carp;
-use Module::Load;
+use Carp qw( carp );
+use Module::Load qw( load );
use String::Random;
use constant {
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth qw(:DEFAULT check_cookie_auth);
-use C4::Biblio;
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetBiblioData );
use C4::Context;
-use C4::Items;
-use C4::Koha;
-use C4::Tags qw(get_tags remove_tag get_tag_rows);
-use C4::Output;
+use C4::Items qw( GetItemsInfo );
+use C4::Tags qw( get_tag_rows get_tags remove_tag );
+use C4::Output qw( output_html_with_http_headers );
my $needed_flags = { tools => 'moderate_tags'
}; # FIXME: replace when more specific permission is created.
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Data::Dumper;
-use POSIX;
+use POSIX qw( ceil exit );
use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
-use URI::Escape;
-use C4::Auth qw(:DEFAULT check_cookie_auth);
+use URI::Escape qw( uri_escape_utf8 );
+use C4::Auth qw( check_cookie_auth get_template_and_user );
use C4::Context;
-use Koha::DateUtils;
-# use C4::Koha;
-use C4::Output qw(:html :ajax pagination_bar);
-use C4::Tags qw(get_tags get_approval_rows approval_counts whitelist blacklist is_approved);
+use Koha::DateUtils qw( dt_from_string output_pref );
+use C4::Output qw( output_with_http_headers is_ajax pagination_bar output_html_with_http_headers );
+use C4::Tags qw(
+ approval_counts
+ blacklist
+ get_approval_rows
+ is_approved
+ whitelist
+);
my $script_name = "/cgi-bin/koha/tags/review.pl";
my $needed_flags = { tools => 'moderate_tags' }; # FIXME: replace when more specific permission is created.
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI;
use C4::Context;
-use C4::Output;
-use C4::Koha;
-use File::stat qw(stat);
-use Digest::MD5 qw(md5_hex);
-use Encode;
+use C4::Output qw( output_html_with_http_headers );
+use File::stat qw( stat );
+use Digest::MD5 qw( md5_hex );
+use Encode qw( decode );
my $input = CGI->new;
my $file_id = $input->param("id");
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( check_api_auth );
use C4::Items qw( ModDateLastSeen );
my $input = CGI->new;
use Modern::Perl;
use CGI;
-use JSON qw( to_json from_json );
+use JSON qw( to_json );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Items;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use Koha::Items;
use Modern::Perl;
# standard or CPAN modules used
-use IO::File;
use CGI qw ( -utf8 );
use CGI::Session;
use C4::Context;
-use C4::Auth qw/check_cookie_auth/;
+use C4::Auth qw( check_cookie_auth );
use C4::BackgroundJob;
use CGI::Cookie; # need to check cookies before
# having CGI parse the POST request
use CGI qw ( -utf8 );
use Modern::Perl;
-use Try::Tiny;
-
-use C4::Auth;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
-use C4::Circulation;
+use Try::Tiny qw( catch try );
+
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Biblio qw(
+ DelBiblio
+ GetAuthorisedValueDesc
+ GetMarcFromKohaField
+ GetMarcStructure
+ IsMarcStructureInternal
+ TransformHtmlToXml
+);
+use C4::Items qw( GetItemsInfo Item2Marc ModItemFromMarc );
+use C4::Circulation qw( LostItem IsItemIssued );
use C4::Context;
use C4::Koha;
use C4::BackgroundJob;
-use C4::ClassSource;
-use C4::Members;
+use C4::ClassSource qw( GetClassSources GetClassSource );
use MARC::File::XML;
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
use Koha::Database;
use Koha::Exceptions::Exception;
use Koha::AuthorisedValues;
use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use Koha::ItemTypes;
use Koha::Patrons;
use CGI;
use List::MoreUtils qw( uniq );
-use C4::Auth;
-use C4::Output;
-use C4::AuthoritiesMarc;
-use C4::Biblio;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetMarcBiblio );
use Koha::Virtualshelves;
use Koha::Authorities;
use CGI;
use List::MoreUtils qw( uniq );
-use JSON qw( encode_json );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
-use C4::AuthoritiesMarc qw( BuildSummary ModAuthority );
-use C4::Biblio qw( GetMarcBiblio ModBiblio );
-use C4::MarcModificationTemplates qw( GetModificationTemplateActions GetModificationTemplates );
+use C4::Auth qw( get_template_and_user );
+use C4::MarcModificationTemplates qw(
+ GetModificationTemplateActions
+ GetModificationTemplates
+);
use Koha::Biblios;
use Koha::BackgroundJob::BatchUpdateBiblio;
use Modern::Perl;
use CGI qw ( -utf8 );
-use JSON qw/ to_json /;
+use JSON qw( to_json );
use C4::Context;
-use C4::Charset;
-use C4::Auth qw/check_cookie_auth/;
-use C4::ImportBatch;
+use C4::Auth qw( check_cookie_auth );
+use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches );
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Members;
-use C4::Circulation; # AnonymiseIssueHistory.
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Members qw( GetBorrowersToExpunge );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patron::Categories;
use Koha::Patrons;
-use Date::Calc qw/Today Add_Delta_YM/;
-use Koha::Patrons;
-use Koha::List::Patron;
+use Koha::List::Patron qw( GetPatronLists );
my $cgi = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( checkauth );
use C4::Output;
use Modern::Perl;
use Encode;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Koha;
use Koha::CsvProfiles;
my $input = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( checkauth );
use C4::Output;
use DateTime;
use C4::Calendar;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
my $input = CGI->new;
my $dbh = C4::Context->dbh();
use Modern::Perl;
use CGI qw ( -utf8 );
use MARC::File::XML;
-use List::MoreUtils qw(uniq);
-use C4::Auth;
-use C4::Output;
+use List::MoreUtils qw( uniq );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Authority::Types;
use Koha::Biblioitems;
use Koha::CsvProfiles;
use Koha::Database;
-use Koha::DateUtils qw( dt_from_string output_pref );
+use Koha::DateUtils qw( dt_from_string );
use Koha::Exporter::Record;
use Koha::ItemTypes;
use Koha::Libraries;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Calendar;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
my $input = CGI->new;
use Modern::Perl;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Templates;
use Koha::Patrons;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Token;
use Koha::Libraries;
use Koha::Patron::Categories;
use Koha::Patron::Attribute::Types;
-use Koha::List::Patron;
+use Koha::List::Patron qw( AddPatronList AddPatronsToList );
use Koha::Patrons::Import;
my $Import = Koha::Patrons::Import->new();
my $uploadbarcodes = $input->param('uploadbarcodes');
my $barcodelist = $input->param('barcodelist');
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
-use C4::Koha;
-use C4::Circulation;
-use C4::Reports::Guided; #_get_column_defs
-use C4::Charset;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Items qw( GetItemsForInventory );
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Circulation qw( AddReturn );
+use C4::Reports::Guided qw( );
+use C4::Charset qw( NormalizeString );
use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::AuthorisedValues;
use Koha::BiblioFrameworks;
use Koha::ClassSources;
# Export to csv
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
- eval {use Text::CSV};
+ eval {use Text::CSV ();};
my $csv = Text::CSV->new or
die Text::CSV->error_diag ();
binmode STDOUT, ":encoding(UTF-8)";
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Languages qw(getTranslatedLanguages);
-use Date::Calc qw/Date_to_Days Today/;
-use Koha::DateUtils;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Languages qw( getTranslatedLanguages );
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::News;
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
-use C4::Letters;
-use C4::Log;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Letters qw( GetMessageTransportTypes );
+use C4::Log qw( logaction );
use Koha::Notice::Templates;
use Koha::Patron::Attribute::Types;
# Koha modules used
use C4::Context;
use C4::Koha;
-use C4::Auth;
-use C4::AuthoritiesMarc;
-use C4::Output;
-use C4::Biblio;
-use C4::ImportBatch;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::ImportBatch qw( CleanBatch DeleteBatch GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords );
use C4::Matcher;
use C4::BackgroundJob;
use C4::Labels::Batch;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
-use C4::MarcModificationTemplates;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::MarcModificationTemplates qw(
+ AddModificationTemplate
+ AddModificationTemplateAction
+ DelModificationTemplate
+ DelModificationTemplateAction
+ GetModificationTemplateActions
+ GetModificationTemplates
+ ModModificationTemplateAction
+ MoveModificationTemplateAction
+);
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
+use C4::Koha qw( GetAuthorisedValues );
use C4::Members;
-use C4::Output;
-use List::MoreUtils qw /any uniq/;
+use C4::Output qw( output_html_with_http_headers );
use Koha::DateUtils qw( dt_from_string );
-use Koha::List::Patron;
+use Koha::List::Patron qw( GetPatronLists );
use Koha::Libraries;
use Koha::Patron::Categories;
-use Koha::Patron::Debarments;
+use Koha::Patron::Debarments qw( AddDebarment DelDebarment GetDebarments );
use Koha::Patrons;
my $input = CGI->new;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( checkauth );
use C4::Output;
use C4::Calendar;
use DateTime;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
my $input = CGI->new;
my $dbh = C4::Context->dbh();
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use C4::Letters;
use C4::Members;
-use C4::Overdues;
+use C4::Overdues qw( GetOverdueMessageTransportTypes );
use Koha::Libraries;
use Koha::Patron::Categories;
use Modern::Perl;
use File::Temp;
-use File::Copy;
use CGI qw ( -utf8 );
use GD;
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Members;
use Koha::Logger;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use Koha::ProblemReports;
my $query = CGI->new;
use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
-use C4::Auth;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
my $cgi = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Try::Tiny;
+use Try::Tiny qw( catch try );
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Quotes;
my $input = CGI->new;
use Modern::Perl;
use C4::Context;
-use C4::Scheduler;
-use C4::Reports::Guided;
-use C4::Auth;
+use C4::Scheduler qw( add_at_job get_jobs remove_at_job );
+use C4::Reports::Guided qw( get_saved_reports );
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
-use C4::Output;
-use Koha::DateUtils;;
+use C4::Output qw( output_html_with_http_headers );
+use Koha::DateUtils qw( dt_from_string output_pref );;
my $input = CGI->new;
my $base;
# Koha modules used
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Biblio;
-use C4::AuthoritiesMarc;
-use C4::ImportBatch;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetMarcBiblio );
+use C4::Auth qw( get_template_and_user );
+use C4::ImportBatch qw( GetRecordFromImportBiblio GetImportBiblios );
use Koha::Biblios;
# Koha modules used
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Biblio;
-use C4::ImportBatch;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::ImportBatch qw( RecordsFromMARCXMLFile RecordsFromISO2709File RecordsFromMarcPlugin BatchStageMarcRecords BatchFindDuplicates SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction );
use C4::Matcher;
use Koha::UploadedFiles;
use C4::BackgroundJob;
-use C4::MarcModificationTemplates;
+use C4::MarcModificationTemplates qw( GetModificationTemplates );
use Koha::Plugins;
use Koha::ImportBatches;
use Modern::Perl;
use CGI;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use Koha::Libraries;
use Koha::StockRotationRotas;
use Koha::StockRotationItems;
use Koha::StockRotationStages;
use Koha::Item;
-use Koha::Util::StockRotation qw(:ALL);
+use Koha::Util::StockRotation qw( get_branches get_stages move_to_next_stage toggle_indemand remove_from_stage add_items_to_rota get_barcodes_status );
my $input = CGI->new;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use C4::Tags qw/get_count_by_tag_status/;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Tags qw( get_count_by_tag_status );
use Koha::Reviews;
my $query = CGI->new;
use CGI qw ( -utf8 );
use GD;
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Biblios;
use Koha::CoverImages;
use Koha::Items;
use Koha::UploadedFiles;
-use C4::Log;
+use C4::Log qw( logaction );
my $input = CGI->new;
use CGI::Cookie;
use Encode;
use JSON;
-use URI::Escape;
+use URI::Escape qw( uri_unescape );
use C4::Context;
-use C4::Auth qw/check_cookie_auth haspermission/;
+use C4::Auth qw( check_cookie_auth get_session );
use Koha::Uploader;
# upload-file.pl must authenticate the user
use CGI qw/-utf8/;
use JSON;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::UploadedFiles;
use constant ERR_READING => 'UPLERR_FILE_NOT_READ';
use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use Text::CSV::Encoded;
use C4::Context;
-use C4::Koha;
-use C4::Output;
-use C4::Items;
-use C4::Serials;
-use C4::Search; # enabled_staff_search_views
+use C4::Output qw( output_html_with_http_headers );
+use C4::Serials qw( CountSubscriptionFromBiblionumber );
+use C4::Search qw( enabled_staff_search_views );
use Koha::ActionLogs;
use Koha::Database;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use Koha::Patrons;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Biblio;
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
use Koha::Biblios;
use Koha::Virtualshelves;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Encode qw(encode);
-use C4::Auth;
-use C4::Biblio;
-use C4::Items;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetMarcBiblio );
+use C4::Output qw( output_html_with_http_headers );
use C4::Record;
-use C4::Ris;
+use C4::Ris qw( marc2ris );
use Koha::CsvProfiles;
use Koha::Virtualshelves;
use Modern::Perl;
use CGI qw ( -utf8 );
-use Encode qw( encode );
-use Carp;
-use Try::Tiny;
-
-use C4::Auth;
-use C4::Biblio;
-use C4::Items;
-use C4::Output;
+use Encode;
+use Carp qw( carp );
+use Try::Tiny qw( catch try );
+
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw(
+ GetBiblioData
+ GetMarcAuthors
+ GetMarcBiblio
+ GetMarcISBN
+ GetMarcSubjects
+);
+use C4::Items qw( GetItemsInfo );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Email;
use Koha::Virtualshelves;
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Biblio;
-use C4::Koha;
-use C4::Items;
+use C4::Auth qw( get_template_and_user );
+use C4::Biblio qw( GetMarcBiblio );
+use C4::Koha qw(
+ GetNormalizedEAN
+ GetNormalizedISBN
+ GetNormalizedOCLCNumber
+ GetNormalizedUPC
+);
+use C4::Items qw( GetItemsLocationInfo );
use C4::Members;
-use C4::Output;
+use C4::Output qw( pagination_bar output_html_with_http_headers );
use C4::XSLT;
use Koha::Biblios;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
use YAML::XS;
my $usage = <<EOF;