15 changes: 10 additions & 5 deletions Koha/List/Patron.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -31,9 +31,14 @@ use Carp;

use Koha::Database;

use base 'Exporter';
our @EXPORT = (
qw(
our (@ISA, @EXPORT_OK);
BEGIN {

require Exporter;
@ISA = qw( Exporter );

@EXPORT_OK = qw(
GetPatronLists
DelPatronList
Expand All @@ -42,8 +47,8 @@ our @EXPORT = (
AddPatronsToList
DelPatronsFromList
)
);
);
};

=head2 GetPatronLists
Expand Down
2 changes: 1 addition & 1 deletion Koha/MetaSearcher.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ use Modern::Perl;
use base 'Class::Accessor';

use C4::Charset qw( MarcToUTF8Record );
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;
Expand Down
2 changes: 1 addition & 1 deletion Koha/MetadataRecord.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,7 @@ and authority) records in Koha.
use Modern::Perl;

use Carp;
use C4::Biblio;
use C4::Biblio qw( GetMarcSubfieldStructure );
use Koha::Util::MARC;

use base qw(Class::Accessor);
Expand Down
2 changes: 1 addition & 1 deletion Koha/MetadataRecord/Authority.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -36,7 +36,7 @@ use warnings;
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);
Expand Down
4 changes: 2 additions & 2 deletions Koha/Patron.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -23,10 +23,10 @@ use Modern::Perl;
use Carp;

use C4::Context;
use C4::Log;
use C4::Log qw( logaction );
use Koha::Checkouts;
use Koha::Database;
use Koha::DateUtils;
use Koha::DateUtils qw( dt_from_string );
use Koha::Holds;
use Koha::Old::Checkouts;
use Koha::Patron::Categories;
Expand Down
2 changes: 1 addition & 1 deletion Koha/Patron/Category.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ use Carp;
use C4::Members::Messaging;

use Koha::Database;
use Koha::DateUtils;
use Koha::DateUtils qw( dt_from_string );

use base qw(Koha::Object);

Expand Down
23 changes: 14 additions & 9 deletions Koha/Patron/Debarments.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,19 +21,24 @@ use Modern::Perl;

use C4::Context;

use parent qw( Exporter );
our (@ISA, @EXPORT_OK);
BEGIN {

our @EXPORT = qw(
GetDebarments
require Exporter;
@ISA = qw( Exporter );

AddDebarment
DelDebarment
ModDebarment
@EXPORT_OK = qw(
GetDebarments
AddUniqueDebarment
DelUniqueDebarment
AddDebarment
DelDebarment
ModDebarment
);
AddUniqueDebarment
DelUniqueDebarment
);
}

=head1 Koha::Patron::Debarments
Expand Down
5 changes: 2 additions & 3 deletions Koha/Patron/Password/Recovery.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,11 @@ use C4::Context;
use C4::Letters;
use Crypt::Eksblowfish::Bcrypt qw(en_base64);

use vars qw(@ISA @EXPORT);

our (@ISA, @EXPORT_OK);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
push @EXPORT, qw(
@EXPORT_OK = qw(
&ValidateBorrowernumber
&SendPasswordRecoveryEmail
&GetValidLinkInfo
Expand Down
2 changes: 1 addition & 1 deletion Koha/Patrons.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@ 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;
Expand Down
2 changes: 1 addition & 1 deletion Koha/SearchEngine/Search.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ Creates a new C<Search> of whatever the relevant type is.

use Modern::Perl;
use C4::Context;
use C4::Biblio qw//;
use C4::Biblio qw( GetMarcFromKohaField );

sub new {
my $engine = C4::Context->preference("SearchEngine") // 'Zebra';
Expand Down
36 changes: 16 additions & 20 deletions Koha/SimpleMARC.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -6,26 +6,22 @@ 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
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
update_field
copy_field
copy_and_replace_field
move_field
delete_field
field_exists
field_equals
);
}

our $debug = 0;

Expand Down
2 changes: 1 addition & 1 deletion Koha/Suggestion.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ use Modern::Perl;
use Carp;

use Koha::Database;
use Koha::DateUtils qw(dt_from_string);
use Koha::DateUtils qw( dt_from_string );

use base qw(Koha::Object);

Expand Down
1 change: 0 additions & 1 deletion Koha/Template/Plugin/AudioAlerts.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -25,7 +25,6 @@ use JSON;
use base qw( Template::Plugin );

use C4::Context;
use Koha;

sub AudioAlerts {
my $dbh = C4::Context->dbh;
Expand Down
2 changes: 1 addition & 1 deletion Koha/Template/Plugin/AuthorisedValues.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,7 @@ use Modern::Perl;
use Template::Plugin;
use base qw( Template::Plugin );

use C4::Koha;
use C4::Koha qw( GetAuthorisedValues );
use Koha::AuthorisedValues;

sub GetByCode {
Expand Down
2 changes: 1 addition & 1 deletion Koha/Template/Plugin/KohaDates.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ use Modern::Perl;
use Template::Plugin::Filter;
use base qw( Template::Plugin::Filter );

use Koha::DateUtils;
use Koha::DateUtils qw( dt_from_string output_pref );
our $DYNAMIC = 1;

sub filter {
Expand Down
4 changes: 2 additions & 2 deletions Koha/UploadedFiles.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,9 +19,9 @@ package Koha::UploadedFiles;

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);
Expand Down
1 change: 0 additions & 1 deletion Koha/Uploader.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -72,7 +72,6 @@ use Time::HiRes;
use base qw(Class::Accessor);

use C4::Context;
use C4::Koha;
use Koha::UploadedFile;
use Koha::UploadedFiles;

Expand Down
8 changes: 0 additions & 8 deletions Koha/Util/FrameworkPlugin.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,14 +22,6 @@ package Koha::Util::FrameworkPlugin;

use Modern::Perl;

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

=head1 NAME
Koha::Util::FrameworkPlugin - utility class with routines for framework plugins
Expand Down
21 changes: 13 additions & 8 deletions Koha/Util/Normalize.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,14 +19,19 @@ package Koha::Util::Normalize;

use Modern::Perl;

use parent qw( Exporter );

our @EXPORT = qw(
legacy_default
remove_spaces
upper_case
lower_case
);
our (@ISA, @EXPORT_OK);
BEGIN {

require Exporter;
@ISA = qw( Exporter );

@EXPORT_OK = qw(
legacy_default
remove_spaces
upper_case
lower_case
);
}

=head1 NAME
Expand Down
2 changes: 1 addition & 1 deletion Koha/Virtualshelf.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,7 +19,7 @@ use Modern::Perl;

use Carp;

use C4::Auth;
use C4::Auth qw( haspermission );

use Koha::Patrons;
use Koha::Database;
Expand Down
2 changes: 1 addition & 1 deletion Koha/Virtualshelfshare.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ 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);
Expand Down
6 changes: 3 additions & 3 deletions about.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -28,8 +28,8 @@
use XML::Simple;
use Config;

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;

Expand All @@ -38,7 +38,7 @@
use Koha::Patrons;
use Koha::Caches;
use Koha::Config::SysPrefs;
use C4::Members::Statistics;
use C4::Members::Statistics qw( get_fields );

#use Smart::Comments '####';

Expand Down
7 changes: 3 additions & 4 deletions acqui/acqui-home.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -30,11 +30,10 @@ =head1 DESCRIPTION
use warnings;

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::Members;
use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget GetBudgetOrdered GetBudgetSpent );
use C4::Debug;
use C4::Suggestions;
use Koha::Acquisition::Currencies;
Expand Down
5 changes: 2 additions & 3 deletions acqui/add_user_search.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,9 +20,8 @@
use Modern::Perl;

use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Members;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );

use Koha::Patron::Categories;

Expand Down
12 changes: 6 additions & 6 deletions acqui/addorder.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -122,13 +122,13 @@ =head1 CGI PARAMETERS
use strict;
use warnings;
use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
use C4::Acquisition; # ModOrder
use C4::Auth qw( get_template_and_user );
use C4::Acquisition qw( GetBasket FillWithDefaultValues populate_order_with_prices ModOrder ModOrderUsers );
use C4::Suggestions; # ModStatus
use C4::Biblio; # AddBiblio TransformKohaToMarc
use C4::Budgets;
use C4::Items;
use C4::Output;
use C4::Biblio qw( TransformKohaToMarc AddBiblio TransformHtmlToXml GetMarcFromKohaField );
use C4::Budgets qw( GetBudget GetBudgetSpent GetBudgetOrdered );
use C4::Items qw( AddItemFromMarc AddItem );
use C4::Output qw( output_html_with_http_headers );
use Koha::Acquisition::Currencies;
use C4::Barcodes;

Expand Down
21 changes: 10 additions & 11 deletions acqui/addorderiso2709.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -28,19 +28,18 @@
use List::MoreUtils qw/uniq/;

use C4::Context;
use C4::Auth;
use C4::Output;
use C4::ImportBatch;
use C4::Matcher;
use C4::Search qw/FindDuplicate/;
use C4::Acquisition;
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::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches SetImportRecordStatus GetImportBatch GetImportBatchRangeDesc SetImportBatchStatus GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
use C4::Matcher qw( new _id fetch get_matches code record_type description GetMatcherList );
use C4::Search qw( FindDuplicate );
use C4::Acquisition qw( GetBasket populate_order_with_prices );
use C4::Biblio qw( GetMarcQuantity GetMarcFromKohaField AddBiblio BiblioAutoLink GetMarcPrice TransformHtmlToXml );
use C4::Items qw( PrepareItemrecordDisplay AddItem AddItemFromMarc );
use C4::Koha;
use C4::Budgets;
use C4::Acquisition;
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode );
use C4::Acquisition qw( GetBasket populate_order_with_prices );
use C4::Suggestions; # GetSuggestion
use C4::Members;

use Koha::Number::Price;
use Koha::Libraries;
Expand Down
4 changes: 2 additions & 2 deletions acqui/ajax-getauthvaluedropbox.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -48,8 +48,8 @@ =head1 CGI PARAMETERS
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();
Expand Down
18 changes: 9 additions & 9 deletions acqui/basket.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,24 +21,24 @@
# 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 haspermission );
use C4::Koha;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Acquisition;
use C4::Budgets;
use C4::Contract;
use C4::Acquisition qw( GetBasket CanUserManageBasket GetOrders GetOrder DelOrder DelBasket GetBasketAsCSV CloseBasket NewBasket NewBasketgroup ModBasket ReopenBasket ModBasketUsers GetBasketgroup GetBasketgroups GetBasketUsers GetItemnumbersFromOrder );
use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
use C4::Contract qw( GetContract );
use C4::Debug;
use C4::Biblio;
use C4::Items;
use C4::Biblio qw( CountBiblioInOrders DelBiblio );
use C4::Items qw( GetItem );
use C4::Suggestions;
use Koha::Biblios;
use Koha::Acquisition::Booksellers;
use Koha::Libraries;
use C4::Letters qw/SendAlerts/;
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;

Expand Down
8 changes: 4 additions & 4 deletions acqui/basketgroup.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -47,12 +47,12 @@ =head1 CGI PARAMETERS
use warnings;
use Carp;

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/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/;
use Koha::EDI qw/create_edi_order get_edifact_ean/;
use C4::Acquisition qw( GetOrders GetOrder GetBasket GetBasketgroup GetBasketsByBasketgroup GetBasketgroups GetBasketsByBookseller ModBasket CloseBasket CloseBasketgroup GetBasketGroupAsCSV DelBasket DelBasketgroup ReOpenBasketgroup ModBasketgroup NewBasket NewBasketgroup );
use Koha::EDI qw( get_edifact_ean create_edi_order );

use Koha::Biblioitems;
use Koha::Acquisition::Booksellers;
Expand Down
8 changes: 4 additions & 4 deletions acqui/basketheader.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -49,10 +49,10 @@ =head1 CGI PARAMETERS
use warnings;
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;

Expand Down
8 changes: 4 additions & 4 deletions acqui/booksellers.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -53,13 +53,13 @@ =head1 CGI PARAMETERS

use strict;
use warnings;
use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Biblio;
use C4::Budgets;
use C4::Output;
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;
Expand Down
6 changes: 3 additions & 3 deletions acqui/cancelorder.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -32,9 +32,9 @@ =head1 DESCRIPTION
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( DelOrder );

my $input = new CGI;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
Expand Down
6 changes: 3 additions & 3 deletions acqui/check_budget_total.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,9 +21,9 @@
#use warnings; FIXME - Bug 2505
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
Expand Down
4 changes: 2 additions & 2 deletions acqui/check_duplicate_barcode_ajax.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,8 +22,8 @@
use CGI qw ( -utf8 );
use CGI::Cookie;
use JSON;
use C4::Auth;
use C4::Items;
use C4::Auth qw( check_cookie_auth );
use C4::Items qw( GetItem GetItemnumberFromBarcode );
use C4::Context;

my $input = new CGI;
Expand Down
4 changes: 2 additions & 2 deletions acqui/check_uniqueness.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -33,8 +33,8 @@

use CGI qw ( -utf8 );
use JSON;
use C4::Output;
use C4::Items;
use C4::Output qw( output_with_http_headers );
use C4::Items qw( SearchItemsByField SearchItems );

my $input = new CGI;
my @field = $input->multi_param('field[]');
Expand Down
4 changes: 2 additions & 2 deletions acqui/edi_ean.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -24,9 +24,9 @@
use strict;
use warnings;

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::Database;
use CGI;
my $schema = Koha::Database->new()->schema();
Expand Down
4 changes: 2 additions & 2 deletions acqui/edifactmsgs.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,8 +22,8 @@
use CGI;
use Koha::Database;
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(
Expand Down
4 changes: 2 additions & 2 deletions acqui/edimsg.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,8 +22,8 @@
use CGI;
use Koha::Database;
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(
Expand Down
8 changes: 4 additions & 4 deletions acqui/finishreceive.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -23,12 +23,12 @@
use strict;
use warnings;
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 GetItemnumbersFromOrder );
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );
use C4::Items qw( GetMarcItem ModItemFromMarc ModItem AddItemFromMarc AddItem GetItem );
use C4::Search;

use Koha::Number::Price;
Expand Down
8 changes: 4 additions & 4 deletions acqui/histsearch.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,12 +52,12 @@ =head1 CGI PARAMETERS
use strict;
#use warnings; FIXME - Bug 2505
use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
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( GetHistory );
use C4::Debug;
use C4::Koha;
use Koha::DateUtils;
use Koha::DateUtils qw( dt_from_string output_pref );

my $input = new CGI;
my $title = $input->param( 'title');
Expand Down
6 changes: 3 additions & 3 deletions acqui/invoice-files.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -30,9 +30,9 @@ =head1 DESCRIPTION
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 = new CGI;
Expand Down
10 changes: 5 additions & 5 deletions acqui/invoice.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -30,14 +30,14 @@ =head1 DESCRIPTION
use warnings;

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::Acquisition qw( CloseInvoice ReopenInvoice ModInvoice MergeInvoices DelInvoice GetInvoice GetInvoiceDetails );
use C4::Budgets qw( GetBudget GetBudgets CanUserUseBudget );

use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Currencies;
use Koha::DateUtils;
use Koha::DateUtils qw( output_pref );
use Koha::Misc::Files;

my $input = new CGI;
Expand Down
10 changes: 5 additions & 5 deletions acqui/invoices.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -30,12 +30,12 @@ =head1 DESCRIPTION
use warnings;

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;
Expand Down
4 changes: 2 additions & 2 deletions acqui/lateorders-export.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,8 +18,8 @@
use Modern::Perl;
use CGI qw ( -utf8 );

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;

Expand Down
10 changes: 5 additions & 5 deletions acqui/lateorders.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -46,13 +46,13 @@ =head1 CGI PARAMETERS
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Bookseller qw( GetBooksellersWithLateOrders );
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 C4::Context;
use C4::Acquisition;
use C4::Letters;
use Koha::DateUtils;
use C4::Acquisition qw( AddClaim GetLateOrders );
use C4::Letters qw( SendAlerts GetLetters );
use Koha::DateUtils qw( dt_from_string output_pref );

my $input = new CGI;
my ($template, $loggedinuser, $cookie) = get_template_and_user(
Expand Down
6 changes: 3 additions & 3 deletions acqui/modordernotes.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -29,9 +29,9 @@ =head1 DESCRIPTION
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;

Expand Down
12 changes: 6 additions & 6 deletions acqui/neworderbiblio.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -58,13 +58,13 @@ =head1 CGI PARAMETERS
use strict;
#use warnings; FIXME - Bug 2505

use C4::Search;
use C4::Search qw( new_record_from_zebra );
use CGI qw ( -utf8 );
use C4::Biblio;
use C4::Auth;
use C4::Output;
use C4::Koha;
use C4::Budgets qw/ GetBudgetHierarchy /;
use C4::Biblio qw( TransformMarcToKoha );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers pagination_bar );
use C4::Koha qw( getnbpages );
use C4::Budgets qw( GetBudgetHierarchy GetBudget );

use Koha::Acquisition::Booksellers;
use Koha::SearchEngine;
Expand Down
17 changes: 8 additions & 9 deletions acqui/neworderempty.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -71,21 +71,20 @@ =head1 CGI PARAMETERS
use CGI qw ( -utf8 );
use C4::Context;

use C4::Auth;
use C4::Budgets;
use C4::Auth qw( get_template_and_user );
use C4::Budgets qw( GetBudget GetBudgetHierarchy CanUserUseBudget );

use C4::Acquisition;
use C4::Contract;
use C4::Acquisition qw( GetOrder GetBasket GetOrderUsers GetLastOrderReceivedFromSubscriptionid );
use C4::Contract qw( GetContract );
use C4::Suggestions; # GetSuggestion
use C4::Biblio; # GetBiblioData GetMarcPrice
use C4::Biblio qw( BiblioAutoLink AddBiblio GetMarcPrice GetBiblioData GetMarcStructure GetMarcFromKohaField );
use C4::Items; #PrepareItemRecord
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use C4::Members;
use C4::Search qw/FindDuplicate/;
use C4::Search qw( FindDuplicate );

#needed for z3950 import:
use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus/;
use C4::ImportBatch qw( SetImportRecordStatus GetImportRecordMarc );

use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Currencies;
Expand Down
8 changes: 4 additions & 4 deletions acqui/newordersubscription.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,11 +19,11 @@

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;

Expand Down
4 changes: 2 additions & 2 deletions acqui/newordersuggestion.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -92,8 +92,8 @@ =head1 CGI PARAMETERS
#use warnings; FIXME - Bug 2505

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::Biblio;

Expand Down
4 changes: 2 additions & 2 deletions acqui/ordered.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -31,8 +31,8 @@ =head1 DESCRIPTION
use strict;
use warnings;
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 $dbh = C4::Context->dbh;
my $input = new CGI;
Expand Down
14 changes: 6 additions & 8 deletions acqui/orderreceive.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -63,15 +63,13 @@ =head1 CGI PARAMETERS

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::Members;
use C4::Items;
use C4::Biblio;
use C4::Acquisition qw( GetInvoice SearchOrders GetItemnumbersFromOrder );
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::Items qw( GetItem );
use C4::Biblio qw( GetMarcStructure );
use C4::Suggestions;
use C4::Koha;

use Koha::Acquisition::Booksellers;
use Koha::DateUtils qw( dt_from_string );
Expand Down
14 changes: 7 additions & 7 deletions acqui/parcel.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -57,18 +57,18 @@ =head1 CGI PARAMETERS
use strict;
use warnings;

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 GetItemnumbersFromOrder SearchOrders );
use C4::Budgets qw( GetBudget GetBudgetByOrderNumber GetBudgetName );
use C4::Biblio qw( CountBiblioInOrders );
use C4::Items qw( GetItem );
use CGI qw ( -utf8 );
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use C4::Suggestions;

use Koha::Acquisition::Bookseller;
use Koha::Biblios;
use Koha::DateUtils;
use Koha::DateUtils qw( dt_from_string );
use Koha::Biblios;

use JSON;
Expand Down
8 changes: 4 additions & 4 deletions acqui/parcels.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -69,11 +69,11 @@ =head1 CGI PARAMETERS
use strict;
use warnings;
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 );
Expand Down
10 changes: 5 additions & 5 deletions acqui/pdfformat/layout2pages.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -29,14 +29,14 @@ use warnings;
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 );
}


Expand Down
11 changes: 5 additions & 6 deletions acqui/pdfformat/layout2pagesde.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,21 +22,20 @@

#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
package pdfformat::layout2pagesde;
use vars qw(@ISA @EXPORT);
use MIME::Base64;
use strict;
use warnings;
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 );
}


Expand Down
11 changes: 5 additions & 6 deletions acqui/pdfformat/layout3pages.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -30,17 +30,16 @@ use warnings;
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 );
}


#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
use constant mm => 25.4 / 72;
Expand Down
10 changes: 5 additions & 5 deletions acqui/pdfformat/layout3pagesfr.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -29,14 +29,14 @@ use warnings;
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 );
}


Expand Down
4 changes: 2 additions & 2 deletions acqui/spent.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -30,8 +30,8 @@ =head1 DESCRIPTION
=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 strict;
use warnings;
use CGI qw ( -utf8 );
Expand Down
6 changes: 3 additions & 3 deletions acqui/supplier.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -42,10 +42,10 @@ =head1 CGI PARAMETERS

use strict;
use warnings;
use C4::Auth;
use C4::Contract;
use C4::Auth qw( get_template_and_user );
use C4::Contract qw( GetContracts GetContract );
use C4::Biblio;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );

use C4::Budgets;
Expand Down
6 changes: 3 additions & 3 deletions acqui/transferorder.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,10 +22,10 @@
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 = new CGI;
Expand Down
6 changes: 3 additions & 3 deletions acqui/uncertainprice.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -46,11 +46,11 @@ =head1 CGI PARAMETERS
use strict;
use warnings;

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::Acquisition qw( SearchOrders GetOrder ModOrder );
use C4::Biblio qw/GetBiblioData/;

use Koha::Acquisition::Booksellers;
Expand Down
2 changes: 1 addition & 1 deletion acqui/updatesupplier.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -50,7 +50,7 @@ =head1 CGI PARAMETERS
use warnings;
use List::Util;
use C4::Context;
use C4::Auth;
use C4::Auth qw( checkauth );

use C4::Biblio;
use C4::Output;
Expand Down
6 changes: 3 additions & 3 deletions acqui/z3950_search.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -23,10 +23,10 @@
use strict;
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::Breeding qw( Z3950Search );
use C4::Koha;

use Koha::Acquisition::Booksellers;
Expand Down
5 changes: 2 additions & 3 deletions admin/add_user_search.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,9 +20,8 @@
use Modern::Perl;

use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Members;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );

use Koha::Patron::Categories;

Expand Down
4 changes: 2 additions & 2 deletions admin/admin-home.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,8 +19,8 @@
use warnings;

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 = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Expand Down
10 changes: 5 additions & 5 deletions admin/aqbudgetperiods.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -48,14 +48,14 @@ =head1 admin/aqbudgetperiods.pl

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::Acquisition;
use C4::Budgets;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Acquisition qw( SearchOrders );
use C4::Budgets qw( GetBudgetPeriod GetBudget ModBudgetPeriod ModBudget AddBudgetPeriod AddBudget DelBudgetPeriod DelBudget _round CloneBudgetPeriod GetBudgetPeriods GetBudgetHierarchy MoveOrders );
use C4::Debug;
use Koha::Acquisition::Currencies;

Expand Down
8 changes: 4 additions & 4 deletions admin/aqbudgets.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -25,12 +25,12 @@
use List::Util qw/min/;

use Koha::Database;
use C4::Auth qw/get_user_subpermissions/;
use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Auth qw( get_template_and_user );
use C4::Acquisition;
use C4::Budgets;
use C4::Budgets qw( GetBudgetPeriod GetBudget GetBudgetAuthCats CanUserModifyBudget BudgetHasChildren GetBudgetHierarchy GetBudgetUsers DelBudget ModBudget ModBudgetUsers AddBudget SetOwnerToFundHierarchy CanUserUseBudget GetBudgetPeriods );
use C4::Context;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use C4::Debug;
use Koha::Acquisition::Currencies;
Expand Down
8 changes: 4 additions & 4 deletions admin/aqcontract.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -24,10 +24,10 @@
use warnings;
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( GetContract ModContract AddContract DelContract GetContracts );
use Koha::DateUtils qw( dt_from_string output_pref );

use Koha::Acquisition::Booksellers;

Expand Down
6 changes: 3 additions & 3 deletions admin/aqplan.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -29,11 +29,11 @@
use Text::CSV_XS;

use C4::Acquisition;
use C4::Budgets;
use C4::Budgets qw( GetBudgetPeriod GetBudget GetPeriodsCount GetBudgetAuthCats GetBudgetHierarchy ModBudgetPlan ModBudget HideCols GetCols CanUserUseBudget GetBudgetsPlanCell GetBudgets );
use C4::Context;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Debug;
use Koha::Acquisition::Currencies;

Expand Down
4 changes: 2 additions & 2 deletions admin/audio_alerts.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,8 +20,8 @@
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;

Expand Down
4 changes: 2 additions & 2 deletions admin/auth_subfields_structure.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,8 +18,8 @@
# 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;
Expand Down
4 changes: 2 additions & 2 deletions admin/auth_tag_structure.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,10 +21,10 @@
use strict;
#use warnings; FIXME - Bug 2505
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Context;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use C4::Context;

use Koha::Authority::Types;
Expand Down
6 changes: 3 additions & 3 deletions admin/authorised_values.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,10 +20,10 @@
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::Koha qw( getImageSets getitemtypeimagelocation );
use C4::Output qw( output_html_with_http_headers );

use Koha::AuthorisedValues;
use Koha::AuthorisedValueCategories;
Expand Down
4 changes: 2 additions & 2 deletions admin/authtypes.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,8 +22,8 @@
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;
Expand Down
4 changes: 2 additions & 2 deletions admin/biblio_framework.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,8 +21,8 @@
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;
Expand Down
6 changes: 3 additions & 3 deletions admin/branch_transfer_limits.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,11 +22,11 @@
use warnings;

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::Koha;
use C4::Circulation qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
use C4::Circulation qw( DeleteBranchTransferLimits CreateBranchTransferLimit IsBranchTransferAllowed );

my $input = new CGI;

Expand Down
4 changes: 2 additions & 2 deletions admin/branches.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,9 +20,9 @@

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::Koha;
use Koha::Patrons;
use Koha::Items;
Expand Down
6 changes: 3 additions & 3 deletions admin/categories.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@

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( output_pref dt_from_string );
use Koha::Patron::Categories;
use Koha::Libraries;

Expand Down
6 changes: 3 additions & 3 deletions admin/check_budget_parent.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,9 +21,9 @@
#use warnings; FIXME - Bug 2505
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 CheckBudgetParent );

=head1 DESCRIPTION

Expand Down
6 changes: 3 additions & 3 deletions admin/check_parent_total.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,9 +21,9 @@
#use warnings; FIXME - Bug 2505
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( GetBudgetPeriod GetBudget );

=head1 DESCRIPTION

Expand Down
4 changes: 2 additions & 2 deletions admin/checkmarc.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,8 +20,8 @@

use strict;
#use warnings; FIXME - Bug 2505
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;
Expand Down
4 changes: 2 additions & 2 deletions admin/cities.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,8 +21,8 @@
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;

Expand Down
8 changes: 4 additions & 4 deletions admin/classsources.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,12 +21,12 @@
use strict;
#use warnings; FIXME - Bug 2505
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::Koha;
use C4::ClassSource;
use C4::ClassSortRoutine;
use C4::ClassSource qw( AddClassSource GetClassSource ModClassSource DelClassSource GetClassSortRules GetClassSortRule GetClassSort AddClassSortRule GetSourcesForSortRule DelClassSortRule ModClassSortRule GetClassSources );
use C4::ClassSortRoutine qw( GetSortRoutineNames );

my $script_name = "/cgi-bin/koha/admin/classsources.pl";

Expand Down
4 changes: 2 additions & 2 deletions admin/clone-rules.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -29,8 +29,8 @@
#use warnings; FIXME - Bug 2505
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::Koha;
use C4::Debug;

Expand Down
4 changes: 2 additions & 2 deletions admin/columns_settings.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,9 +3,9 @@
use Modern::Perl;
use CGI;
use YAML qw( LoadFile );
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::ColumnsSettings qw( get_modules );
my $input = new CGI;

Expand Down
4 changes: 2 additions & 2 deletions admin/currency.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,9 +21,9 @@

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::Currency;
Expand Down
4 changes: 2 additions & 2 deletions admin/didyoumean.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,8 +4,8 @@
use warnings;
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;
Expand Down
4 changes: 2 additions & 2 deletions admin/edi_accounts.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,8 +20,8 @@
use strict;
use warnings;
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;

Expand Down
4 changes: 2 additions & 2 deletions admin/edi_ean_accounts.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,8 +20,8 @@
use strict;
use warnings;
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();
Expand Down
4 changes: 2 additions & 2 deletions admin/fieldmapping.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,9 +19,9 @@

use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Biblio;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

use Koha::BiblioFrameworks;
use Koha::FieldMappings;
Expand Down
4 changes: 2 additions & 2 deletions admin/import_export_framework.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -23,8 +23,8 @@
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( ExportFramework createODS ImportFramework );

my %cookies = CGI::Cookie->fetch();
my $authenticated = 0;
Expand Down
4 changes: 2 additions & 2 deletions admin/item_circulation_alerts.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -24,10 +24,10 @@
use 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;
Expand Down
4 changes: 2 additions & 2 deletions admin/items_search_field.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,8 +19,8 @@
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);

Expand Down
4 changes: 2 additions & 2 deletions admin/items_search_fields.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,8 +19,8 @@
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);

Expand Down
6 changes: 3 additions & 3 deletions admin/itemtypes.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -27,10 +27,10 @@ =head1 admin/itemtypes.pl

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;
Expand Down
4 changes: 2 additions & 2 deletions admin/koha2marclinks.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,8 +19,8 @@

use strict;
use warnings;
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;
Expand Down
4 changes: 2 additions & 2 deletions admin/localization.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,8 +18,8 @@

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;
Expand Down
4 changes: 2 additions & 2 deletions admin/marc_subfields_structure.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,8 +18,8 @@
# 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;

Expand Down
4 changes: 2 additions & 2 deletions admin/marctagstructure.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,10 +21,10 @@
use strict;
use warnings;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Context;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use C4::Context;

use Koha::Caches;
Expand Down
6 changes: 3 additions & 3 deletions admin/matching-rules.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,11 +22,11 @@
use warnings;

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::Koha;
use C4::Matcher qw/valid_normalization_routines/;
use C4::Matcher qw( new _id valid_normalization_routines delete record_type code description threshold add_matchpoint add_required_check store fetch dump GetMatcherList );

my $script_name = "/cgi-bin/koha/admin/matching-rules.pl";

Expand Down
6 changes: 3 additions & 3 deletions admin/oai_set_mappings.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -33,9 +33,9 @@ =head1 DESCRIPTION
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( ModOAISet ModOAISetMappings GetOAISet GetOAISetMappings );

use Data::Dumper;

Expand Down
6 changes: 3 additions & 3 deletions admin/oai_sets.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -29,9 +29,9 @@ =head1 DESCRIPTION
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 GetOAISet ModOAISet DelOAISet GetOAISets );

use Data::Dumper;

Expand Down
6 changes: 3 additions & 3 deletions admin/patron-attr-types.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -24,10 +24,10 @@
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::Output;
use C4::Koha;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha qw( GetAuthorisedValues );
use C4::Members::AttributeTypes;

use Koha::AuthorisedValues;
Expand Down
10 changes: 5 additions & 5 deletions admin/preferences.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,13 +20,13 @@
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::Koha qw( getallthemes );
use C4::Languages qw( getTranslatedLanguages );
use C4::ClassSource qw( GetClassSources GetClassSource );
use C4::Log;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use C4::Templates;
use Koha::Acquisition::Currencies;
use File::Spec;
Expand Down
4 changes: 2 additions & 2 deletions admin/printers.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -41,8 +41,8 @@
#use warnings; FIXME - Bug 2505
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 );

sub StringSearch {
my ($searchstring,$type)=@_; # why bother with $type if we don't use it?!
Expand Down
6 changes: 3 additions & 3 deletions admin/smart-rules.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,11 +21,11 @@
use warnings;
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::Koha;
use C4::Debug;
use Koha::DateUtils;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Database;
use Koha::IssuingRule;
use Koha::IssuingRules;
Expand Down
4 changes: 2 additions & 2 deletions admin/sms_providers.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,8 +22,8 @@
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;
Expand Down
4 changes: 2 additions & 2 deletions admin/sru_modmapping.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,8 +19,8 @@

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

Expand Down
10 changes: 5 additions & 5 deletions admin/systempreferences.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -45,12 +45,12 @@ =head1 systempreferences.pl

use CGI qw ( -utf8 );
use MIME::Base64;
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::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::Syck qw( Dump LoadFile );

my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)
Expand Down
6 changes: 3 additions & 3 deletions admin/transport-cost-matrix.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,11 +21,11 @@
use warnings;
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::Koha;
use C4::Debug;
use C4::HoldsQueue qw(TransportCostMatrix UpdateTransportCostMatrix);
use C4::HoldsQueue qw( TransportCostMatrix UpdateTransportCostMatrix );

use Koha::Libraries;

Expand Down
6 changes: 3 additions & 3 deletions admin/usage_statistics.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,9 +18,9 @@
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 = new CGI;
Expand Down
4 changes: 2 additions & 2 deletions admin/z3950servers.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -27,8 +27,8 @@
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;

# Initialize CGI, template, database
Expand Down
6 changes: 3 additions & 3 deletions authorities/auth_finder.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,10 +22,10 @@
use warnings;

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::AuthoritiesMarc;
use C4::Auth qw( get_template_and_user );
use C4::Acquisition;
use C4::Koha;

Expand Down
8 changes: 4 additions & 4 deletions authorities/authorities-home.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@

use CGI qw ( -utf8 );
use URI::Escape;
use C4::Auth;
use C4::Auth qw( get_template_and_user );

use C4::Context;
use C4::Auth;
use C4::Output;
use C4::AuthoritiesMarc;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( pagination_bar output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Acquisition;
use C4::Koha;
use C4::Biblio;
Expand Down
2 changes: 1 addition & 1 deletion authorities/authorities-list.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
use strict;
use warnings;
use C4::Context;
use C4::AuthoritiesMarc;
use C4::AuthoritiesMarc qw( GetAuthority );
use utf8;
use open qw[ :std :encoding(utf8) ];
use Koha::SearchEngine;
Expand Down
10 changes: 5 additions & 5 deletions authorities/authorities.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,16 +21,16 @@
use strict;
use warnings;
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::Auth qw( get_template_and_user );
use C4::ImportBatch qw( GetImportRecordMarc );
use C4::Context;
use C4::Koha;
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);
Expand Down
6 changes: 3 additions & 3 deletions authorities/blinddetail-biblio-search.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -39,10 +39,10 @@ =head1 FUNCTIONS
use strict;
use warnings;

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( output_html_with_http_headers );
use CGI qw ( -utf8 );
use MARC::Record;
use C4::Koha;
Expand Down
6 changes: 3 additions & 3 deletions authorities/detail-biblio-search.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -40,10 +40,10 @@ =head1 FUNCTIONS
use strict;
use warnings;

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( output_html_with_http_headers );
use CGI qw ( -utf8 );
use MARC::Record;
use C4::Koha;
Expand Down
8 changes: 4 additions & 4 deletions authorities/detail.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -40,13 +40,13 @@ =head1 FUNCTIONS
use strict;
use warnings;

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( output_html_with_http_headers );
use CGI qw ( -utf8 );
use MARC::Record;
use C4::Koha;
use C4::Koha qw( display_marc_indicators );
use Koha::Authorities;

use Koha::Authority::Types;
Expand Down
6 changes: 3 additions & 3 deletions authorities/export.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,10 +2,10 @@
use strict;
use warnings;

use C4::Record;
use C4::Auth;
use C4::Record qw( marc2marc marc2marcxml marc2madsxml changeEncoding );
use C4::Auth qw( get_template_and_user );
use C4::Output;
use C4::AuthoritiesMarc;
use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );

my $query = new CGI;
Expand Down
8 changes: 4 additions & 4 deletions authorities/merge.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@
use strict;
use warnings;
use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::AuthoritiesMarc;
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Auth qw( get_template_and_user );
use Koha::MetadataRecord::Authority;
use C4::Koha;
use C4::Biblio;
use C4::Biblio qw( TransformHtmlToMarc );

my $input = new CGI;
my @authid = $input->multi_param('authid');
Expand Down
4 changes: 2 additions & 2 deletions authorities/merge_ajax.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -8,8 +8,8 @@
use JSON;

use C4::Context;
use C4::Auth qw/check_cookie_auth/;
use C4::AuthoritiesMarc;
use C4::Auth qw( check_cookie_auth );
use C4::Auth qw( check_cookie_auth );

my %cookies = CGI::Cookie->fetch;
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' });
Expand Down
8 changes: 4 additions & 4 deletions authorities/ysearch.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -32,10 +32,10 @@ =head1 ysearch.pl
use JSON;

use C4::Context;
use C4::Charset;
use C4::AuthoritiesMarc;
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::Auth qw( check_cookie_auth );
use C4::Output qw( output_with_http_headers );

my $query = new CGI;

Expand Down
8 changes: 4 additions & 4 deletions basket/basket.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,10 +19,10 @@
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( GetFrameworkCode GetBiblioData GetMarcBiblio GetRecordValue GetMarcNotes GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls );
use C4::Items qw( GetItem GetItemsInfo );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );

use Koha::AuthorisedValues;
use Koha::CsvProfiles;
Expand Down
10 changes: 5 additions & 5 deletions basket/downloadcart.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@
use CGI qw ( -utf8 );
use Encode qw(encode);

use C4::Auth;
use C4::Biblio;
use C4::Auth qw( get_template_and_user );
use C4::Biblio qw( GetMarcBiblio );
use C4::Items;
use C4::Output;
use C4::Record;
use C4::Ris;
use C4::Output qw( output_html_with_http_headers );
use C4::Record qw( marc2csv marc2bibtex );
use C4::Ris qw( marc2ris );

use Koha::CsvProfiles;

Expand Down
8 changes: 4 additions & 4 deletions basket/sendbasket.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -24,10 +24,10 @@
use MIME::QuotedPrint;
use MIME::Base64;

use C4::Biblio;
use C4::Items;
use C4::Auth;
use C4::Output;
use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects );
use C4::Items qw( GetItem 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::Token;
Expand Down
12 changes: 6 additions & 6 deletions catalogue/ISBDdetail.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -36,16 +36,16 @@ =head1 FUNCTIONS
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::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView GetBiblioData GetCOinSBiblio );
use C4::Items;
use C4::Serials; # CountSubscriptionFromBiblionumber
use C4::Search; # enabled_staff_search_views
use C4::Acquisition qw(GetOrdersByBiblionumber);
use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
use C4::Search qw( z3950_search_args enabled_staff_search_views );
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder );

use Koha::Biblios;
use Koha::Patrons;
Expand Down
14 changes: 7 additions & 7 deletions catalogue/MARCdetail.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -48,16 +48,16 @@ =head1 FUNCTIONS
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::Koha;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha qw( display_marc_indicators );
use MARC::Record;
use C4::Biblio;
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetCOinSBiblio GetMarcStructure GetBiblioData GetAuthorisedValueDesc GetMarcFromKohaField );
use C4::Items;
use C4::Acquisition;
use C4::Serials; #uses getsubscriptionsfrombiblionumber GetSubscriptionsFromBiblionumber
use C4::Search; # enabled_staff_search_views
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder );
use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
use C4::Search qw( z3950_search_args enabled_staff_search_views );

use Koha::Biblios;
use Koha::BiblioFrameworks;
Expand Down
36 changes: 18 additions & 18 deletions catalogue/detail.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,26 +20,26 @@

use CGI qw ( -utf8 );
use HTML::Entities;
use C4::Acquisition qw( GetHistory );
use C4::Auth;
use C4::Koha;
use C4::Serials; #uses getsubscriptionfrom biblionumber
use C4::Output;
use C4::Biblio;
use C4::Items;
use C4::Circulation;
use C4::Acquisition qw( GetHistory GetOrders GetOrdersByBiblionumber GetOrder );
use C4::Auth qw( get_template_and_user );
use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN getitemtypeimagelocation GetAuthorisedValues );
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
use C4::Output qw( output_html_with_http_headers );
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetCOinSBiblio GetMarcNotes GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcHosts GetRecordValue GetBiblioData );
use C4::Items qw( GetItem GetItemsInfo GetHostItemsInfo GetAnalyticsCount );
use C4::Circulation qw( GetTransfers );
use C4::Reserves;
use C4::Serials;
use C4::XISBN qw(get_xisbns get_biblionumber_from_isbn);
use C4::External::Amazon;
use C4::Search; # enabled_staff_search_views
use C4::Tags qw(get_tags);
use C4::XSLT;
use C4::Images;
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 get_tag );
use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display );
use C4::Images qw( ListImagesForBiblio );
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 C4::Acquisition qw( GetHistory GetOrders GetOrdersByBiblionumber GetOrder );
use Koha::AuthorisedValues;
use Koha::Biblios;
use Koha::Items;
Expand Down
8 changes: 4 additions & 4 deletions catalogue/export.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,12 +2,12 @@
use strict;
#use warnings; FIXME - Bug 2505

use C4::Record;
use C4::Auth;
use C4::Record qw( marc2endnote marc2marc marc2marcxml marc2modsxml marc2bibtex marc2dcxml changeEncoding );
use C4::Auth qw( get_template_and_user );
use C4::Output;
use C4::Biblio;
use C4::Biblio qw( GetMarcBiblio );
use CGI qw ( -utf8 );
use C4::Ris;
use C4::Ris qw( marc2ris );



Expand Down
9 changes: 4 additions & 5 deletions catalogue/getitem-ajax.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,11 +21,10 @@
use CGI qw ( -utf8 );
use 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::Items qw( GetItem );
use C4::Output qw( output_with_http_headers );
use Koha::Libraries;

use Koha::AuthorisedValues;
Expand Down
2 changes: 1 addition & 1 deletion catalogue/image.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -28,7 +28,7 @@

use CGI qw ( -utf8 ); #qw(:standard escapeHTML);
use C4::Context;
use C4::Images;
use C4::Images qw( NoImage ListImagesForBiblio RetrieveImage );

$| = 1;

Expand Down
13 changes: 6 additions & 7 deletions catalogue/imageviewer.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,13 +21,12 @@
use warnings;

use CGI qw ( -utf8 );
use C4::Auth;
use C4::Biblio;
use C4::Items;
use C4::Output;
use C4::Images;
use C4::Search;
use C4::Acquisition qw(GetOrdersByBiblionumber);
use C4::Auth qw( get_template_and_user );
use C4::Items qw( GetItem GetItemsInfo );
use C4::Output qw( output_html_with_http_headers );
use C4::Images qw( ListImagesForBiblio );
use C4::Search qw( enabled_staff_search_views );
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder );

use Koha::Biblios;
use Koha::Patrons;
Expand Down
9 changes: 4 additions & 5 deletions catalogue/issuehistory.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,11 @@
#use warnings; FIXME - Bug 2505

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::Circulation; # GetBiblioIssues
use C4::Biblio; # GetBiblio
use C4::Search; # enabled_staff_search_views
use C4::Circulation qw( GetBiblioIssues );
use C4::Search qw( enabled_staff_search_views );

use Koha::Biblios;

Expand Down
10 changes: 5 additions & 5 deletions catalogue/itemsearch.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,11 +21,11 @@

use 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 GetItem );
use C4::Biblio qw( GetBiblioItemByBiblioNumber );
use C4::Koha qw( GetAuthorisedValues );

use Koha::AuthorisedValues;
use Koha::Biblios;
Expand Down
10 changes: 5 additions & 5 deletions catalogue/labeledMARCdetail.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,13 +22,13 @@
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::Output qw( output_html_with_http_headers );
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetMarcStructure GetBiblioData );
use C4::Items;
use C4::Search; # enabled_staff_search_views
use C4::Acquisition qw(GetOrdersByBiblionumber);
use C4::Search qw( z3950_search_args enabled_staff_search_views );
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder );

use Koha::Biblios;
use Koha::BiblioFrameworks;
Expand Down
16 changes: 8 additions & 8 deletions catalogue/moredetail.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,16 +21,16 @@

use strict;
#use warnings; FIXME - Bug 2505
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 GetRecordValue );
use C4::Items qw( GetItem GetItemsInfo GetHostItemsInfo );
use C4::Acquisition qw( GetOrderFromItemnumber GetOrder GetBasket GetInvoice GetOrders GetOrdersByBiblionumber );
use C4::Output qw( 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;
Expand Down
4 changes: 2 additions & 2 deletions catalogue/search-history.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,9 +21,9 @@
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 = new CGI;

Expand Down
12 changes: 6 additions & 6 deletions catalogue/search.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -141,14 +141,14 @@ =head3 Additional Notes

## 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 );
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::LibraryCategories;
Expand Down
10 changes: 5 additions & 5 deletions catalogue/showmarc.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -30,11 +30,11 @@

# 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 qw( engine );

my $input= new CGI;
my $biblionumber= $input->param('id');
Expand Down
6 changes: 3 additions & 3 deletions catalogue/updateitem.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@
use strict;
use warnings;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Auth qw( checkauth );
use C4::Context;
use C4::Biblio;
use C4::Items;
use C4::Items qw( GetItem ModItem );
use C4::Output;
use C4::Circulation;
use C4::Circulation qw( LostItem );
use C4::Reserves;

my $cgi= new CGI;
Expand Down
18 changes: 9 additions & 9 deletions cataloguing/addbiblio.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,20 +22,20 @@
use strict;
#use warnings; FIXME - Bug 2505
use CGI q(-utf8);
use C4::Output;
use C4::Auth;
use C4::Biblio;
use C4::Search;
use C4::AuthoritiesMarc;
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetUsedMarcStructure GetMarcBiblio PrepHostMarcField prepare_host_field TransformHtmlToMarc BiblioAutoLink ModBiblio AddBiblio DelBiblio );
use C4::Search qw( FindDuplicate enabled_staff_search_views );
use C4::Auth qw( get_template_and_user );
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 GetClassSource );
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;
Expand Down
10 changes: 5 additions & 5 deletions cataloguing/addbooks.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -27,12 +27,12 @@ =head1 cataloguing:addbooks.pl
use strict;
use warnings;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Biblio;
use C4::Breeding;
use C4::Output;
use C4::Koha;
use C4::Search;
use C4::Breeding qw( BreedingSearch );
use C4::Output qw( output_html_with_http_headers pagination_bar );
use C4::Koha qw( getnbpages );
use C4::Search qw( searchResults z3950_search_args );

use Koha::BiblioFrameworks;
use Koha::SearchEngine::Search;
Expand Down
20 changes: 9 additions & 11 deletions cataloguing/additem.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,24 +22,22 @@
use strict;
#use warnings; FIXME - Bug 2505
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_html_with_http_headers );
use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetMarcBiblio TransformMarcToKoha TransformHtmlToXml ModBiblio EmbedItemsInMarcBiblio GetAuthorisedValueDesc IsMarcStructureInternal );
use C4::Items qw( GetItem ModItem AddItemFromMarc AddItem GetMarcItem DelItem DelItemCheck GetItemnumbersForBiblio ModItemFromMarc GetBarcodeFromItemnumber );
use C4::Context;
use C4::Circulation;
use C4::Koha;
use C4::ClassSource;
use Koha::DateUtils;
use Koha::Items;
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::ItemTypes;
use Koha::Libraries;
use Koha::Patrons;
use List::MoreUtils qw/any/;
use C4::Search;
use C4::Search qw( enabled_staff_search_views );
use Storable qw(thaw freeze);
use URI::Escape;
use C4::Members;

use MARC::File::XML;
use URI::Escape;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/editor.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -23,10 +23,10 @@
use CGI;
use MARC::Record;

use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Biblio;
use C4::Context;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use DBIx::Class::ResultClass::HashRefInflator;
use Koha::Database;

Expand Down
8 changes: 4 additions & 4 deletions cataloguing/linkitem.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,10 +21,10 @@

use strict;
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 PrepHostMarcField ModBiblio );
use C4::Items qw( GetItem GetItemnumberFromBarcode );
use C4::Context;
use C4::Koha;

Expand Down
14 changes: 7 additions & 7 deletions cataloguing/merge.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,14 +21,14 @@
use Modern::Perl;
use CGI qw ( -utf8 );

use C4::Output;
use C4::Auth;
use C4::Items;
use C4::Biblio;
use C4::Serials;
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( TransformHtmlToMarc GetMarcBiblio ModBiblio GetBiblioItemByBiblioNumber DelBiblio GetFrameworkCode GetMarcStructure GetMarcFromKohaField GetBiblioData );
use C4::Serials qw( CountSubscriptionFromBiblionumber );
use C4::Koha;
use C4::Reserves qw/MergeHolds/;
use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/;
use C4::Reserves qw( MergeHolds );
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder ModOrder );

use Koha::BiblioFrameworks;
use Koha::Items;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/merge_ajax.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -7,8 +7,8 @@
use 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(
Expand Down
8 changes: 4 additions & 4 deletions cataloguing/moveitem.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,10 +22,10 @@
use strict;
#use warnings; FIXME - Bug 2505
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( GetBiblioData );
use C4::Items qw( MoveItemFromBiblio );
use C4::Context;
use C4::Koha;
use C4::ClassSource;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/EXAMPLE.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,8 +19,8 @@

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
Expand Down
2 changes: 1 addition & 1 deletion cataloguing/value_builder/barcode.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -24,7 +24,7 @@

use C4::Context;
use C4::Barcodes::ValueBuilder;
use Koha::DateUtils;
use Koha::DateUtils qw( dt_from_string output_pref );

use Algorithm::CheckDigits;

Expand Down
2 changes: 1 addition & 1 deletion cataloguing/value_builder/barcode_manual.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -24,7 +24,7 @@

use C4::Context;
use C4::Barcodes::ValueBuilder;
use Koha::DateUtils;
use Koha::DateUtils qw( dt_from_string output_pref );

my $DEBUG = 0;

Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/callnumber-KU.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,9 +22,9 @@
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

Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/callnumber.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,9 +22,9 @@
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

Expand Down
6 changes: 3 additions & 3 deletions cataloguing/value_builder/cn_browser.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,9 +22,9 @@
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 );

my $builder = sub {
my ( $params ) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/dateaccessioned.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,8 +20,8 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;
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 ) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/macles.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -23,8 +23,8 @@
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 ) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/marc21_field_006.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@
# 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;

Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/marc21_field_007.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,12 +21,12 @@

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 ) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/marc21_field_008.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@
# 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|;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/marc21_field_008_authorities.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@
# 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';
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/marc21_field_008_classifications.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -16,12 +16,12 @@
# 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';
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/marc21_leader.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,9 +22,9 @@
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 ) = @_;
Expand Down
6 changes: 3 additions & 3 deletions cataloguing/value_builder/marc21_leader_authorities.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,12 +21,12 @@

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 ) = @_;
Expand Down Expand Up @@ -92,4 +92,4 @@
output_html_with_http_headers $input, $cookie, $template->output;
};

return { builder => $builder, launcher => $launcher };
return { builder => $builder, launcher => $launcher };
10 changes: 5 additions & 5 deletions cataloguing/value_builder/marc21_linking_section.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,13 +22,13 @@
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::Biblio qw( GetMarcBiblio TransformMarcToKoha );
use C4::Koha;
use MARC::Record;

Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/normarc_field_007.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,12 +18,12 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use strict;
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) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/normarc_field_008.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,12 +18,12 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use strict;
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);
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/normarc_leader.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,12 +19,12 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use strict;
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) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/stocknumberAV.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,9 +22,9 @@
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

Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/stocknumberam123.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,9 +22,9 @@
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

Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_010.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,10 +20,10 @@

use strict;
use warnings;
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 {
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_100.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,10 +22,10 @@
#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::Output;
use C4::Output qw( output_html_with_http_headers );


sub plugin_javascript {
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_100_authorities.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,10 +20,10 @@
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 {
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_105.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@
#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) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_106.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_110.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@
#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) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_115a.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@
#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 ) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_115b.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@
#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 ) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_116.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@
#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 ) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_117.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@
#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) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_120.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@
#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) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_121a.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,12 +22,12 @@
#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) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_121b.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_122.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_123a.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_123d.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_123e.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_123f.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_123g.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_123i.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_123j.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_124.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_124a.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_124b.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_124c.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
4 changes: 2 additions & 2 deletions cataloguing/value_builder/unimarc_field_124d.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,12 +20,12 @@

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::Search;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );

sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
Expand Down
Loading