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

(-)a/C4/SIP/interactive_patron_check_password.pl (-1 / +1 lines)
Lines 5-11 use warnings; Link Here
5
use strict;
5
use strict;
6
6
7
use C4::SIP::ILS::Patron;
7
use C4::SIP::ILS::Patron;
8
use C4::SIP::Sip qw(sipbool);
8
use C4::SIP::Sip qw( sipbool );
9
use Data::Dumper;
9
use Data::Dumper;
10
10
11
while (1) {
11
while (1) {
(-)a/about.pl (-3 / +3 lines)
Lines 28-35 use LWP::Simple; Link Here
28
use XML::Simple;
28
use XML::Simple;
29
use Config;
29
use Config;
30
30
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user get_user_subpermissions );
33
use C4::Context;
33
use C4::Context;
34
use C4::Installer;
34
use C4::Installer;
35
35
Lines 38-44 use Koha::Acquisition::Currencies; Link Here
38
use Koha::Patrons;
38
use Koha::Patrons;
39
use Koha::Caches;
39
use Koha::Caches;
40
use Koha::Config::SysPrefs;
40
use Koha::Config::SysPrefs;
41
use C4::Members::Statistics;
41
use C4::Members::Statistics qw( get_fields );
42
42
43
#use Smart::Comments '####';
43
#use Smart::Comments '####';
44
44
(-)a/acqui/acqui-home.pl (-4 / +4 lines)
Lines 30-40 use strict; Link Here
30
use warnings;
30
use warnings;
31
31
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Acquisition;
35
use C4::Acquisition;
36
use C4::Budgets;
36
use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget GetBudgetOrdered GetBudgetSpent );
37
use C4::Members;
37
use C4::Members qw( GetMember );
38
use C4::Debug;
38
use C4::Debug;
39
use C4::Suggestions;
39
use C4::Suggestions;
40
use Koha::Acquisition::Currencies;
40
use Koha::Acquisition::Currencies;
(-)a/acqui/add_user_search.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/acqui/addorder.pl (-6 / +6 lines)
Lines 122-134 if it is an order from an existing suggestion : the id of this suggestion. Link Here
122
use strict;
122
use strict;
123
use warnings;
123
use warnings;
124
use CGI qw ( -utf8 );
124
use CGI qw ( -utf8 );
125
use C4::Auth;           # get_template_and_user
125
use C4::Auth qw( get_template_and_user );
126
use C4::Acquisition;    # ModOrder
126
use C4::Acquisition qw( GetBasket FillWithDefaultValues populate_order_with_prices ModOrder ModOrderUsers );
127
use C4::Suggestions;    # ModStatus
127
use C4::Suggestions;    # ModStatus
128
use C4::Biblio;         # AddBiblio TransformKohaToMarc
128
use C4::Biblio qw( TransformKohaToMarc AddBiblio TransformHtmlToXml GetMarcFromKohaField );
129
use C4::Budgets;
129
use C4::Budgets qw( GetBudget GetBudgetSpent GetBudgetOrdered );
130
use C4::Items;
130
use C4::Items qw( AddItemFromMarc AddItem );
131
use C4::Output;
131
use C4::Output qw( output_html_with_http_headers );
132
use Koha::Acquisition::Currencies;
132
use Koha::Acquisition::Currencies;
133
use C4::Barcodes;
133
use C4::Barcodes;
134
134
(-)a/acqui/addorderiso2709.pl (-10 / +10 lines)
Lines 28-46 use YAML qw/Load/; Link Here
28
use List::MoreUtils qw/uniq/;
28
use List::MoreUtils qw/uniq/;
29
29
30
use C4::Context;
30
use C4::Context;
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::ImportBatch;
33
use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches SetImportRecordStatus GetImportBatch GetImportBatchRangeDesc SetImportBatchStatus GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
34
use C4::Matcher;
34
use C4::Matcher;
35
use C4::Search qw/FindDuplicate/;
35
use C4::Search qw( FindDuplicate );
36
use C4::Acquisition;
36
use C4::Acquisition qw( GetBasket populate_order_with_prices );
37
use C4::Biblio;
37
use C4::Biblio qw( GetMarcQuantity GetMarcFromKohaField AddBiblio BiblioAutoLink GetMarcPrice TransformHtmlToXml );
38
use C4::Items;
38
use C4::Items qw( PrepareItemrecordDisplay AddItem AddItemFromMarc );
39
use C4::Koha;
39
use C4::Koha;
40
use C4::Budgets;
40
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode );
41
use C4::Acquisition;
41
use C4::Acquisition qw( GetBasket populate_order_with_prices );
42
use C4::Suggestions;    # GetSuggestion
42
use C4::Suggestions;    # GetSuggestion
43
use C4::Members;
43
use C4::Members qw( GetMember );
44
44
45
use Koha::Number::Price;
45
use Koha::Number::Price;
46
use Koha::Libraries;
46
use Koha::Libraries;
(-)a/acqui/ajax-getauthvaluedropbox.pl (-2 / +2 lines)
Lines 48-55 Default value for the dropbox. Link Here
48
use Modern::Perl;
48
use Modern::Perl;
49
49
50
use CGI qw ( -utf8 );
50
use CGI qw ( -utf8 );
51
use C4::Charset;
51
use C4::Charset qw( NormalizeString );
52
use C4::Auth qw/check_api_auth/;
52
use C4::Auth qw( check_api_auth );
53
use Koha::AuthorisedValues;
53
use Koha::AuthorisedValues;
54
54
55
my $query = CGI->new();
55
my $query = CGI->new();
(-)a/acqui/basket.pl (-10 / +10 lines)
Lines 21-45 Link Here
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
22
23
use Modern::Perl;
23
use Modern::Perl;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user haspermission );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Acquisition;
28
use C4::Acquisition qw( GetBasket CanUserManageBasket GetOrders GetOrder DelOrder DelBasket GetBasketAsCSV CloseBasket NewBasket NewBasketgroup ModBasket ReopenBasket ModBasketUsers GetBasketgroup GetBasketgroups GetBasketUsers GetItemnumbersFromOrder );
29
use C4::Budgets;
29
use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
30
use C4::Contract;
30
use C4::Contract qw( GetContract );
31
use C4::Debug;
31
use C4::Debug;
32
use C4::Biblio;
32
use C4::Biblio qw( CountBiblioInOrders GetSubscriptionsId DelBiblio );
33
use C4::Members qw/GetMember/;  #needed for permissions checking for changing basketgroup of a basket
33
use C4::Members qw( GetMember );
34
use C4::Items;
34
use C4::Items qw( GetItem );
35
use C4::Suggestions;
35
use C4::Suggestions;
36
use Koha::Biblios;
36
use Koha::Biblios;
37
use Koha::Acquisition::Booksellers;
37
use Koha::Acquisition::Booksellers;
38
use Koha::Libraries;
38
use Koha::Libraries;
39
use C4::Letters qw/SendAlerts/;
39
use C4::Letters qw( SendAlerts );
40
use Date::Calc qw/Add_Delta_Days/;
40
use Date::Calc qw/Add_Delta_Days/;
41
use Koha::Database;
41
use Koha::Database;
42
use Koha::EDI qw( create_edi_order get_edifact_ean );
42
use Koha::EDI qw( create_edi_order );
43
use Koha::CsvProfiles;
43
use Koha::CsvProfiles;
44
44
45
=head1 NAME
45
=head1 NAME
(-)a/acqui/basketgroup.pl (-5 / +5 lines)
Lines 47-59 use strict; Link Here
47
use warnings;
47
use warnings;
48
use Carp;
48
use Carp;
49
49
50
use C4::Auth;
50
use C4::Auth qw( get_template_and_user );
51
use C4::Output;
51
use C4::Output qw( output_html_with_http_headers );
52
use CGI qw ( -utf8 );
52
use CGI qw ( -utf8 );
53
53
54
use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/;
54
use C4::Acquisition qw( GetOrders GetOrder GetBasket GetBasketgroup GetBasketsByBasketgroup GetBasketgroups GetBasketsByBookseller ModBasket CloseBasket CloseBasketgroup GetBasketGroupAsCSV DelBasket DelBasketgroup ReOpenBasketgroup ModBasketgroup NewBasket NewBasketgroup );
55
use C4::Members qw/GetMember/;
55
use C4::Members qw( GetMember );
56
use Koha::EDI qw/create_edi_order get_edifact_ean/;
56
use Koha::EDI qw( get_edifact_ean create_edi_order );
57
57
58
use Koha::Acquisition::Booksellers;
58
use Koha::Acquisition::Booksellers;
59
use Koha::ItemTypes;
59
use Koha::ItemTypes;
(-)a/acqui/basketheader.pl (-4 / +4 lines)
Lines 49-58 use strict; Link Here
49
use warnings;
49
use warnings;
50
use CGI qw ( -utf8 );
50
use CGI qw ( -utf8 );
51
use C4::Context;
51
use C4::Context;
52
use C4::Auth;
52
use C4::Auth qw( get_template_and_user );
53
use C4::Output;
53
use C4::Output qw( output_html_with_http_headers );
54
use C4::Acquisition qw/GetBasket NewBasket ModBasketHeader/;
54
use C4::Acquisition qw( GetBasket ModBasket ModBasketHeader NewBasket );
55
use C4::Contract qw/GetContracts/;
55
use C4::Contract qw( GetContracts GetContract );
56
56
57
use Koha::Acquisition::Booksellers;
57
use Koha::Acquisition::Booksellers;
58
58
(-)a/acqui/booksellers.pl (-5 / +5 lines)
Lines 53-66 The id of the supplier whose baskets we will display Link Here
53
53
54
use strict;
54
use strict;
55
use warnings;
55
use warnings;
56
use C4::Auth;
56
use C4::Auth qw( get_template_and_user );
57
use C4::Biblio;
57
use C4::Biblio;
58
use C4::Budgets;
58
use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
59
use C4::Output;
59
use C4::Output qw( output_html_with_http_headers );
60
use CGI qw ( -utf8 );
60
use CGI qw ( -utf8 );
61
61
62
use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /;
62
use C4::Acquisition qw( GetBasket GetBasketsInfosByBookseller CanUserManageBasket GetBasketgroup );
63
use C4::Members qw/GetMember/;
63
use C4::Members qw( GetMember );
64
use C4::Context;
64
use C4::Context;
65
65
66
use Koha::Acquisition::Booksellers;
66
use Koha::Acquisition::Booksellers;
(-)a/acqui/cancelorder.pl (-3 / +3 lines)
Lines 32-40 and add possibility to indicate a reason for cancellation Link Here
32
use Modern::Perl;
32
use Modern::Perl;
33
33
34
use CGI;
34
use CGI;
35
use C4::Auth;
35
use C4::Auth qw( get_template_and_user );
36
use C4::Output;
36
use C4::Output qw( output_html_with_http_headers );
37
use C4::Acquisition;
37
use C4::Acquisition qw( DelOrder );
38
38
39
my $input = new CGI;
39
my $input = new CGI;
40
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
40
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
(-)a/acqui/check_budget_total.pl (-3 / +3 lines)
Lines 21-29 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Budgets;
26
use C4::Budgets qw( GetBudget );
27
27
28
=head1 DESCRIPTION
28
=head1 DESCRIPTION
29
29
(-)a/acqui/check_duplicate_barcode_ajax.pl (-2 / +2 lines)
Lines 22-29 use strict; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use CGI::Cookie;
23
use CGI::Cookie;
24
use JSON;
24
use JSON;
25
use C4::Auth;
25
use C4::Auth qw( check_cookie_auth );
26
use C4::Items;
26
use C4::Items qw( GetItem GetItemnumberFromBarcode );
27
use C4::Context;
27
use C4::Context;
28
28
29
my $input        = new CGI;
29
my $input        = new CGI;
(-)a/acqui/check_uniqueness.pl (-2 / +2 lines)
Lines 33-40 use Modern::Perl; Link Here
33
33
34
use CGI qw ( -utf8 );
34
use CGI qw ( -utf8 );
35
use JSON;
35
use JSON;
36
use C4::Output;
36
use C4::Output qw( output_with_http_headers );
37
use C4::Items;
37
use C4::Items qw( SearchItemsByField SearchItems );
38
38
39
my $input = new CGI;
39
my $input = new CGI;
40
my @field = $input->multi_param('field[]');
40
my @field = $input->multi_param('field[]');
(-)a/acqui/edi_ean.pl (-2 / +2 lines)
Lines 24-32 Link Here
24
use strict;
24
use strict;
25
use warnings;
25
use warnings;
26
26
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use Koha::Database;
30
use Koha::Database;
31
use CGI;
31
use CGI;
32
my $schema = Koha::Database->new()->schema();
32
my $schema = Koha::Database->new()->schema();
(-)a/acqui/edifactmsgs.pl (-2 / +2 lines)
Lines 22-29 use warnings; Link Here
22
use CGI;
22
use CGI;
23
use Koha::Database;
23
use Koha::Database;
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
my $q = CGI->new;
28
my $q = CGI->new;
29
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
29
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
(-)a/acqui/edimsg.pl (-2 / +2 lines)
Lines 22-29 use warnings; Link Here
22
use CGI;
22
use CGI;
23
use Koha::Database;
23
use Koha::Database;
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
my $q = CGI->new;
28
my $q = CGI->new;
29
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
29
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
(-)a/acqui/finishreceive.pl (-4 / +4 lines)
Lines 23-34 Link Here
23
use strict;
23
use strict;
24
use warnings;
24
use warnings;
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Auth;
26
use C4::Auth qw( checkauth );
27
use C4::Output;
27
use C4::Output;
28
use C4::Context;
28
use C4::Context;
29
use C4::Acquisition;
29
use C4::Acquisition qw( GetInvoice GetOrder populate_order_with_prices ModReceiveOrder GetItemnumbersFromOrder );
30
use C4::Biblio;
30
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );
31
use C4::Items;
31
use C4::Items qw( GetMarcItem ModItemFromMarc ModItem AddItemFromMarc AddItem GetItem );
32
use C4::Search;
32
use C4::Search;
33
33
34
use Koha::Number::Price;
34
use Koha::Number::Price;
(-)a/acqui/histsearch.pl (-4 / +4 lines)
Lines 52-63 to filter on ended date. Link Here
52
use strict;
52
use strict;
53
#use warnings; FIXME - Bug 2505
53
#use warnings; FIXME - Bug 2505
54
use CGI qw ( -utf8 );
54
use CGI qw ( -utf8 );
55
use C4::Auth;    # get_template_and_user
55
use C4::Auth qw( get_template_and_user );
56
use C4::Output;
56
use C4::Output qw( output_html_with_http_headers );
57
use C4::Acquisition;
57
use C4::Acquisition qw( GetHistory );
58
use C4::Debug;
58
use C4::Debug;
59
use C4::Koha;
59
use C4::Koha;
60
use Koha::DateUtils;
60
use Koha::DateUtils qw( dt_from_string output_pref );
61
61
62
my $input = new CGI;
62
my $input = new CGI;
63
my $title                   = $input->param( 'title');
63
my $title                   = $input->param( 'title');
(-)a/acqui/invoice-files.pl (-3 / +3 lines)
Lines 30-38 Manage files associated with invoice Link Here
30
use Modern::Perl;
30
use Modern::Perl;
31
31
32
use CGI;
32
use CGI;
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Acquisition;
35
use C4::Acquisition qw( GetInvoice GetInvoiceDetails );
36
use Koha::Misc::Files;
36
use Koha::Misc::Files;
37
37
38
my $input = new CGI;
38
my $input = new CGI;
(-)a/acqui/invoice.pl (-5 / +5 lines)
Lines 30-43 use strict; Link Here
30
use warnings;
30
use warnings;
31
31
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Acquisition;
35
use C4::Acquisition qw( CloseInvoice ReopenInvoice ModInvoice MergeInvoices DelInvoice GetInvoice GetInvoiceDetails );
36
use C4::Budgets;
36
use C4::Budgets qw( GetBudget GetBudgets CanUserUseBudget );
37
37
38
use Koha::Acquisition::Booksellers;
38
use Koha::Acquisition::Booksellers;
39
use Koha::Acquisition::Currencies;
39
use Koha::Acquisition::Currencies;
40
use Koha::DateUtils;
40
use Koha::DateUtils qw( output_pref );
41
use Koha::Misc::Files;
41
use Koha::Misc::Files;
42
42
43
my $input = new CGI;
43
my $input = new CGI;
(-)a/acqui/invoices.pl (-5 / +5 lines)
Lines 30-41 use strict; Link Here
30
use warnings;
30
use warnings;
31
31
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
35
36
use C4::Acquisition qw/GetInvoices/;
36
use C4::Acquisition qw( GetInvoices GetInvoice );
37
use C4::Budgets;
37
use C4::Budgets qw( GetBudget GetBudgets CanUserUseBudget );
38
use Koha::DateUtils;
38
use Koha::DateUtils qw( dt_from_string output_pref );
39
use Koha::Acquisition::Booksellers;
39
use Koha::Acquisition::Booksellers;
40
40
41
my $input = CGI->new;
41
my $input = CGI->new;
(-)a/acqui/lateorders-export.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
20
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Acquisition;
22
use C4::Acquisition qw( GetOrder );
23
use C4::Output;
23
use C4::Output;
24
use C4::Context;
24
use C4::Context;
25
25
(-)a/acqui/lateorders.pl (-5 / +5 lines)
Lines 46-58 To know on which branch this script have to display late order. Link Here
46
use Modern::Perl;
46
use Modern::Perl;
47
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
48
use C4::Bookseller qw( GetBooksellersWithLateOrders );
48
use C4::Bookseller qw( GetBooksellersWithLateOrders );
49
use C4::Auth;
49
use C4::Auth qw( get_template_and_user );
50
use C4::Koha;
50
use C4::Koha;
51
use C4::Output;
51
use C4::Output qw( output_html_with_http_headers );
52
use C4::Context;
52
use C4::Context;
53
use C4::Acquisition;
53
use C4::Acquisition qw( AddClaim GetLateOrders );
54
use C4::Letters;
54
use C4::Letters qw( SendAlerts GetLetters );
55
use Koha::DateUtils;
55
use Koha::DateUtils qw( dt_from_string output_pref );
56
56
57
my $input = new CGI;
57
my $input = new CGI;
58
my ($template, $loggedinuser, $cookie) = get_template_and_user(
58
my ($template, $loggedinuser, $cookie) = get_template_and_user(
(-)a/acqui/modordernotes.pl (-3 / +3 lines)
Lines 29-37 Modify just notes when basket is closed. Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
30
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Acquisition;
34
use C4::Acquisition qw( GetOrder GetBasket ModOrder );
35
35
36
use Koha::Acquisition::Booksellers;
36
use Koha::Acquisition::Booksellers;
37
37
(-)a/acqui/neworderbiblio.pl (-7 / +7 lines)
Lines 58-71 the basket number to know on which basket this script have to add a new order. Link Here
58
use strict;
58
use strict;
59
#use warnings; FIXME - Bug 2505
59
#use warnings; FIXME - Bug 2505
60
60
61
use C4::Search;
61
use C4::Search qw( new_record_from_zebra );
62
use CGI qw ( -utf8 );
62
use CGI qw ( -utf8 );
63
use C4::Biblio;
63
use C4::Biblio qw( TransformMarcToKoha );
64
use C4::Auth;
64
use C4::Auth qw( get_template_and_user );
65
use C4::Output;
65
use C4::Output qw( output_html_with_http_headers pagination_bar );
66
use C4::Koha;
66
use C4::Koha qw( getnbpages );
67
use C4::Members qw/ GetMember /;
67
use C4::Members qw( GetMember );
68
use C4::Budgets qw/ GetBudgetHierarchy /;
68
use C4::Budgets qw( GetBudgetHierarchy GetBudget );
69
69
70
use Koha::Acquisition::Booksellers;
70
use Koha::Acquisition::Booksellers;
71
use Koha::SearchEngine;
71
use Koha::SearchEngine;
(-)a/acqui/neworderempty.pl (-9 / +9 lines)
Lines 71-91 use strict; Link Here
71
use CGI qw ( -utf8 );
71
use CGI qw ( -utf8 );
72
use C4::Context;
72
use C4::Context;
73
73
74
use C4::Auth;
74
use C4::Auth qw( get_template_and_user );
75
use C4::Budgets;
75
use C4::Budgets qw( GetBudget GetBudgetHierarchy CanUserUseBudget );
76
76
77
use C4::Acquisition;
77
use C4::Acquisition qw( GetOrder GetBasket GetOrderUsers GetLastOrderReceivedFromSubscriptionid );
78
use C4::Contract;
78
use C4::Contract qw( GetContract );
79
use C4::Suggestions;	# GetSuggestion
79
use C4::Suggestions;	# GetSuggestion
80
use C4::Biblio;			# GetBiblioData GetMarcPrice
80
use C4::Biblio qw( BiblioAutoLink AddBiblio GetMarcPrice GetBiblioData GetBiblio GetMarcStructure GetMarcFromKohaField );
81
use C4::Items; #PrepareItemRecord
81
use C4::Items; #PrepareItemRecord
82
use C4::Output;
82
use C4::Output qw( output_html_with_http_headers );
83
use C4::Koha;
83
use C4::Koha;
84
use C4::Members;
84
use C4::Members qw( GetMember );
85
use C4::Search qw/FindDuplicate/;
85
use C4::Search qw( FindDuplicate );
86
86
87
#needed for z3950 import:
87
#needed for z3950 import:
88
use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus/;
88
use C4::ImportBatch qw( SetImportRecordStatus GetImportRecordMarc );
89
89
90
use Koha::Acquisition::Booksellers;
90
use Koha::Acquisition::Booksellers;
91
use Koha::Acquisition::Currencies;
91
use Koha::Acquisition::Currencies;
(-)a/acqui/newordersubscription.pl (-4 / +4 lines)
Lines 19-29 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Acquisition;
22
use C4::Acquisition qw( GetBasket );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Serials;
26
use C4::Serials qw( SearchSubscriptions subscriptionCurrentlyOnOrder check_routing );
27
27
28
use Koha::Acquisition::Booksellers;
28
use Koha::Acquisition::Booksellers;
29
29
(-)a/acqui/newordersuggestion.pl (-2 / +2 lines)
Lines 92-99 use strict; Link Here
92
#use warnings; FIXME - Bug 2505
92
#use warnings; FIXME - Bug 2505
93
93
94
use CGI qw ( -utf8 );
94
use CGI qw ( -utf8 );
95
use C4::Auth;    # get_template_and_user
95
use C4::Auth qw( get_template_and_user );
96
use C4::Output;
96
use C4::Output qw( output_html_with_http_headers );
97
use C4::Suggestions;
97
use C4::Suggestions;
98
use C4::Biblio;
98
use C4::Biblio;
99
99
(-)a/acqui/ordered.pl (-2 / +2 lines)
Lines 31-38 use C4::Context; Link Here
31
use strict;
31
use strict;
32
use warnings;
32
use warnings;
33
use CGI qw ( -utf8 );
33
use CGI qw ( -utf8 );
34
use C4::Auth;
34
use C4::Auth qw( get_template_and_user );
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
36
37
my $dbh     = C4::Context->dbh;
37
my $dbh     = C4::Context->dbh;
38
my $input   = new CGI;
38
my $input   = new CGI;
(-)a/acqui/orderreceive.pl (-8 / +8 lines)
Lines 63-77 use warnings; Link Here
63
63
64
use CGI qw ( -utf8 );
64
use CGI qw ( -utf8 );
65
use C4::Context;
65
use C4::Context;
66
use C4::Acquisition;
66
use C4::Acquisition qw( GetInvoice SearchOrders GetItemnumbersFromOrder );
67
use C4::Auth;
67
use C4::Auth qw( get_template_and_user );
68
use C4::Output;
68
use C4::Output qw( output_html_with_http_headers );
69
use C4::Budgets qw/ GetBudget GetBudgetHierarchy CanUserUseBudget GetBudgetPeriods /;
69
use C4::Budgets qw( GetBudget GetBudgetPeriods GetBudgetPeriod GetBudgetHierarchy CanUserUseBudget );
70
use C4::Members;
70
use C4::Members qw( GetMember );
71
use C4::Items;
71
use C4::Items qw( GetItem );
72
use C4::Biblio;
72
use C4::Biblio qw( GetMarcStructure );
73
use C4::Suggestions;
73
use C4::Suggestions;
74
use C4::Koha;
74
use C4::Koha qw( getitemtypeinfo );
75
75
76
use Koha::Acquisition::Booksellers;
76
use Koha::Acquisition::Booksellers;
77
use Koha::DateUtils qw( dt_from_string );
77
use Koha::DateUtils qw( dt_from_string );
(-)a/acqui/parcel.pl (-7 / +7 lines)
Lines 57-74 To filter the results list on this given date. Link Here
57
use strict;
57
use strict;
58
use warnings;
58
use warnings;
59
59
60
use C4::Auth;
60
use C4::Auth qw( get_template_and_user );
61
use C4::Acquisition;
61
use C4::Acquisition qw( CancelReceipt GetInvoice GetInvoiceDetails GetItemnumbersFromOrder SearchOrders );
62
use C4::Budgets;
62
use C4::Budgets qw( GetBudget GetBudgetByOrderNumber GetBudgetName );
63
use C4::Biblio;
63
use C4::Biblio qw( CountBiblioInOrders GetSubscriptionsId );
64
use C4::Items;
64
use C4::Items qw( GetItem );
65
use CGI qw ( -utf8 );
65
use CGI qw ( -utf8 );
66
use C4::Output;
66
use C4::Output qw( output_html_with_http_headers );
67
use C4::Suggestions;
67
use C4::Suggestions;
68
68
69
use Koha::Acquisition::Bookseller;
69
use Koha::Acquisition::Bookseller;
70
use Koha::Biblios;
70
use Koha::Biblios;
71
use Koha::DateUtils;
71
use Koha::DateUtils qw( dt_from_string );
72
use Koha::Biblios;
72
use Koha::Biblios;
73
73
74
use JSON;
74
use JSON;
(-)a/acqui/parcels.pl (-4 / +4 lines)
Lines 69-79 To know how many results have to be display / page. Link Here
69
use strict;
69
use strict;
70
use warnings;
70
use warnings;
71
use CGI qw ( -utf8 );
71
use CGI qw ( -utf8 );
72
use C4::Auth;
72
use C4::Auth qw( get_template_and_user );
73
use C4::Output;
73
use C4::Output qw( output_html_with_http_headers );
74
74
75
use C4::Acquisition;
75
use C4::Acquisition qw( GetInvoices GetInvoice AddInvoice );
76
use C4::Budgets;
76
use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
77
77
78
use Koha::Acquisition::Booksellers;
78
use Koha::Acquisition::Booksellers;
79
use Koha::DateUtils qw( output_pref dt_from_string );
79
use Koha::DateUtils qw( output_pref dt_from_string );
(-)a/acqui/spent.pl (-2 / +2 lines)
Lines 30-37 this script is designed to show the spent amount in budgets Link Here
30
=cut
30
=cut
31
31
32
use C4::Context;
32
use C4::Context;
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use strict;
35
use strict;
36
use warnings;
36
use warnings;
37
use CGI qw ( -utf8 );
37
use CGI qw ( -utf8 );
(-)a/acqui/supplier.pl (-3 / +3 lines)
Lines 42-51 To know the bookseller this script has to display details. Link Here
42
42
43
use strict;
43
use strict;
44
use warnings;
44
use warnings;
45
use C4::Auth;
45
use C4::Auth qw( get_template_and_user );
46
use C4::Contract;
46
use C4::Contract qw( GetContracts GetContract );
47
use C4::Biblio;
47
use C4::Biblio;
48
use C4::Output;
48
use C4::Output qw( output_html_with_http_headers );
49
use CGI qw ( -utf8 );
49
use CGI qw ( -utf8 );
50
50
51
use C4::Budgets;
51
use C4::Budgets;
(-)a/acqui/transferorder.pl (-4 / +4 lines)
Lines 22-32 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
use C4::Acquisition;
28
use C4::Acquisition qw( GetOrder GetBasket TransferOrder GetBasketsByBookseller SearchOrders );
29
use C4::Members;
29
use C4::Members qw( GetMember );
30
use Koha::Acquisition::Booksellers;
30
use Koha::Acquisition::Booksellers;
31
31
32
my $input = new CGI;
32
my $input = new CGI;
(-)a/acqui/uncertainprice.pl (-3 / +3 lines)
Lines 46-56 The bookseller who we want to display the orders of. Link Here
46
use strict;
46
use strict;
47
use warnings;
47
use warnings;
48
48
49
use C4::Auth;
49
use C4::Auth qw( get_template_and_user );
50
use C4::Output;
50
use C4::Output qw( output_html_with_http_headers );
51
use CGI qw ( -utf8 );
51
use CGI qw ( -utf8 );
52
52
53
use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;
53
use C4::Acquisition qw( SearchOrders GetOrder ModOrder );
54
use C4::Biblio qw/GetBiblioData/;
54
use C4::Biblio qw/GetBiblioData/;
55
55
56
use Koha::Acquisition::Booksellers;
56
use Koha::Acquisition::Booksellers;
(-)a/acqui/updatesupplier.pl (-1 / +1 lines)
Lines 50-56 use strict; Link Here
50
use warnings;
50
use warnings;
51
use List::Util;
51
use List::Util;
52
use C4::Context;
52
use C4::Context;
53
use C4::Auth;
53
use C4::Auth qw( checkauth );
54
54
55
use C4::Biblio;
55
use C4::Biblio;
56
use C4::Output;
56
use C4::Output;
(-)a/acqui/z3950_search.pl (-3 / +3 lines)
Lines 23-32 use warnings; Link Here
23
use strict;
23
use strict;
24
use CGI qw/-utf8/;
24
use CGI qw/-utf8/;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Context;
28
use C4::Context;
29
use C4::Breeding;
29
use C4::Breeding qw( Z3950Search );
30
use C4::Koha;
30
use C4::Koha;
31
31
32
use Koha::Acquisition::Booksellers;
32
use Koha::Acquisition::Booksellers;
(-)a/admin/add_user_search.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/admin/admin-home.pl (-2 / +2 lines)
Lines 19-26 use strict; Link Here
19
use warnings;
19
use warnings;
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
my $query = new CGI;
25
my $query = new CGI;
26
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
26
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/admin/aqbudgetperiods.pl (-5 / +5 lines)
Lines 48-61 use Modern::Perl; Link Here
48
48
49
use CGI qw ( -utf8 );
49
use CGI qw ( -utf8 );
50
use List::Util qw/min/;
50
use List::Util qw/min/;
51
use Koha::DateUtils;
51
use Koha::DateUtils qw( dt_from_string );
52
use Koha::Database;
52
use Koha::Database;
53
use C4::Koha;
53
use C4::Koha;
54
use C4::Context;
54
use C4::Context;
55
use C4::Auth;
55
use C4::Auth qw( get_template_and_user );
56
use C4::Output;
56
use C4::Output qw( output_html_with_http_headers );
57
use C4::Acquisition;
57
use C4::Acquisition qw( SearchOrders );
58
use C4::Budgets;
58
use C4::Budgets qw( GetBudgetPeriod GetBudget ModBudgetPeriod ModBudget AddBudgetPeriod AddBudget DelBudgetPeriod DelBudget _round CloneBudgetPeriod GetBudgetPeriods GetBudgetHierarchy MoveOrders );
59
use C4::Debug;
59
use C4::Debug;
60
use Koha::Acquisition::Currencies;
60
use Koha::Acquisition::Currencies;
61
61
(-)a/admin/aqbudgets.pl (-5 / +5 lines)
Lines 25-37 use CGI qw ( -utf8 ); Link Here
25
use List::Util qw/min/;
25
use List::Util qw/min/;
26
26
27
use Koha::Database;
27
use Koha::Database;
28
use C4::Auth qw/get_user_subpermissions/;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Acquisition;
30
use C4::Acquisition;
31
use C4::Budgets;
31
use C4::Budgets qw( GetBudgetPeriod GetBudget GetBudgetAuthCats CanUserModifyBudget BudgetHasChildren GetBudgetHierarchy GetBudgetUsers DelBudget ModBudget ModBudgetUsers AddBudget SetOwnerToFundHierarchy GetBudgetPeriods );
32
use C4::Members;
32
use C4::Members qw( GetMember );
33
use C4::Context;
33
use C4::Context;
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Koha;
35
use C4::Koha;
36
use C4::Debug;
36
use C4::Debug;
37
use Koha::Acquisition::Currencies;
37
use Koha::Acquisition::Currencies;
(-)a/admin/aqcontract.pl (-4 / +4 lines)
Lines 24-33 use strict; Link Here
24
use warnings;
24
use warnings;
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Contract;
29
use C4::Contract qw( GetContract ModContract AddContract DelContract GetContracts );
30
use Koha::DateUtils;
30
use Koha::DateUtils qw( dt_from_string output_pref );
31
31
32
use Koha::Acquisition::Booksellers;
32
use Koha::Acquisition::Booksellers;
33
33
(-)a/admin/aqplan.pl (-3 / +3 lines)
Lines 29-39 use Date::Manip qw/ ParseDate UnixDate DateCalc/; Link Here
29
use Text::CSV_XS;
29
use Text::CSV_XS;
30
30
31
use C4::Acquisition;
31
use C4::Acquisition;
32
use C4::Budgets;
32
use C4::Budgets qw( GetBudgetPeriod GetBudget GetPeriodsCount GetBudgetAuthCats GetBudgetHierarchy ModBudgetPlan ModBudget HideCols GetCols CanUserUseBudget GetBudgetsPlanCell GetBudgets );
33
use C4::Context;
33
use C4::Context;
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Koha;
35
use C4::Koha;
36
use C4::Auth;
36
use C4::Auth qw( get_template_and_user );
37
use C4::Debug;
37
use C4::Debug;
38
use Koha::Acquisition::Currencies;
38
use Koha::Acquisition::Currencies;
39
39
(-)a/admin/audio_alerts.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::AudioAlert;
25
use Koha::AudioAlert;
26
use Koha::AudioAlerts;
26
use Koha::AudioAlerts;
27
27
(-)a/admin/auth_subfields_structure.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use C4::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Koha;
25
use C4::Koha;
(-)a/admin/auth_tag_structure.pl (-2 / +2 lines)
Lines 21-30 Link Here
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Context;
28
use C4::Context;
29
29
30
use Koha::Authority::Types;
30
use Koha::Authority::Types;
(-)a/admin/authorised_values.pl (-3 / +3 lines)
Lines 20-29 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Koha;
25
use C4::Koha qw( getImageSets getitemtypeimagelocation );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use Koha::AuthorisedValues;
28
use Koha::AuthorisedValues;
29
use Koha::AuthorisedValueCategories;
29
use Koha::AuthorisedValueCategories;
(-)a/admin/authtypes.pl (-2 / +2 lines)
Lines 22-29 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use Koha::Authorities;
28
use Koha::Authorities;
29
use Koha::Authority::Types;
29
use Koha::Authority::Types;
(-)a/admin/biblio_framework.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Biblios;
26
use Koha::Biblios;
27
use Koha::BiblioFramework;
27
use Koha::BiblioFramework;
28
use Koha::BiblioFrameworks;
28
use Koha::BiblioFrameworks;
(-)a/admin/branch_transfer_limits.pl (-3 / +3 lines)
Lines 22-32 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Circulation qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
29
use C4::Circulation qw( DeleteBranchTransferLimits CreateBranchTransferLimit IsBranchTransferAllowed );
30
30
31
my $input = new CGI;
31
my $input = new CGI;
32
32
(-)a/admin/branches.pl (-2 / +2 lines)
Lines 20-28 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Koha;
26
use C4::Koha;
27
use Koha::Patrons;
27
use Koha::Patrons;
28
use Koha::Items;
28
use Koha::Items;
(-)a/admin/categories.pl (-3 / +3 lines)
Lines 22-33 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Form::MessagingPreferences;
27
use C4::Form::MessagingPreferences;
28
use Koha::Patrons;
28
use Koha::Patrons;
29
use Koha::Database;
29
use Koha::Database;
30
use Koha::DateUtils;
30
use Koha::DateUtils qw( output_pref dt_from_string );
31
use Koha::Patron::Categories;
31
use Koha::Patron::Categories;
32
use Koha::Libraries;
32
use Koha::Libraries;
33
33
(-)a/admin/check_budget_parent.pl (-3 / +3 lines)
Lines 21-29 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Budgets;
26
use C4::Budgets qw( GetBudget CheckBudgetParent );
27
27
28
=head1 DESCRIPTION
28
=head1 DESCRIPTION
29
29
(-)a/admin/check_parent_total.pl (-3 / +3 lines)
Lines 21-29 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Budgets;
26
use C4::Budgets qw( GetBudgetPeriod GetBudget );
27
27
28
=head1 DESCRIPTION
28
=head1 DESCRIPTION
29
29
(-)a/admin/checkmarc.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
use C4::Biblio;
27
use C4::Biblio;
(-)a/admin/cities.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Cities;
27
use Koha::Cities;
28
28
(-)a/admin/classsources.pl (-4 / +4 lines)
Lines 21-32 Link Here
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::ClassSource;
28
use C4::ClassSource qw( AddClassSource GetClassSource ModClassSource DelClassSource GetClassSortRules GetClassSortRule GetClassSort AddClassSortRule GetSourcesForSortRule DelClassSortRule ModClassSortRule GetClassSources );
29
use C4::ClassSortRoutine;
29
use C4::ClassSortRoutine qw( GetSortRoutineNames );
30
30
31
my $script_name = "/cgi-bin/koha/admin/classsources.pl";
31
my $script_name = "/cgi-bin/koha/admin/classsources.pl";
32
32
(-)a/admin/clone-rules.pl (-2 / +2 lines)
Lines 29-36 use strict; Link Here
29
#use warnings; FIXME - Bug 2505
29
#use warnings; FIXME - Bug 2505
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use C4::Context;
31
use C4::Context;
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Koha;
34
use C4::Koha;
35
use C4::Debug;
35
use C4::Debug;
36
36
(-)a/admin/columns_settings.pl (-2 / +2 lines)
Lines 3-11 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI;
4
use CGI;
5
use YAML qw( LoadFile );
5
use YAML qw( LoadFile );
6
use C4::Auth;
6
use C4::Auth qw( get_template_and_user );
7
use C4::Context;
7
use C4::Context;
8
use C4::Output;
8
use C4::Output qw( output_html_with_http_headers );
9
use C4::Utils::DataTables::ColumnsSettings qw( get_modules );
9
use C4::Utils::DataTables::ColumnsSettings qw( get_modules );
10
my $input = new CGI;
10
my $input = new CGI;
11
11
(-)a/admin/currency.pl (-2 / +2 lines)
Lines 21-29 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use Koha::Acquisition::Booksellers;
28
use Koha::Acquisition::Booksellers;
29
use Koha::Acquisition::Currency;
29
use Koha::Acquisition::Currency;
(-)a/admin/didyoumean.pl (-2 / +2 lines)
Lines 4-11 use strict; Link Here
4
use warnings;
4
use warnings;
5
use CGI qw ( -utf8 );
5
use CGI qw ( -utf8 );
6
use C4::Context;
6
use C4::Context;
7
use C4::Auth;
7
use C4::Auth qw( get_template_and_user );
8
use C4::Output;
8
use C4::Output qw( output_html_with_http_headers );
9
use Koha::SuggestionEngine;
9
use Koha::SuggestionEngine;
10
use Module::Load::Conditional qw(can_load);
10
use Module::Load::Conditional qw(can_load);
11
use JSON;
11
use JSON;
(-)a/admin/edi_accounts.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::Database;
25
use Koha::Database;
26
use Koha::Plugins;
26
use Koha::Plugins;
27
27
(-)a/admin/edi_ean_accounts.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::Database;
25
use Koha::Database;
26
26
27
my $input = CGI->new();
27
my $input = CGI->new();
(-)a/admin/fieldmapping.pl (-2 / +2 lines)
Lines 19-27 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Biblio;
23
use C4::Biblio;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
use Koha::BiblioFrameworks;
26
use Koha::BiblioFrameworks;
27
use Koha::FieldMappings;
27
use Koha::FieldMappings;
(-)a/admin/import_export_framework.pl (-2 / +2 lines)
Lines 23-30 use warnings; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use CGI::Cookie;
24
use CGI::Cookie;
25
use C4::Context;
25
use C4::Context;
26
use C4::Auth qw/check_cookie_auth/;
26
use C4::Auth qw( check_cookie_auth );
27
use C4::ImportExportFramework;
27
use C4::ImportExportFramework qw( ExportFramework createODS ImportFramework );
28
28
29
my %cookies = CGI::Cookie->fetch();
29
my %cookies = CGI::Cookie->fetch();
30
my $authenticated = 0;
30
my $authenticated = 0;
(-)a/admin/item_circulation_alerts.pl (-2 / +2 lines)
Lines 24-33 use Encode; Link Here
24
use JSON;
24
use JSON;
25
#use Data::Dump 'pp';
25
#use Data::Dump 'pp';
26
26
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Context;
28
use C4::Context;
29
use C4::ItemCirculationAlertPreference;
29
use C4::ItemCirculationAlertPreference;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
use Koha::ItemTypes;
32
use Koha::ItemTypes;
33
use Koha::Patron::Categories;
33
use Koha::Patron::Categories;
(-)a/admin/items_search_field.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI;
20
use CGI;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
use Koha::Item::Search::Field qw(GetItemSearchField ModItemSearchField);
25
use Koha::Item::Search::Field qw(GetItemSearchField ModItemSearchField);
26
26
(-)a/admin/items_search_fields.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI;
20
use CGI;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
use Koha::Item::Search::Field qw(AddItemSearchField GetItemSearchFields DelItemSearchField);
25
use Koha::Item::Search::Field qw(AddItemSearchField GetItemSearchFields DelItemSearchField);
26
26
(-)a/admin/itemtypes.pl (-3 / +3 lines)
Lines 27-36 use CGI qw ( -utf8 ); Link Here
27
27
28
use File::Spec;
28
use File::Spec;
29
29
30
use C4::Koha;
30
use C4::Koha qw( getImageSets GetAuthorisedValues );
31
use C4::Context;
31
use C4::Context;
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use Koha::ItemTypes;
34
use Koha::ItemTypes;
35
use Koha::ItemType;
35
use Koha::ItemType;
36
use Koha::Localizations;
36
use Koha::Localizations;
(-)a/admin/koha2marclinks.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Biblio;
26
use C4::Biblio;
(-)a/admin/localization.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
23
24
use Koha::Localization;
24
use Koha::Localization;
25
use Koha::Localizations;
25
use Koha::Localizations;
(-)a/admin/marc_subfields_structure.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use C4::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
25
(-)a/admin/marctagstructure.pl (-2 / +2 lines)
Lines 21-30 Link Here
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Context;
28
use C4::Context;
29
29
30
use Koha::Caches;
30
use Koha::Caches;
(-)a/admin/matching-rules.pl (-2 / +2 lines)
Lines 22-30 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Matcher qw/valid_normalization_routines/;
29
use C4::Matcher qw/valid_normalization_routines/;
30
30
(-)a/admin/oai_set_mappings.pl (-3 / +3 lines)
Lines 33-41 the OR operator will be applied. Link Here
33
use Modern::Perl;
33
use Modern::Perl;
34
34
35
use CGI qw ( -utf8 );
35
use CGI qw ( -utf8 );
36
use C4::Auth;
36
use C4::Auth qw( get_template_and_user );
37
use C4::Output;
37
use C4::Output qw( output_html_with_http_headers );
38
use C4::OAI::Sets;
38
use C4::OAI::Sets qw( ModOAISet ModOAISetMappings GetOAISet GetOAISetMappings );
39
39
40
use Data::Dumper;
40
use Data::Dumper;
41
41
(-)a/admin/oai_sets.pl (-3 / +3 lines)
Lines 29-37 Admin page to describe OAI SETs Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
30
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::OAI::Sets;
34
use C4::OAI::Sets qw( AddOAISet GetOAISet ModOAISet DelOAISet GetOAISets );
35
35
36
use Data::Dumper;
36
use Data::Dumper;
37
37
(-)a/admin/patron-attr-types.pl (-3 / +3 lines)
Lines 24-33 use Modern::Perl; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use List::MoreUtils qw/uniq/;
25
use List::MoreUtils qw/uniq/;
26
26
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Koha;
30
use C4::Koha qw( GetAuthorisedValues );
31
use C4::Members::AttributeTypes;
31
use C4::Members::AttributeTypes;
32
32
33
use Koha::AuthorisedValues;
33
use Koha::AuthorisedValues;
(-)a/admin/preferences.pl (-5 / +5 lines)
Lines 20-32 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Koha;
25
use C4::Koha qw( getallthemes );
26
use C4::Languages qw(getTranslatedLanguages);
26
use C4::Languages qw( getTranslatedLanguages );
27
use C4::ClassSource;
27
use C4::ClassSource qw( GetClassSources GetClassSource );
28
use C4::Log;
28
use C4::Log;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Templates;
30
use C4::Templates;
31
use Koha::Acquisition::Currencies;
31
use Koha::Acquisition::Currencies;
32
use File::Spec;
32
use File::Spec;
(-)a/admin/printers.pl (-2 / +2 lines)
Lines 41-48 use strict; Link Here
41
#use warnings; FIXME - Bug 2505
41
#use warnings; FIXME - Bug 2505
42
use CGI qw ( -utf8 );
42
use CGI qw ( -utf8 );
43
use C4::Context;
43
use C4::Context;
44
use C4::Output;
44
use C4::Output qw( output_html_with_http_headers );
45
use C4::Auth;
45
use C4::Auth qw( get_template_and_user );
46
46
47
sub StringSearch  {
47
sub StringSearch  {
48
	my ($searchstring,$type)=@_;		# why bother with $type if we don't use it?!
48
	my ($searchstring,$type)=@_;		# why bother with $type if we don't use it?!
(-)a/admin/smart-rules.pl (-3 / +3 lines)
Lines 21-31 use strict; Link Here
21
use warnings;
21
use warnings;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Debug;
27
use C4::Debug;
28
use Koha::DateUtils;
28
use Koha::DateUtils qw( dt_from_string output_pref );
29
use Koha::Database;
29
use Koha::Database;
30
use Koha::IssuingRule;
30
use Koha::IssuingRule;
31
use Koha::IssuingRules;
31
use Koha::IssuingRules;
(-)a/admin/sms_providers.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
use CGI;
22
use CGI;
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use Koha::SMS::Provider;
28
use Koha::SMS::Provider;
29
use Koha::SMS::Providers;
29
use Koha::SMS::Providers;
(-)a/admin/sru_modmapping.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI;
21
use CGI;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
# Initialize CGI, template
25
# Initialize CGI, template
26
26
(-)a/admin/systempreferences.pl (-5 / +5 lines)
Lines 45-56 use warnings; Link Here
45
45
46
use CGI qw ( -utf8 );
46
use CGI qw ( -utf8 );
47
use MIME::Base64;
47
use MIME::Base64;
48
use C4::Auth;
48
use C4::Auth qw( get_template_and_user );
49
use C4::Context;
49
use C4::Context;
50
use C4::Koha;
50
use C4::Koha qw( getallthemes );
51
use C4::Languages qw(getTranslatedLanguages);
51
use C4::Languages qw( getTranslatedLanguages );
52
use C4::ClassSource;
52
use C4::ClassSource qw( GetClassSources GetClassSource );
53
use C4::Output;
53
use C4::Output qw( output_html_with_http_headers );
54
use YAML::Syck qw( Dump LoadFile );
54
use YAML::Syck qw( Dump LoadFile );
55
55
56
my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)
56
my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)
(-)a/admin/transport-cost-matrix.pl (-3 / +3 lines)
Lines 21-31 use strict; Link Here
21
use warnings;
21
use warnings;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Debug;
27
use C4::Debug;
28
use C4::HoldsQueue qw(TransportCostMatrix UpdateTransportCostMatrix);
28
use C4::HoldsQueue qw( TransportCostMatrix UpdateTransportCostMatrix );
29
29
30
use Koha::Libraries;
30
use Koha::Libraries;
31
31
(-)a/admin/usage_statistics.pl (-3 / +3 lines)
Lines 18-26 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use Koha::DateUtils qw( dt_from_string output_pref );
23
use Koha::DateUtils qw( output_pref );
24
use Koha::Libraries;
24
use Koha::Libraries;
25
25
26
my $query = new CGI;
26
my $query = new CGI;
(-)a/admin/z3950servers.pl (-2 / +2 lines)
Lines 27-34 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Context;
29
use C4::Context;
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use Koha::Database;
32
use Koha::Database;
33
33
34
# Initialize CGI, template, database
34
# Initialize CGI, template, database
(-)a/authorities/auth_finder.pl (-3 / +3 lines)
Lines 22-31 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Context;
27
use C4::Context;
28
use C4::AuthoritiesMarc;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Acquisition;
29
use C4::Acquisition;
30
use C4::Koha;
30
use C4::Koha;
31
31
(-)a/authorities/authorities-home.pl (-4 / +4 lines)
Lines 22-33 use warnings; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use URI::Escape;
24
use URI::Escape;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( pagination_bar output_html_with_http_headers );
30
use C4::AuthoritiesMarc;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Acquisition;
31
use C4::Acquisition;
32
use C4::Koha;
32
use C4::Koha;
33
use C4::Biblio;
33
use C4::Biblio;
(-)a/authorities/authorities-list.pl (-1 / +1 lines)
Lines 2-8 Link Here
2
use strict;
2
use strict;
3
use warnings;
3
use warnings;
4
use C4::Context;
4
use C4::Context;
5
use C4::AuthoritiesMarc;
5
use C4::AuthoritiesMarc qw( GetAuthority );
6
use utf8;
6
use utf8;
7
use open qw[ :std :encoding(utf8) ];
7
use open qw[ :std :encoding(utf8) ];
8
use Koha::SearchEngine;
8
use Koha::SearchEngine;
(-)a/authorities/authorities.pl (-5 / +5 lines)
Lines 21-36 Link Here
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::AuthoritiesMarc;
26
use C4::Auth qw( get_template_and_user );
27
use C4::ImportBatch; #GetImportRecordMarc
27
use C4::ImportBatch qw( GetImportRecordMarc );
28
use C4::Context;
28
use C4::Context;
29
use C4::Koha;
29
use C4::Koha;
30
use Date::Calc qw(Today);
30
use Date::Calc qw(Today);
31
use MARC::File::USMARC;
31
use MARC::File::USMARC;
32
use MARC::File::XML;
32
use MARC::File::XML;
33
use C4::Biblio;
33
use C4::Biblio qw( TransformHtmlToMarc );
34
use Koha::Authority::Types;
34
use Koha::Authority::Types;
35
use Koha::ItemTypes;
35
use Koha::ItemTypes;
36
use vars qw( $tagslib);
36
use vars qw( $tagslib);
(-)a/authorities/blinddetail-biblio-search.pl (-3 / +3 lines)
Lines 39-48 parameters tables. Link Here
39
use strict;
39
use strict;
40
use warnings;
40
use warnings;
41
41
42
use C4::AuthoritiesMarc;
42
use C4::Auth qw( get_template_and_user );
43
use C4::Auth;
43
use C4::Auth qw( get_template_and_user );
44
use C4::Context;
44
use C4::Context;
45
use C4::Output;
45
use C4::Output qw( output_html_with_http_headers );
46
use CGI qw ( -utf8 );
46
use CGI qw ( -utf8 );
47
use MARC::Record;
47
use MARC::Record;
48
use C4::Koha;
48
use C4::Koha;
(-)a/authorities/detail-biblio-search.pl (-3 / +3 lines)
Lines 40-49 parameters tables. Link Here
40
use strict;
40
use strict;
41
use warnings;
41
use warnings;
42
42
43
use C4::AuthoritiesMarc;
43
use C4::Auth qw( get_template_and_user );
44
use C4::Auth;
44
use C4::Auth qw( get_template_and_user );
45
use C4::Context;
45
use C4::Context;
46
use C4::Output;
46
use C4::Output qw( output_html_with_http_headers );
47
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
48
use MARC::Record;
48
use MARC::Record;
49
use C4::Koha;
49
use C4::Koha;
(-)a/authorities/detail.pl (-4 / +4 lines)
Lines 40-52 parameters tables. Link Here
40
use strict;
40
use strict;
41
use warnings;
41
use warnings;
42
42
43
use C4::AuthoritiesMarc;
43
use C4::Auth qw( get_template_and_user );
44
use C4::Auth;
44
use C4::Auth qw( get_template_and_user );
45
use C4::Context;
45
use C4::Context;
46
use C4::Output;
46
use C4::Output qw( output_html_with_http_headers );
47
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
48
use MARC::Record;
48
use MARC::Record;
49
use C4::Koha;
49
use C4::Koha qw( display_marc_indicators );
50
use Koha::Authorities;
50
use Koha::Authorities;
51
51
52
use Koha::Authority::Types;
52
use Koha::Authority::Types;
(-)a/authorities/export.pl (-3 / +3 lines)
Lines 2-11 Link Here
2
use strict;
2
use strict;
3
use warnings;
3
use warnings;
4
4
5
use C4::Record;
5
use C4::Record qw( marc2marc marc2marcxml marc2madsxml changeEncoding );
6
use C4::Auth;
6
use C4::Auth qw( get_template_and_user );
7
use C4::Output;
7
use C4::Output;
8
use C4::AuthoritiesMarc;
8
use C4::Auth qw( get_template_and_user );
9
use CGI qw ( -utf8 );
9
use CGI qw ( -utf8 );
10
10
11
my $query = new CGI;
11
my $query = new CGI;
(-)a/authorities/merge.pl (-4 / +4 lines)
Lines 20-31 Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::AuthoritiesMarc;
25
use C4::Auth qw( get_template_and_user );
26
use Koha::MetadataRecord::Authority;
26
use Koha::MetadataRecord::Authority;
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Biblio;
28
use C4::Biblio qw( TransformHtmlToMarc );
29
29
30
my $input  = new CGI;
30
my $input  = new CGI;
31
my @authid = $input->multi_param('authid');
31
my @authid = $input->multi_param('authid');
(-)a/authorities/merge_ajax.pl (-2 / +2 lines)
Lines 8-15 use CGI::Cookie; # need to check cookies before CGI parses the POST request Link Here
8
use JSON;
8
use JSON;
9
9
10
use C4::Context;
10
use C4::Context;
11
use C4::Auth qw/check_cookie_auth/;
11
use C4::Auth qw( check_cookie_auth );
12
use C4::AuthoritiesMarc;
12
use C4::Auth qw( check_cookie_auth );
13
13
14
my %cookies = CGI::Cookie->fetch;
14
my %cookies = CGI::Cookie->fetch;
15
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' });
15
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' });
(-)a/authorities/ysearch.pl (-4 / +4 lines)
Lines 32-41 use Modern::Perl; Link Here
32
use JSON;
32
use JSON;
33
33
34
use C4::Context;
34
use C4::Context;
35
use C4::Charset;
35
use C4::Charset qw( nsb_clean );
36
use C4::AuthoritiesMarc;
36
use C4::Auth qw( check_cookie_auth );
37
use C4::Auth qw/check_cookie_auth/;
37
use C4::Auth qw( check_cookie_auth );
38
use C4::Output;
38
use C4::Output qw( output_with_http_headers );
39
39
40
my $query = new CGI;
40
my $query = new CGI;
41
41
(-)a/basket/basket.pl (-4 / +4 lines)
Lines 19-28 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Koha;
21
use C4::Koha;
22
use C4::Biblio;
22
use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetMarcNotes GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls );
23
use C4::Items;
23
use C4::Items qw( GetItem GetItemsInfo );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::AuthorisedValues;
27
use Koha::AuthorisedValues;
28
use Koha::CsvProfiles;
28
use Koha::CsvProfiles;
(-)a/basket/downloadcart.pl (-5 / +5 lines)
Lines 22-33 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use Encode qw(encode);
23
use Encode qw(encode);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio );
27
use C4::Items;
27
use C4::Items;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Record;
29
use C4::Record qw( marc2csv marc2bibtex );
30
use C4::Ris;
30
use C4::Ris qw( marc2ris );
31
31
32
use Koha::CsvProfiles;
32
use Koha::CsvProfiles;
33
33
(-)a/basket/sendbasket.pl (-4 / +4 lines)
Lines 24-33 use Mail::Sendmail; Link Here
24
use MIME::QuotedPrint;
24
use MIME::QuotedPrint;
25
use MIME::Base64;
25
use MIME::Base64;
26
26
27
use C4::Biblio;
27
use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetMarcAuthors GetMarcSubjects );
28
use C4::Items;
28
use C4::Items qw( GetItem GetItemsInfo );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Templates ();
31
use C4::Templates ();
32
use Koha::Email;
32
use Koha::Email;
33
use Koha::Token;
33
use Koha::Token;
(-)a/catalogue/ISBDdetail.pl (-7 / +7 lines)
Lines 36-52 This script needs a biblionumber as parameter Link Here
36
use Modern::Perl;
36
use Modern::Perl;
37
37
38
use HTML::Entities;
38
use HTML::Entities;
39
use C4::Auth;
39
use C4::Auth qw( get_template_and_user );
40
use C4::Context;
40
use C4::Context;
41
use C4::Output;
41
use C4::Output qw( output_html_with_http_headers );
42
use CGI qw ( -utf8 );
42
use CGI qw ( -utf8 );
43
use C4::Koha;
43
use C4::Koha;
44
use C4::Biblio;
44
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView GetBiblioData GetBiblio GetCOinSBiblio );
45
use C4::Items;
45
use C4::Items;
46
use C4::Members; # to use GetMember
46
use C4::Members qw( GetMember );
47
use C4::Serials;    # CountSubscriptionFromBiblionumber
47
use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
48
use C4::Search;		# enabled_staff_search_views
48
use C4::Search qw( z3950_search_args enabled_staff_search_views );
49
use C4::Acquisition qw(GetOrdersByBiblionumber);
49
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder );
50
50
51
use Koha::Biblios;
51
use Koha::Biblios;
52
use Koha::RecordProcessor;
52
use Koha::RecordProcessor;
(-)a/catalogue/MARCdetail.pl (-8 / +8 lines)
Lines 48-64 use strict; Link Here
48
use CGI qw ( -utf8 );
48
use CGI qw ( -utf8 );
49
use HTML::Entities;
49
use HTML::Entities;
50
50
51
use C4::Auth;
51
use C4::Auth qw( get_template_and_user );
52
use C4::Context;
52
use C4::Context;
53
use C4::Output;
53
use C4::Output qw( output_html_with_http_headers );
54
use C4::Koha;
54
use C4::Koha qw( display_marc_indicators );
55
use MARC::Record;
55
use MARC::Record;
56
use C4::Biblio;
56
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetCOinSBiblio GetMarcStructure GetBiblioData GetBiblio GetAuthorisedValueDesc GetMarcFromKohaField );
57
use C4::Items;
57
use C4::Items;
58
use C4::Acquisition;
58
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder );
59
use C4::Members; # to use GetMember
59
use C4::Members qw( GetMember );
60
use C4::Serials;    #uses getsubscriptionsfrombiblionumber GetSubscriptionsFromBiblionumber
60
use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
61
use C4::Search;		# enabled_staff_search_views
61
use C4::Search qw( z3950_search_args enabled_staff_search_views );
62
62
63
use Koha::Biblios;
63
use Koha::Biblios;
64
use Koha::BiblioFrameworks;
64
use Koha::BiblioFrameworks;
(-)a/catalogue/detail.pl (-19 / +19 lines)
Lines 20-46 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use HTML::Entities;
22
use HTML::Entities;
23
use C4::Acquisition qw( GetHistory );
23
use C4::Acquisition qw( GetHistory GetOrders GetOrdersByBiblionumber GetOrder );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN getitemtypeimagelocation GetAuthorisedValues );
26
use C4::Serials;    #uses getsubscriptionfrom biblionumber
26
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Biblio;
28
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetCOinSBiblio GetMarcNotes GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcHosts GetRecordValue GetBiblioData GetBiblio );
29
use C4::Items;
29
use C4::Items qw( GetItem GetItemsInfo GetHostItemsInfo GetAnalyticsCount );
30
use C4::Circulation;
30
use C4::Circulation qw( GetTransfers );
31
use C4::Reserves;
31
use C4::Reserves;
32
use C4::Members; # to use GetMember
32
use C4::Members qw( GetMember );
33
use C4::Serials;
33
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
34
use C4::XISBN qw(get_xisbns get_biblionumber_from_isbn);
34
use C4::XISBN qw( get_xisbns );
35
use C4::External::Amazon;
35
use C4::External::Amazon qw( get_amazon_tld );
36
use C4::Search;		# enabled_staff_search_views
36
use C4::Search qw( z3950_search_args enabled_staff_search_views );
37
use C4::Tags qw(get_tags);
37
use C4::Tags qw( get_tags get_tag );
38
use C4::XSLT;
38
use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display );
39
use C4::Images;
39
use C4::Images qw( ListImagesForBiblio );
40
use Koha::DateUtils;
40
use Koha::DateUtils qw( format_sqldatetime );
41
use C4::HTML5Media;
41
use C4::HTML5Media;
42
use C4::CourseReserves qw(GetItemCourseReservesInfo);
42
use C4::CourseReserves qw( GetItemCourseReservesInfo );
43
use C4::Acquisition qw(GetOrdersByBiblionumber);
43
use C4::Acquisition qw( GetHistory GetOrders GetOrdersByBiblionumber GetOrder );
44
use Koha::AuthorisedValues;
44
use Koha::AuthorisedValues;
45
use Koha::Biblios;
45
use Koha::Biblios;
46
use Koha::Items;
46
use Koha::Items;
(-)a/catalogue/export.pl (-4 / +4 lines)
Lines 2-13 Link Here
2
use strict;
2
use strict;
3
#use warnings; FIXME - Bug 2505
3
#use warnings; FIXME - Bug 2505
4
4
5
use C4::Record;
5
use C4::Record qw( marc2endnote marc2marc marc2marcxml marc2modsxml marc2bibtex marc2dcxml changeEncoding );
6
use C4::Auth;
6
use C4::Auth qw( get_template_and_user );
7
use C4::Output;
7
use C4::Output;
8
use C4::Biblio;
8
use C4::Biblio qw( GetMarcBiblio );
9
use CGI qw ( -utf8 );
9
use CGI qw ( -utf8 );
10
use C4::Ris;
10
use C4::Ris qw( marc2ris );
11
11
12
12
13
13
(-)a/catalogue/getitem-ajax.pl (-5 / +5 lines)
Lines 21-31 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use JSON;
22
use JSON;
23
23
24
use C4::Auth;
24
use C4::Auth qw( check_api_auth );
25
use C4::Biblio;
25
use C4::Biblio qw( GetMarcStructure );
26
use C4::Items;
26
use C4::Items qw( GetItem );
27
use C4::Koha;
27
use C4::Koha qw( getitemtypeinfo );
28
use C4::Output;
28
use C4::Output qw( output_with_http_headers );
29
use Koha::Libraries;
29
use Koha::Libraries;
30
30
31
use Koha::AuthorisedValues;
31
use Koha::AuthorisedValues;
(-)a/catalogue/image.pl (-1 / +1 lines)
Lines 28-34 use warnings; Link Here
28
28
29
use CGI qw ( -utf8 );    #qw(:standard escapeHTML);
29
use CGI qw ( -utf8 );    #qw(:standard escapeHTML);
30
use C4::Context;
30
use C4::Context;
31
use C4::Images;
31
use C4::Images qw( NoImage ListImagesForBiblio RetrieveImage );
32
32
33
$| = 1;
33
$| = 1;
34
34
(-)a/catalogue/imageviewer.pl (-7 / +7 lines)
Lines 21-33 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Biblio;
25
use C4::Biblio qw( GetBiblio );
26
use C4::Items;
26
use C4::Items qw( GetItem GetItemsInfo );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Images;
28
use C4::Images qw( ListImagesForBiblio );
29
use C4::Search;
29
use C4::Search qw( enabled_staff_search_views );
30
use C4::Acquisition qw(GetOrdersByBiblionumber);
30
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder );
31
31
32
use Koha::Biblios;
32
use Koha::Biblios;
33
33
(-)a/catalogue/issuehistory.pl (-5 / +5 lines)
Lines 20-31 use strict; Link Here
20
#use warnings; FIXME - Bug 2505
20
#use warnings; FIXME - Bug 2505
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
use C4::Circulation;    # GetBiblioIssues
26
use C4::Circulation qw( GetBiblioIssues );
27
use C4::Biblio;    # GetBiblio GetBiblioFromItemNumber
27
use C4::Biblio qw( GetBiblio );
28
use C4::Search;		# enabled_staff_search_views
28
use C4::Search qw( enabled_staff_search_views );
29
29
30
my $query = new CGI;
30
my $query = new CGI;
31
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
31
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
(-)a/catalogue/itemsearch.pl (-5 / +5 lines)
Lines 21-31 use CGI; Link Here
21
21
22
use JSON;
22
use JSON;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_with_http_headers output_html_with_http_headers );
26
use C4::Items;
26
use C4::Items qw( SearchItems GetItem );
27
use C4::Biblio;
27
use C4::Biblio qw( GetBiblio GetBiblioItemByBiblioNumber );
28
use C4::Koha;
28
use C4::Koha qw( GetAuthorisedValues );
29
29
30
use Koha::AuthorisedValues;
30
use Koha::AuthorisedValues;
31
use Koha::Item::Search::Field qw(GetItemSearchFields);
31
use Koha::Item::Search::Field qw(GetItemSearchFields);
(-)a/catalogue/labeledMARCdetail.pl (-6 / +6 lines)
Lines 22-35 use warnings; Link Here
22
use CGI qw ( -utf8 ); 
22
use CGI qw ( -utf8 ); 
23
use HTML::Entities;
23
use HTML::Entities;
24
use MARC::Record;
24
use MARC::Record;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Biblio;
28
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetMarcStructure GetBiblioData GetBiblio );
29
use C4::Items;
29
use C4::Items;
30
use C4::Members; # to use GetMember
30
use C4::Members qw( GetMember );
31
use C4::Search;		# enabled_staff_search_views
31
use C4::Search qw( z3950_search_args enabled_staff_search_views );
32
use C4::Acquisition qw(GetOrdersByBiblionumber);
32
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder );
33
33
34
use Koha::Biblios;
34
use Koha::Biblios;
35
use Koha::BiblioFrameworks;
35
use Koha::BiblioFrameworks;
(-)a/catalogue/moredetail.pl (-9 / +9 lines)
Lines 21-37 Link Here
21
21
22
use strict;
22
use strict;
23
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
24
use C4::Koha;
24
use C4::Koha qw( GetAuthorisedValues );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use HTML::Entities;
26
use HTML::Entities;
27
use C4::Biblio;
27
use C4::Biblio qw( GetBiblioData GetBiblio GetFrameworkCode GetMarcBiblio GetRecordValue );
28
use C4::Items;
28
use C4::Items qw( GetItem GetItemsInfo GetHostItemsInfo );
29
use C4::Acquisition;
29
use C4::Acquisition qw( GetOrderFromItemnumber GetOrder GetBasket GetInvoice GetOrders GetOrdersByBiblionumber );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Serials;
32
use C4::Serials qw( CountSubscriptionFromBiblionumber );
33
use C4::Members; # to use GetMember
33
use C4::Members qw( GetMember );
34
use C4::Search;		# enabled_staff_search_views
34
use C4::Search qw( enabled_staff_search_views z3950_search_args );
35
35
36
use Koha::Acquisition::Booksellers;
36
use Koha::Acquisition::Booksellers;
37
use Koha::AuthorisedValues;
37
use Koha::AuthorisedValues;
(-)a/catalogue/search-history.pl (-2 / +2 lines)
Lines 21-29 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Search::History;
25
use C4::Search::History;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
29
29
(-)a/catalogue/search.pl (-7 / +7 lines)
Lines 141-155 use strict; # always use Link Here
141
141
142
## load Koha modules
142
## load Koha modules
143
use C4::Context;
143
use C4::Context;
144
use C4::Output;
144
use C4::Output qw( output_html_with_http_headers );
145
use C4::Auth qw(:DEFAULT get_session);
145
use C4::Auth qw( get_template_and_user );
146
use C4::Search;
146
use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );
147
use C4::Languages qw(getLanguages);
147
use C4::Languages qw( getlanguage getLanguages );
148
use C4::Koha;
148
use C4::Koha qw( getitemtypeimagelocation GetAuthorisedValues );
149
use C4::Members qw(GetMember);
149
use C4::Members qw( GetMember );
150
use URI::Escape;
150
use URI::Escape;
151
use POSIX qw(ceil floor);
151
use POSIX qw(ceil floor);
152
use C4::Search::History;
152
use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );
153
153
154
use Koha::ItemTypes;
154
use Koha::ItemTypes;
155
use Koha::LibraryCategories;
155
use Koha::LibraryCategories;
(-)a/catalogue/showmarc.pl (-5 / +5 lines)
Lines 30-40 use Encode; Link Here
30
30
31
# Koha modules used
31
# Koha modules used
32
use C4::Context;
32
use C4::Context;
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Auth;
34
use C4::Auth qw( get_template_and_user );
35
use C4::Biblio;
35
use C4::Biblio qw( GetMarcBiblio GetXmlBiblio );
36
use C4::ImportBatch;
36
use C4::ImportBatch qw( GetRecordFromImportBiblio );
37
use C4::XSLT ();
37
use C4::XSLT qw( engine );
38
38
39
my $input= new CGI;
39
my $input= new CGI;
40
my $biblionumber= $input->param('id');
40
my $biblionumber= $input->param('id');
(-)a/catalogue/updateitem.pl (-3 / +3 lines)
Lines 20-31 Link Here
20
use strict; 
20
use strict; 
21
use warnings;
21
use warnings;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( checkauth );
24
use C4::Context;
24
use C4::Context;
25
use C4::Biblio;
25
use C4::Biblio;
26
use C4::Items;
26
use C4::Items qw( GetItem ModItem );
27
use C4::Output;
27
use C4::Output;
28
use C4::Circulation;
28
use C4::Circulation qw( LostItem );
29
use C4::Reserves;
29
use C4::Reserves;
30
30
31
my $cgi= new CGI;
31
my $cgi= new CGI;
(-)a/cataloguing/addbiblio.pl (-9 / +9 lines)
Lines 22-41 Link Here
22
use strict;
22
use strict;
23
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
24
use CGI q(-utf8);
24
use CGI q(-utf8);
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Biblio;
27
use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetUsedMarcStructure GetMarcBiblio PrepHostMarcField prepare_host_field TransformHtmlToMarc BiblioAutoLink ModBiblio AddBiblio DelBiblio );
28
use C4::Search;
28
use C4::Search qw( FindDuplicate enabled_staff_search_views );
29
use C4::AuthoritiesMarc;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Context;
30
use C4::Context;
31
use MARC::Record;
31
use MARC::Record;
32
use C4::Log;
32
use C4::Log;
33
use C4::Koha;
33
use C4::Koha;
34
use C4::ClassSource;
34
use C4::ClassSource qw( GetClassSources GetClassSource );
35
use C4::ImportBatch;
35
use C4::ImportBatch qw( GetImportRecordMarc );
36
use C4::Charset;
36
use C4::Charset qw( SetMarcUnicodeFlag );
37
use Koha::BiblioFrameworks;
37
use Koha::BiblioFrameworks;
38
use Koha::DateUtils;
38
use Koha::DateUtils qw( dt_from_string );
39
39
40
use Koha::ItemTypes;
40
use Koha::ItemTypes;
41
use Koha::Libraries;
41
use Koha::Libraries;
(-)a/cataloguing/addbooks.pl (-5 / +5 lines)
Lines 27-38 Link Here
27
use strict;
27
use strict;
28
use warnings;
28
use warnings;
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Biblio;
31
use C4::Biblio;
32
use C4::Breeding;
32
use C4::Breeding qw( BreedingSearch );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers pagination_bar );
34
use C4::Koha;
34
use C4::Koha qw( getnbpages );
35
use C4::Search;
35
use C4::Search qw( searchResults z3950_search_args );
36
36
37
use Koha::BiblioFrameworks;
37
use Koha::BiblioFrameworks;
38
use Koha::SearchEngine::Search;
38
use Koha::SearchEngine::Search;
(-)a/cataloguing/additem.pl (-10 / +10 lines)
Lines 22-43 Link Here
22
use strict;
22
use strict;
23
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user haspermission );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Biblio;
27
use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetMarcBiblio TransformMarcToKoha TransformHtmlToXml ModBiblio EmbedItemsInMarcBiblio GetAuthorisedValueDesc GetBiblionumberFromItemnumber GetBiblio IsMarcStructureInternal );
28
use C4::Items;
28
use C4::Items qw( GetItem ModItem AddItemFromMarc AddItem GetMarcItem DelItem DelItemCheck GetItemnumbersForBiblio ModItemFromMarc GetBarcodeFromItemnumber );
29
use C4::Context;
29
use C4::Context;
30
use C4::Circulation;
30
use C4::Circulation qw( LostItem );
31
use C4::Koha;
31
use C4::Koha qw( GetAuthorisedValues );
32
use C4::ClassSource;
32
use C4::ClassSource qw( GetClassSources GetClassSource );
33
use Koha::DateUtils;
33
use Koha::DateUtils qw( dt_from_string );
34
use Koha::ItemTypes;
34
use Koha::ItemTypes;
35
use Koha::Libraries;
35
use Koha::Libraries;
36
use List::MoreUtils qw/any/;
36
use List::MoreUtils qw/any/;
37
use C4::Search;
37
use C4::Search qw( enabled_staff_search_views );
38
use Storable qw(thaw freeze);
38
use Storable qw(thaw freeze);
39
use URI::Escape;
39
use URI::Escape;
40
use C4::Members;
40
use C4::Members qw( GetMember );
41
41
42
use MARC::File::XML;
42
use MARC::File::XML;
43
use URI::Escape;
43
use URI::Escape;
(-)a/cataloguing/editor.pl (-2 / +2 lines)
Lines 23-32 use Modern::Perl; Link Here
23
use CGI;
23
use CGI;
24
use MARC::Record;
24
use MARC::Record;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Biblio;
27
use C4::Biblio;
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use DBIx::Class::ResultClass::HashRefInflator;
30
use DBIx::Class::ResultClass::HashRefInflator;
31
use Koha::Database;
31
use Koha::Database;
32
32
(-)a/cataloguing/linkitem.pl (-4 / +4 lines)
Lines 21-30 Link Here
21
21
22
use strict;
22
use strict;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio GetBiblionumberFromItemnumber GetBiblio PrepHostMarcField ModBiblio );
27
use C4::Items;
27
use C4::Items qw( GetItem GetItemnumberFromBarcode );
28
use C4::Context;
28
use C4::Context;
29
use C4::Koha;
29
use C4::Koha;
30
30
(-)a/cataloguing/merge.pl (-7 / +7 lines)
Lines 21-34 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Items;
26
use C4::Items qw( MoveItemFromBiblio );
27
use C4::Biblio;
27
use C4::Biblio qw( TransformHtmlToMarc GetMarcBiblio ModBiblio GetBiblioItemByBiblioNumber GetBiblio DelBiblio GetFrameworkCode GetMarcStructure GetMarcFromKohaField GetBiblioData );
28
use C4::Serials;
28
use C4::Serials qw( CountSubscriptionFromBiblionumber );
29
use C4::Koha;
29
use C4::Koha;
30
use C4::Reserves qw/MergeHolds/;
30
use C4::Reserves qw( MergeHolds );
31
use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/;
31
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder ModOrder );
32
32
33
use Koha::BiblioFrameworks;
33
use Koha::BiblioFrameworks;
34
use Koha::Items;
34
use Koha::Items;
(-)a/cataloguing/merge_ajax.pl (-2 / +2 lines)
Lines 7-14 use CGI::Cookie; # need to check cookies before CGI parses the POST request Link Here
7
use JSON;
7
use JSON;
8
8
9
use C4::Context;
9
use C4::Context;
10
use C4::Biblio;
10
use C4::Biblio qw( GetMarcStructure );
11
use C4::Auth qw/check_cookie_auth/;
11
use C4::Auth qw( check_cookie_auth );
12
12
13
my %cookies = CGI::Cookie->fetch;
13
my %cookies = CGI::Cookie->fetch;
14
my ( $auth_status, $sessionID ) = check_cookie_auth(
14
my ( $auth_status, $sessionID ) = check_cookie_auth(
(-)a/cataloguing/moveitem.pl (-4 / +4 lines)
Lines 22-31 Link Here
22
use strict;
22
use strict;
23
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Biblio;
27
use C4::Biblio qw( GetBiblioData GetBiblio GetBiblioFromItemNumber );
28
use C4::Items;
28
use C4::Items qw( GetItem GetItemnumberFromBarcode MoveItemFromBiblio );
29
use C4::Context;
29
use C4::Context;
30
use C4::Koha;
30
use C4::Koha;
31
use C4::ClassSource;
31
use C4::ClassSource;
(-)a/cataloguing/value_builder/EXAMPLE.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
# Example of framework plugin new style.
25
# Example of framework plugin new style.
26
# It should define and return at least one and normally two anynomous
26
# It should define and return at least one and normally two anynomous
(-)a/cataloguing/value_builder/barcode.pl (-1 / +1 lines)
Lines 24-30 use Modern::Perl; Link Here
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Barcodes::ValueBuilder;
26
use C4::Barcodes::ValueBuilder;
27
use Koha::DateUtils;
27
use Koha::DateUtils qw( dt_from_string output_pref );
28
28
29
use Algorithm::CheckDigits;
29
use Algorithm::CheckDigits;
30
30
(-)a/cataloguing/value_builder/barcode_manual.pl (-1 / +1 lines)
Lines 24-30 use Modern::Perl; Link Here
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Barcodes::ValueBuilder;
26
use C4::Barcodes::ValueBuilder;
27
use Koha::DateUtils;
27
use Koha::DateUtils qw( dt_from_string output_pref );
28
28
29
my $DEBUG = 0;
29
my $DEBUG = 0;
30
30
(-)a/cataloguing/value_builder/callnumber-KU.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
=head1 DESCRIPTION
29
=head1 DESCRIPTION
30
30
(-)a/cataloguing/value_builder/callnumber.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
=head1 DESCRIPTION
29
=head1 DESCRIPTION
30
30
(-)a/cataloguing/value_builder/cn_browser.pl (-3 / +3 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI;
23
use CGI;
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::ClassSource;
26
use C4::ClassSource qw( GetClassSort );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
my $builder = sub {
29
my $builder = sub {
30
    my ( $params ) = @_;
30
    my ( $params ) = @_;
(-)a/cataloguing/value_builder/dateaccessioned.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Biblio qw/GetMarcFromKohaField/;
23
use C4::Biblio qw( GetMarcFromKohaField );
24
use Koha::DateUtils;
24
use Koha::DateUtils qw( dt_from_string output_pref );
25
25
26
my $builder = sub {
26
my $builder = sub {
27
    my ( $params ) = @_;
27
    my ( $params ) = @_;
(-)a/cataloguing/value_builder/macles.pl (-2 / +2 lines)
Lines 23-30 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
28
29
my $builder = sub {
29
my $builder = sub {
30
    my ( $params ) = @_;
30
    my ( $params ) = @_;
(-)a/cataloguing/value_builder/marc21_field_006.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
use XML::LibXML;
30
use XML::LibXML;
31
31
(-)a/cataloguing/value_builder/marc21_field_007.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
my $builder = sub {
31
my $builder = sub {
32
    my ( $params ) = @_;
32
    my ( $params ) = @_;
(-)a/cataloguing/value_builder/marc21_field_008.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
use XML::LibXML;
30
use XML::LibXML;
31
use Koha::Util::FrameworkPlugin qw|date_entered|;
31
use Koha::Util::FrameworkPlugin qw|date_entered|;
(-)a/cataloguing/value_builder/marc21_field_008_authorities.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use Koha::Util::FrameworkPlugin qw|date_entered|;
29
use Koha::Util::FrameworkPlugin qw|date_entered|;
30
30
31
use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
31
use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
(-)a/cataloguing/value_builder/marc21_field_008_classifications.pl (-2 / +2 lines)
Lines 16-27 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use C4::Auth;
19
use C4::Auth qw( get_template_and_user );
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Context;
21
use C4::Context;
22
22
23
use C4::Search;
23
use C4::Search;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::Util::FrameworkPlugin qw|date_entered|;
25
use Koha::Util::FrameworkPlugin qw|date_entered|;
26
26
27
use constant FIXLEN_DATA_ELTS => 'baaaaaaa';
27
use constant FIXLEN_DATA_ELTS => 'baaaaaaa';
(-)a/cataloguing/value_builder/marc21_leader.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
my $builder = sub {
29
my $builder = sub {
30
    my ( $params ) = @_;
30
    my ( $params ) = @_;
(-)a/cataloguing/value_builder/marc21_leader_authorities.pl (-3 / +3 lines)
Lines 21-32 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
my $builder = sub {
31
my $builder = sub {
32
    my ( $params ) = @_;
32
    my ( $params ) = @_;
Lines 92-95 my $launcher = sub { Link Here
92
    output_html_with_http_headers $input, $cookie, $template->output;
92
    output_html_with_http_headers $input, $cookie, $template->output;
93
};
93
};
94
94
95
return { builder => $builder, launcher => $launcher };
95
return { builder => $builder, launcher => $launcher };
(-)a/cataloguing/value_builder/marc21_linking_section.pl (-5 / +5 lines)
Lines 22-34 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use C4::Search;
27
use C4::Search qw( new_record_from_zebra );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );
32
use C4::Koha;
32
use C4::Koha;
33
use MARC::Record;
33
use MARC::Record;
34
34
(-)a/cataloguing/value_builder/normarc_field_007.pl (-2 / +2 lines)
Lines 18-29 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use strict;
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
24
25
use C4::Search;
25
use C4::Search;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
sub plugin_javascript {
28
sub plugin_javascript {
29
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
29
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/normarc_field_008.pl (-2 / +2 lines)
Lines 18-29 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use strict;
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
24
25
use C4::Search;
25
use C4::Search;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
# find today's date
28
# find today's date
29
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
29
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
(-)a/cataloguing/value_builder/normarc_leader.pl (-2 / +2 lines)
Lines 19-30 Link Here
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use strict;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
25
26
use C4::Search;
26
use C4::Search;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/stocknumberAV.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
=head1 DESCRIPTION
29
=head1 DESCRIPTION
30
30
(-)a/cataloguing/value_builder/stocknumberam123.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
=head1 DESCRIPTION
29
=head1 DESCRIPTION
30
30
(-)a/cataloguing/value_builder/unimarc_field_010.pl (-2 / +2 lines)
Lines 20-29 Link Here
20
20
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
(-)a/cataloguing/value_builder/unimarc_field_100.pl (-2 / +2 lines)
Lines 22-31 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
(-)a/cataloguing/value_builder/unimarc_field_100_authorities.pl (-2 / +2 lines)
Lines 20-29 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Koha::Util::FrameworkPlugin qw(wrapper);
22
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
(-)a/cataloguing/value_builder/unimarc_field_105.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_106.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_110.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_115a.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
33
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_115b.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
33
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_116.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
33
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_117.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_120.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_121a.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_121b.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_122.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123a.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123d.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123e.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123f.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123g.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123i.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123j.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124a.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124b.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124c.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124d.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124e.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124f.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124g.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_125.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
=head1 DESCRIPTION
30
=head1 DESCRIPTION
31
31
(-)a/cataloguing/value_builder/unimarc_field_125a.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_125b.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_126.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_126a.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_126b.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_127.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_128a.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_128b.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_128c.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_130.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_135a.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_140.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_141.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-4 / +4 lines)
Lines 21-34 Link Here
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
23
24
use C4::AuthoritiesMarc;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( pagination_bar output_html_with_http_headers );
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Search;
29
use C4::Search;
30
use MARC::Record;
30
use MARC::Record;
31
use C4::Koha;
31
use C4::Koha qw( getnbpages );
32
32
33
###TODO To rewrite in order to use SearchAuthorities
33
###TODO To rewrite in order to use SearchAuthorities
34
34
(-)a/cataloguing/value_builder/unimarc_field_210c_bis.pl (-3 / +3 lines)
Lines 41-52 It need : Link Here
41
use strict;
41
use strict;
42
42
43
#use warnings; FIXME - Bug 2505
43
#use warnings; FIXME - Bug 2505
44
use C4::Auth;
44
use C4::Auth qw( get_template_and_user );
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
46
use C4::Context;
46
use C4::Context;
47
47
48
use C4::AuthoritiesMarc;
48
use C4::Auth qw( get_template_and_user );
49
use C4::Output;
49
use C4::Output qw( output_html_with_http_headers );
50
50
51
sub plugin_javascript {
51
sub plugin_javascript {
52
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
52
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_225a.pl (-3 / +3 lines)
Lines 41-52 It need : Link Here
41
41
42
use strict;
42
use strict;
43
#use warnings; FIXME - Bug 2505
43
#use warnings; FIXME - Bug 2505
44
use C4::Auth;
44
use C4::Auth qw( get_template_and_user );
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
46
use C4::Context;
46
use C4::Context;
47
47
48
use C4::AuthoritiesMarc;
48
use C4::Auth qw( get_template_and_user );
49
use C4::Output;
49
use C4::Output qw( output_html_with_http_headers );
50
50
51
=head1 DESCRIPTION
51
=head1 DESCRIPTION
52
52
(-)a/cataloguing/value_builder/unimarc_field_225a_bis.pl (-2 / +2 lines)
Lines 24-34 biblioitems.collectiontitle Link Here
24
24
25
use Modern::Perl;
25
use Modern::Perl;
26
26
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use CGI qw( -utf8 );
28
use CGI qw( -utf8 );
29
use C4::Context;
29
use C4::Context;
30
30
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
32
33
sub plugin_javascript {
33
sub plugin_javascript {
34
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
34
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-5 / +5 lines)
Lines 22-34 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use C4::Search;
27
use C4::Search qw( new_record_from_zebra );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );
32
use C4::Koha;
32
use C4::Koha;
33
use MARC::Record;
33
use MARC::Record;
34
34
(-)a/cataloguing/value_builder/unimarc_field_686a.pl (-2 / +2 lines)
Lines 19-30 Link Here
19
19
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
25
26
use C4::Search;
26
use C4::Search;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_700-4.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
21
22
use strict;
22
use strict;
23
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_leader.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
33
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/ysearch.pl (-2 / +2 lines)
Lines 27-34 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Context;
29
use C4::Context;
30
use C4::Charset;
30
use C4::Charset qw( nsb_clean );
31
use C4::Auth qw/check_cookie_auth/;
31
use C4::Auth qw( check_cookie_auth );
32
use JSON qw/ to_json /;
32
use JSON qw/ to_json /;
33
33
34
my $input = new CGI;
34
my $input = new CGI;
(-)a/cataloguing/z3950_auth_search.pl (-3 / +3 lines)
Lines 20-29 use strict; Link Here
20
use warnings;
20
use warnings;
21
use CGI qw / -utf8 /;
21
use CGI qw / -utf8 /;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Breeding;
26
use C4::Breeding qw( Z3950Search Z3950SearchAuth );
27
use C4::Koha;
27
use C4::Koha;
28
28
29
my $input        = new CGI;
29
my $input        = new CGI;
(-)a/cataloguing/z3950_search.pl (-3 / +3 lines)
Lines 22-31 use strict; Link Here
22
use warnings;
22
use warnings;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
use C4::Breeding;
28
use C4::Breeding qw( Z3950Search );
29
use C4::Koha;
29
use C4::Koha;
30
30
31
my $input        = new CGI;
31
my $input        = new CGI;
(-)a/circ/add_message.pl (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output;
26
use Koha::Patron::Message;
26
use Koha::Patron::Message;
27
27
(-)a/circ/article-request-slip.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
use CGI qw( -utf8 );
22
use CGI qw( -utf8 );
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use Koha::ArticleRequests;
27
use Koha::ArticleRequests;
28
use Koha::Patrons;
28
use Koha::Patrons;
29
29
(-)a/circ/article-requests.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::ArticleRequests;
26
use Koha::ArticleRequests;
27
27
28
my $query = new CGI;
28
my $query = new CGI;
(-)a/circ/bookcount.pl (-3 / +3 lines)
Lines 26-35 use CGI qw ( -utf8 ); Link Here
26
use C4::Debug;
26
use C4::Debug;
27
use C4::Context;
27
use C4::Context;
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Koha;
30
use C4::Koha;
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Biblio; # GetBiblioItemData
32
use C4::Biblio qw( GetBiblioItemData GetBiblio );
33
use Koha::DateUtils;
33
use Koha::DateUtils;
34
use Koha::Libraries;
34
use Koha::Libraries;
35
35
(-)a/circ/branchoverdues.pl (-6 / +6 lines)
Lines 20-32 use strict; Link Here
20
#use warnings; FIXME - Bug 2505
20
#use warnings; FIXME - Bug 2505
21
use C4::Context;
21
use C4::Context;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Overdues;    # AddNotifyLine
25
use C4::Overdues qw( GetOverduesForBranch AddNotifyLine RemoveNotifyLine );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure GetMarcBiblio GetRecordValue );
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Debug;
28
use C4::Debug;
29
use Koha::DateUtils;
29
use Koha::DateUtils qw( dt_from_string output_pref );
30
use Koha::BiblioFrameworks;
30
use Koha::BiblioFrameworks;
31
use Data::Dumper;
31
use Data::Dumper;
32
32
(-)a/circ/branchtransfers.pl (-7 / +7 lines)
Lines 23-36 Link Here
23
use strict;
23
use strict;
24
use warnings;
24
use warnings;
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Circulation;
26
use C4::Circulation qw( transferbook );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Reserves;
28
use C4::Reserves qw( CancelReserve ModReserve ModReserveAffect );
29
use C4::Biblio;
29
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio );
30
use C4::Items;
30
use C4::Items qw( GetItem GetItemnumberFromBarcode );
31
use C4::Auth qw/:DEFAULT get_session/;
31
use C4::Auth qw( get_session get_template_and_user );
32
use C4::Koha;
32
use C4::Koha;
33
use C4::Members;
33
use C4::Members qw( GetMember );
34
use Koha::BiblioFrameworks;
34
use Koha::BiblioFrameworks;
35
use Koha::AuthorisedValues;
35
use Koha::AuthorisedValues;
36
36
(-)a/circ/circulation-home.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use Koha::BiblioFrameworks;
24
use Koha::BiblioFrameworks;
25
25
(-)a/circ/circulation.pl (-10 / +10 lines)
Lines 27-52 use warnings; Link Here
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use DateTime;
28
use DateTime;
29
use DateTime::Duration;
29
use DateTime::Duration;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Print;
31
use C4::Print qw( NetworkPrint );
32
use C4::Auth qw/:DEFAULT get_session haspermission/;
32
use C4::Auth qw( get_session get_template_and_user haspermission );
33
use C4::Koha;   # GetPrinter
33
use C4::Koha;   # GetPrinter
34
use C4::Circulation;
34
use C4::Circulation qw( barcodedecode decode CanBookBeIssued AddIssue );
35
use C4::Utils::DataTables::Members;
35
use C4::Utils::DataTables::Members;
36
use C4::Members;
36
use C4::Members qw( GetMember IssueSlip patronflags GetMemberAccountRecords );
37
use C4::Biblio;
37
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio TransformMarcToKoha GetRecordValue GetMarcBiblio GetFrameworkCode );
38
use C4::Search;
38
use C4::Search qw( new_record_from_zebra );
39
use MARC::Record;
39
use MARC::Record;
40
use C4::Reserves;
40
use C4::Reserves;
41
use Koha::Holds;
41
use Koha::Holds;
42
use C4::Context;
42
use C4::Context;
43
use CGI::Session;
43
use CGI::Session;
44
use C4::Members::Attributes qw(GetBorrowerAttributes);
44
use C4::Members qw( GetMember IssueSlip patronflags GetMemberAccountRecords );
45
use Koha::AuthorisedValues;
45
use Koha::AuthorisedValues;
46
use Koha::CsvProfiles;
46
use Koha::CsvProfiles;
47
use Koha::Patron;
47
use Koha::Patron;
48
use Koha::Patron::Debarments qw(GetDebarments);
48
use Koha::Patron::Debarments qw( GetDebarments );
49
use Koha::DateUtils;
49
use Koha::DateUtils qw( dt_from_string output_pref );
50
use Koha::Database;
50
use Koha::Database;
51
use Koha::BiblioFrameworks;
51
use Koha::BiblioFrameworks;
52
use Koha::Patron::Messages;
52
use Koha::Patron::Messages;
(-)a/circ/del_message.pl (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output;
26
use Koha::Patron::Messages;
26
use Koha::Patron::Messages;
27
27
(-)a/circ/hold-transfer-slip.pl (-3 / +3 lines)
Lines 21-30 Link Here
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Auth qw/:DEFAULT get_session/;
26
use C4::Auth qw( get_session get_template_and_user );
27
use C4::Reserves;
27
use C4::Reserves qw( ReserveSlip );
28
28
29
use vars qw($debug);
29
use vars qw($debug);
30
30
(-)a/circ/offline-mf.pl (-1 / +1 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
23
24
my $query = new CGI;
24
my $query = new CGI;
25
my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
25
my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
(-)a/circ/offline.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
my $query = new CGI;
26
my $query = new CGI;
(-)a/circ/on-site_checkouts.pl (-2 / +2 lines)
Lines 18-26 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Circulation qw( GetPendingOnSiteCheckouts );
22
use C4::Circulation qw( GetPendingOnSiteCheckouts );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Koha;
24
use C4::Koha;
25
use Koha::BiblioFrameworks;
25
use Koha::BiblioFrameworks;
26
26
(-)a/circ/overdue.pl (-3 / +3 lines)
Lines 21-32 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use CGI qw(-oldstyle_urls -utf8);
25
use CGI qw(-oldstyle_urls -utf8);
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Debug;
27
use C4::Debug;
28
use Text::CSV_XS;
28
use Text::CSV_XS;
29
use Koha::DateUtils;
29
use Koha::DateUtils qw( dt_from_string output_pref );
30
use DateTime;
30
use DateTime;
31
use DateTime::Format::MySQL;
31
use DateTime::Format::MySQL;
32
32
(-)a/circ/pendingreserves.pl (-3 / +3 lines)
Lines 22-33 use Modern::Perl; Link Here
22
use constant PULL_INTERVAL => 2;
22
use constant PULL_INTERVAL => 2;
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use Koha::Biblios;
28
use Koha::Biblios;
29
use C4::Debug;
29
use C4::Debug;
30
use Koha::DateUtils;
30
use Koha::DateUtils qw( dt_from_string output_pref );
31
use DateTime::Duration;
31
use DateTime::Duration;
32
32
33
my $input = new CGI;
33
my $input = new CGI;
(-)a/circ/renew.pl (-4 / +4 lines)
Lines 21-31 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Auth qw/:DEFAULT get_session/;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Circulation;
26
use C4::Circulation qw( CanBookBeRenewed GetSoonestRenewDate GetLatestAutoRenewDate AddRenewal );
27
use C4::Koha;
27
use C4::Koha;
28
use Koha::DateUtils;
28
use Koha::DateUtils qw( dt_from_string );
29
use Koha::Database;
29
use Koha::Database;
30
use Koha::BiblioFrameworks;
30
use Koha::BiblioFrameworks;
31
31
(-)a/circ/request-article.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Utils::DataTables::Members;
24
use C4::Utils::DataTables::Members;
25
use Koha::Biblios;
25
use Koha::Biblios;
26
use Koha::Patrons;
26
use Koha::Patrons;
(-)a/circ/reserveratios.pl (-5 / +5 lines)
Lines 25-36 use CGI qw ( -utf8 ); Link Here
25
use Date::Calc qw/Today Add_Delta_YM/;
25
use Date::Calc qw/Today Add_Delta_YM/;
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Debug;
30
use C4::Debug;
31
use C4::Biblio qw/GetMarcBiblio GetRecordValue GetFrameworkCode/;
31
use C4::Biblio qw( GetMarcBiblio GetRecordValue GetFrameworkCode );
32
use C4::Acquisition qw/GetOrdersByBiblionumber/;
32
use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder );
33
use Koha::DateUtils;
33
use Koha::DateUtils qw( dt_from_string output_pref );
34
34
35
my $input = new CGI;
35
my $input = new CGI;
36
my $startdate       = $input->param('from');
36
my $startdate       = $input->param('from');
(-)a/circ/returns.pl (-11 / +11 lines)
Lines 36-54 $SIG{ __DIE__ } = sub { Carp::confess( @_ ) }; Link Here
36
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
37
use DateTime;
37
use DateTime;
38
use C4::Context;
38
use C4::Context;
39
use C4::Auth qw/:DEFAULT get_session/;
39
use C4::Auth qw( get_template_and_user get_session haspermission );
40
use C4::Output;
40
use C4::Output qw( output_html_with_http_headers );
41
use C4::Circulation;
41
use C4::Circulation qw( barcodedecode decode updateWrongTransfer DeleteTransfer GetBranchItemRule AddReturn LostItem );
42
use C4::Print;
42
use C4::Print;
43
use C4::Reserves;
43
use C4::Reserves qw( CancelReserve ModReserve ModReserveAffect GetOtherReserves GetReserve GetReservesFromBorrowernumber );
44
use C4::Biblio;
44
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio );
45
use C4::Items;
45
use C4::Items qw( ModItem ModItemTransfer GetItem GetItemnumberFromBarcode );
46
use C4::Members;
46
use C4::Members qw( GetMember );
47
use C4::Members::Messaging;
47
use C4::Members qw( GetMember );
48
use C4::Koha;   # FIXME : is it still useful ?
48
use C4::Koha qw( GetPrinters GetPrinter );
49
use C4::RotatingCollections;
49
use C4::RotatingCollections qw( GetCollection GetCollectionItemBranches );
50
use Koha::AuthorisedValues;
50
use Koha::AuthorisedValues;
51
use Koha::DateUtils;
51
use Koha::DateUtils qw( dt_from_string output_pref );
52
use Koha::Calendar;
52
use Koha::Calendar;
53
use Koha::Checkouts;
53
use Koha::Checkouts;
54
use Koha::BiblioFrameworks;
54
use Koha::BiblioFrameworks;
(-)a/circ/selectbranchprinter.pl (-3 / +3 lines)
Lines 22-31 use warnings; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth qw/:DEFAULT get_session/;
26
use C4::Auth qw( get_template_and_user get_session );
27
use C4::Print;  # GetPrinters
27
use C4::Print;  # GetPrinters
28
use C4::Koha;
28
use C4::Koha qw( GetPrinters GetPrinter );
29
use Koha::BiblioFrameworks;
29
use Koha::BiblioFrameworks;
30
use Koha::Libraries;
30
use Koha::Libraries;
31
31
(-)a/circ/transfer-slip.pl (-3 / +3 lines)
Lines 22-31 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Auth qw/:DEFAULT get_session/;
27
use C4::Auth qw( get_session get_template_and_user );
28
use C4::Circulation;
28
use C4::Circulation qw( TransferSlip );
29
29
30
use vars qw($debug);
30
use vars qw($debug);
31
31
(-)a/circ/transferstoreceive.pl (-7 / +7 lines)
Lines 22-43 use strict; Link Here
22
use warnings;
22
use warnings;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Biblio;
27
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio GetMarcBiblio GetRecordValue GetFrameworkCode );
28
use C4::Circulation;
28
use C4::Circulation qw( GetTransfers GetTransfersFromTo );
29
use C4::Members;
29
use C4::Members qw( GetMember );
30
use Date::Calc qw(
30
use Date::Calc qw(
31
  Today
31
  Today
32
  Add_Delta_Days
32
  Add_Delta_Days
33
  Date_to_Days
33
  Date_to_Days
34
);
34
);
35
35
36
use C4::Koha;
36
use C4::Koha qw( getitemtypeinfo );
37
use C4::Reserves;
37
use C4::Reserves;
38
use Koha::Items;
38
use Koha::Items;
39
use Koha::Libraries;
39
use Koha::Libraries;
40
use Koha::DateUtils;
40
use Koha::DateUtils qw( dt_from_string output_pref );
41
use Koha::BiblioFrameworks;
41
use Koha::BiblioFrameworks;
42
42
43
my $input = new CGI;
43
my $input = new CGI;
(-)a/circ/view_holdsqueue.pl (-3 / +3 lines)
Lines 25-35 This script displays items in the tmp_holdsqueue table Link Here
25
use strict;
25
use strict;
26
use warnings;
26
use warnings;
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Biblio;
30
use C4::Biblio;
31
use C4::Items;
31
use C4::Items;
32
use C4::HoldsQueue qw(GetHoldsQueueItems);
32
use C4::HoldsQueue qw( GetHoldsQueueItems );
33
use Koha::BiblioFrameworks;
33
use Koha::BiblioFrameworks;
34
34
35
use Koha::ItemTypes;
35
use Koha::ItemTypes;
(-)a/circ/waitingreserves.pl (-8 / +8 lines)
Lines 22-41 use strict; Link Here
22
use warnings;
22
use warnings;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Members;
28
use C4::Members qw( GetMember GetFirstValidEmailAddress );
29
use C4::Biblio;
29
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio GetRecordValue GetMarcBiblio GetFrameworkCode );
30
use C4::Items;
30
use C4::Items qw( ModItem ModItemTransfer );
31
use Date::Calc qw(
31
use Date::Calc qw(
32
  Today
32
  Today
33
  Add_Delta_Days
33
  Add_Delta_Days
34
  Date_to_Days
34
  Date_to_Days
35
);
35
);
36
use C4::Reserves;
36
use C4::Reserves qw( GetReserve GetReservesForBranch ModReserve ModReserveCancelAll );
37
use C4::Koha;
37
use C4::Koha qw( getitemtypeinfo );
38
use Koha::DateUtils;
38
use Koha::DateUtils qw( dt_from_string output_pref );
39
use Koha::BiblioFrameworks;
39
use Koha::BiblioFrameworks;
40
40
41
my $input = new CGI;
41
my $input = new CGI;
(-)a/circ/ypattrodue-attr-search-authvalue.pl (-2 / +2 lines)
Lines 22-28 use strict; Link Here
22
use warnings;
22
use warnings;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth qw/check_cookie_auth/;
25
use C4::Auth qw( check_cookie_auth );
26
use C4::Debug;
26
use C4::Debug;
27
27
28
my $input    = new CGI;
28
my $input    = new CGI;
Lines 56-59 while ( my $rec = $sth->fetchrow_hashref ) { Link Here
56
    "}";
56
    "}";
57
    $i++;
57
    $i++;
58
}
58
}
59
print "]";
59
print "]";
(-)a/circ/ysearch.pl (-2 / +2 lines)
Lines 27-35 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Context;
29
use C4::Context;
30
use C4::Auth qw/check_cookie_auth/;
30
use C4::Auth qw( check_cookie_auth );
31
use Koha::Patrons;
31
use Koha::Patrons;
32
use Koha::DateUtils qw/format_sqldatetime/;
32
use Koha::DateUtils qw( format_sqldatetime );
33
33
34
use JSON qw( to_json );
34
use JSON qw( to_json );
35
35
(-)a/clubs/club-enrollments.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Clubs;
26
use Koha::Clubs;
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
(-)a/clubs/clubs-add-modify.pl (-3 / +3 lines)
Lines 21-30 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Database;
26
use Koha::Database;
27
use Koha::DateUtils qw(dt_from_string);
27
use Koha::DateUtils qw( dt_from_string );
28
use Koha::Clubs;
28
use Koha::Clubs;
29
use Koha::Club::Fields;
29
use Koha::Club::Fields;
30
30
(-)a/clubs/clubs.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Clubs;
27
use Koha::Clubs;
28
use Koha::Club::Templates;
28
use Koha::Club::Templates;
(-)a/clubs/patron-clubs-tab.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Patrons;
27
use Koha::Patrons;
28
use Koha::Club::Enrollments;
28
use Koha::Club::Enrollments;
(-)a/clubs/patron-enroll.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Clubs;
26
use Koha::Clubs;
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
(-)a/clubs/templates-add-modify.pl (-3 / +3 lines)
Lines 21-30 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::DateUtils qw(dt_from_string);
27
use Koha::DateUtils qw( dt_from_string );
28
use Koha::Club::Templates;
28
use Koha::Club::Templates;
29
use Koha::Club::Template::Fields;
29
use Koha::Club::Template::Fields;
30
use Koha::Club::Template::EnrollmentFields;
30
use Koha::Club::Template::EnrollmentFields;
(-)a/course_reserves/add_items.pl (-4 / +4 lines)
Lines 22-34 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Biblio;
28
use C4::Biblio;
29
use Koha::Items;
29
use Koha::Items;
30
30
31
use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve);
31
use C4::CourseReserves qw( GetCourse GetCourseItem GetCourseReserve ModCourse ModCourseItem ModCourseReserve );
32
32
33
use Koha::ItemTypes;
33
use Koha::ItemTypes;
34
34
(-)a/course_reserves/course-details.pl (-3 / +3 lines)
Lines 22-32 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
28
29
use C4::CourseReserves qw(DelCourseReserve GetCourse GetCourseReserves);
29
use C4::CourseReserves qw( DelCourse DelCourseReserve GetCourse GetCourseReserve GetCourseReserves );
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
32
(-)a/course_reserves/course-reserves.pl (-3 / +3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use C4::CourseReserves qw(GetCourses);
28
use C4::CourseReserves qw( GetCourse GetCourses );
29
29
30
my $cgi = new CGI;
30
my $cgi = new CGI;
31
31
(-)a/course_reserves/course.pl (-4 / +4 lines)
Lines 22-32 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
28
29
use C4::CourseReserves qw(GetCourse);
29
use C4::CourseReserves qw( GetCourse );
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
32
(-)a/course_reserves/mod_course.pl (-2 / +2 lines)
Lines 23-31 use CGI qw ( -utf8 ); Link Here
23
23
24
use C4::Output;
24
use C4::Output;
25
use C4::Reserves;
25
use C4::Reserves;
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
27
28
use C4::CourseReserves qw(DelCourse ModCourse ModCourseInstructors);
28
use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors );
29
29
30
my $cgi = new CGI;
30
my $cgi = new CGI;
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/edithelp.pl (-2 / +2 lines)
Lines 18-26 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use C4::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Templates;
22
use C4::Templates;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
25
26
use vars qw($debug);
26
use vars qw($debug);
(-)a/errors/400.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use strict;
19
use strict;
20
use warnings;
20
use warnings;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
my $query = CGI->new;
26
my $query = CGI->new;
(-)a/errors/401.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
use strict;
18
use strict;
19
use warnings;
19
use warnings;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
24
25
my $query = CGI->new;
25
my $query = CGI->new;
(-)a/errors/402.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use strict;
19
use strict;
20
use warnings;
20
use warnings;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
my $query = CGI->new;
26
my $query = CGI->new;
(-)a/errors/403.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use strict;
19
use strict;
20
use warnings;
20
use warnings;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
my $query = CGI->new;
26
my $query = CGI->new;
(-)a/errors/404.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use strict;
19
use strict;
20
use warnings;
20
use warnings;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
my $query = CGI->new;
26
my $query = CGI->new;
(-)a/errors/500.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use strict;
19
use strict;
20
use warnings;
20
use warnings;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
my $query = CGI->new;
26
my $query = CGI->new;
(-)a/help.pl (-1 / +1 lines)
Lines 20-26 Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
use C4::Templates;
22
use C4::Templates;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
# use C4::Auth;
24
# use C4::Auth;
25
use C4::Context;
25
use C4::Context;
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
(-)a/installer/install.pl (-3 / +3 lines)
Lines 21-34 use strict; Link Here
21
use warnings;
21
use warnings;
22
use diagnostics;
22
use diagnostics;
23
23
24
use C4::InstallAuth;
24
use C4::InstallAuth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use POSIX qw(strftime);
26
use POSIX qw(strftime);
27
27
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Templates;
30
use C4::Templates;
31
use C4::Languages qw(getAllLanguages getTranslatedLanguages);
31
use C4::Languages qw( getAllLanguages getTranslatedLanguages );
32
use C4::Installer;
32
use C4::Installer;
33
33
34
use Koha;
34
use Koha;
(-)a/installer/onboarding.pl (-4 / +4 lines)
Lines 19-32 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use C4::Context;
21
use C4::Context;
22
use C4::InstallAuth;
22
use C4::InstallAuth qw( checkauth get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members qw( checkcardnumber AddMember );
26
use Koha::Patrons;
26
use Koha::Patrons;
27
use Koha::Libraries;
27
use Koha::Libraries;
28
use Koha::Database;
28
use Koha::Database;
29
use Koha::DateUtils;
29
use Koha::DateUtils qw( output_pref dt_from_string );
30
use Koha::Patron::Categories;
30
use Koha::Patron::Categories;
31
use Koha::Patron::Category;
31
use Koha::Patron::Category;
32
use Koha::ItemTypes;
32
use Koha::ItemTypes;
(-)a/labels/label-create-pdf.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Debug;
26
use C4::Debug;
27
use C4::Creators;
27
use C4::Creators;
28
use C4::Labels;
28
use C4::Labels;
(-)a/labels/label-edit-batch.pl (-3 / +3 lines)
Lines 24-32 use vars qw($debug); Link Here
24
24
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
26
27
use C4::Auth qw(get_template_and_user);
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output qw(output_html_with_http_headers);
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Items qw(GetItem GetItemnumberFromBarcode);
29
use C4::Items qw( GetItem GetItemnumberFromBarcode );
30
use C4::Creators;
30
use C4::Creators;
31
use C4::Labels;
31
use C4::Labels;
32
32
(-)a/labels/label-edit-layout.pl (-2 / +2 lines)
Lines 24-31 use warnings; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use POSIX;
25
use POSIX;
26
26
27
use C4::Auth qw(get_template_and_user);
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output qw(output_html_with_http_headers);
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Creators;
29
use C4::Creators;
30
use C4::Labels;
30
use C4::Labels;
31
31
(-)a/labels/label-edit-profile.pl (-2 / +2 lines)
Lines 23-30 use warnings; Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Creators;
28
use C4::Creators;
29
use C4::Labels;
29
use C4::Labels;
30
30
(-)a/labels/label-edit-template.pl (-2 / +2 lines)
Lines 23-30 use warnings; Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Creators;
28
use C4::Creators;
29
use C4::Labels;
29
use C4::Labels;
30
30
(-)a/labels/label-home.pl (-2 / +2 lines)
Lines 23-30 use warnings; Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
my $cgi = new CGI;
29
my $cgi = new CGI;
30
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
30
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-item-search.pl (-6 / +6 lines)
Lines 25-39 use CGI qw ( -utf8 ); Link Here
25
use List::Util qw( max min );
25
use List::Util qw( max min );
26
use POSIX qw(ceil);
26
use POSIX qw(ceil);
27
27
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Context;
30
use C4::Context;
31
use C4::Search qw(SimpleSearch);
31
use C4::Search qw( new_record_from_zebra );
32
use C4::Biblio qw(TransformMarcToKoha);
32
use C4::Biblio qw( TransformMarcToKoha );
33
use C4::Creators::Lib qw(html_table);
33
use C4::Creators::Lib qw( html_table );
34
use C4::Debug;
34
use C4::Debug;
35
35
36
use Koha::DateUtils;
36
use Koha::DateUtils qw( dt_from_string output_pref );
37
use Koha::Items;
37
use Koha::Items;
38
use Koha::ItemTypes;
38
use Koha::ItemTypes;
39
use Koha::SearchEngine::Search;
39
use Koha::SearchEngine::Search;
(-)a/labels/label-manage.pl (-2 / +2 lines)
Lines 25-32 use vars qw($debug); Link Here
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use Data::Dumper;
26
use Data::Dumper;
27
27
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Creators;
30
use C4::Creators;
31
use C4::Labels;
31
use C4::Labels;
32
32
(-)a/labels/label-print.pl (-3 / +3 lines)
Lines 23-31 use warnings; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use Data::Dumper;
24
use Data::Dumper;
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Creators::Lib qw(get_all_templates get_all_layouts get_output_formats);
28
use C4::Creators::Lib qw( get_all_templates get_all_layouts get_output_formats );
29
use C4::Labels::Batch;
29
use C4::Labels::Batch;
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
(-)a/labels/spinelabel-home.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
use warnings;
18
use warnings;
19
use strict;
19
use strict;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
24
25
# use Smart::Comments;
25
# use Smart::Comments;
(-)a/labels/spinelabel-print.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
use warnings;
18
use warnings;
19
use strict;
19
use strict;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
23
24
my $scheme = C4::Context->preference('SpineLabelFormat');
24
my $scheme = C4::Context->preference('SpineLabelFormat');
25
my $query  = new CGI;
25
my $query  = new CGI;
(-)a/mainpage.pl (-4 / +4 lines)
Lines 21-32 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::NewsChannels; # GetNewsToDisplay
27
use C4::NewsChannels qw( GetNewsToDisplay );
28
use C4::Suggestions qw/CountSuggestion/;
28
use C4::Suggestions qw/CountSuggestion/;
29
use C4::Tags qw/get_count_by_tag_status/;
29
use C4::Tags qw( get_count_by_tag_status );
30
use Koha::Patron::Modifications;
30
use Koha::Patron::Modifications;
31
use Koha::Patron::Discharge;
31
use Koha::Patron::Discharge;
32
use Koha::Reviews;
32
use Koha::Reviews;
(-)a/members/boraccount.pl (-5 / +5 lines)
Lines 25-36 Link Here
25
use strict;
25
use strict;
26
use warnings;
26
use warnings;
27
27
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use C4::Members;
31
use C4::Members qw( GetMember GetMemberAccountRecords );
32
use C4::Accounts;
32
use C4::Accounts qw( ReversePayment );
33
use C4::Members::Attributes qw(GetBorrowerAttributes);
33
use C4::Members qw( GetMember GetMemberAccountRecords );
34
use Koha::Patron::Images;
34
use Koha::Patron::Images;
35
35
36
use Koha::Patron::Categories;
36
use Koha::Patron::Categories;
(-)a/members/deletemem.pl (-3 / +3 lines)
Lines 26-34 use strict; Link Here
26
26
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user haspermission );
31
use C4::Members;
31
use C4::Members qw( GetPendingIssues GetMember patronflags );
32
use Module::Load;
32
use Module::Load;
33
use Koha::Patrons;
33
use Koha::Patrons;
34
use Koha::Patron::Images;
34
use Koha::Patron::Images;
(-)a/members/discharge.pl (-4 / +4 lines)
Lines 31-40 use Modern::Perl; Link Here
31
use Carp;
31
use Carp;
32
32
33
use CGI qw( -utf8 );
33
use CGI qw( -utf8 );
34
use C4::Auth;
34
use C4::Auth qw( get_template_and_user );
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
use C4::Members;
36
use C4::Members qw( GetMember );
37
use C4::Reserves;
37
use C4::Reserves qw( GetReserve GetReservesFromBorrowernumber );
38
use C4::Letters;
38
use C4::Letters;
39
use Koha::Patron::Discharge;
39
use Koha::Patron::Discharge;
40
use Koha::Patron::Images;
40
use Koha::Patron::Images;
(-)a/members/discharges.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use Koha::Patron::Discharge;
26
use Koha::Patron::Discharge;
27
27
(-)a/members/files.pl (-4 / +4 lines)
Lines 22-31 use warnings; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Members;
27
use C4::Members qw( GetMember );
28
use C4::Members::Attributes qw(GetBorrowerAttributes);
28
use C4::Members qw( GetMember );
29
use C4::Debug;
29
use C4::Debug;
30
30
31
use Koha::DateUtils;
31
use Koha::DateUtils;
(-)a/members/guarantor_search.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/members/housebound.pl (-4 / +4 lines)
Lines 26-37 Link Here
26
26
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI;
28
use CGI;
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Context;
30
use C4::Context;
31
use C4::Members::Attributes qw(GetBorrowerAttributes);
31
use C4::Members::Attributes qw( GetBorrowerAttributes );
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use DateTime;
33
use DateTime;
34
use Koha::DateUtils;
34
use Koha::DateUtils qw( dt_from_string );
35
use Koha::Libraries;
35
use Koha::Libraries;
36
use Koha::Patrons;
36
use Koha::Patrons;
37
use Koha::Patron::Categories;
37
use Koha::Patron::Categories;
(-)a/members/mancredit.pl (-6 / +6 lines)
Lines 25-38 Link Here
25
use strict;
25
use strict;
26
use warnings;
26
use warnings;
27
27
28
use C4::Auth;
28
use C4::Auth qw( checkauth get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
31
32
use C4::Members;
32
use C4::Members qw( GetMember );
33
use C4::Accounts;
33
use C4::Accounts qw( manualinvoice );
34
use C4::Items;
34
use C4::Items qw( GetItem GetItemnumberFromBarcode );
35
use C4::Members::Attributes qw(GetBorrowerAttributes);
35
use C4::Members qw( GetMember );
36
use Koha::Patron::Images;
36
use Koha::Patron::Images;
37
37
38
use Koha::Patron::Categories;
38
use Koha::Patron::Categories;
(-)a/members/maninvoice.pl (-6 / +6 lines)
Lines 25-37 Link Here
25
use strict;
25
use strict;
26
use warnings;
26
use warnings;
27
27
28
use C4::Auth;
28
use C4::Auth qw( checkauth get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use C4::Members;
31
use C4::Members qw( GetMember );
32
use C4::Accounts;
32
use C4::Accounts qw( manualinvoice );
33
use C4::Items;
33
use C4::Items qw( GetItem GetItemnumberFromBarcode );
34
use C4::Members::Attributes qw(GetBorrowerAttributes);
34
use C4::Members qw( GetMember );
35
use Koha::Patron::Images;
35
use Koha::Patron::Images;
36
36
37
use Koha::Patron::Categories;
37
use Koha::Patron::Categories;
(-)a/members/member-flags.pl (-5 / +5 lines)
Lines 8-23 use strict; Link Here
8
use warnings;
8
use warnings;
9
9
10
use CGI qw ( -utf8 );
10
use CGI qw ( -utf8 );
11
use C4::Output;
11
use C4::Output qw( output_html_with_http_headers );
12
use C4::Auth qw(:DEFAULT :EditPermissions);
12
use C4::Auth qw( get_template_and_user get_all_subpermissions get_user_subpermissions );
13
use C4::Context;
13
use C4::Context;
14
use C4::Members;
14
use C4::Members qw( GetMember patronflags );
15
use C4::Members::Attributes qw(GetBorrowerAttributes);
15
use C4::Members qw( GetMember patronflags );
16
#use C4::Acquisitions;
16
#use C4::Acquisitions;
17
17
18
use Koha::Patron::Categories;
18
use Koha::Patron::Categories;
19
19
20
use C4::Output;
20
use C4::Output qw( output_html_with_http_headers );
21
use Koha::Patron::Images;
21
use Koha::Patron::Images;
22
use Koha::Token;
22
use Koha::Token;
23
23
(-)a/members/member-password.pl (-5 / +5 lines)
Lines 7-20 Link Here
7
use strict;
7
use strict;
8
use warnings;
8
use warnings;
9
9
10
use C4::Auth;
10
use C4::Auth qw( get_template_and_user );
11
use Koha::AuthUtils;
11
use Koha::AuthUtils qw( hash_password );
12
use C4::Output;
12
use C4::Output qw( output_html_with_http_headers );
13
use C4::Context;
13
use C4::Context;
14
use C4::Members;
14
use C4::Members qw( GetMember );
15
use C4::Circulation;
15
use C4::Circulation;
16
use CGI qw ( -utf8 );
16
use CGI qw ( -utf8 );
17
use C4::Members::Attributes qw(GetBorrowerAttributes);
17
use C4::Members qw( GetMember );
18
use Koha::Patron::Images;
18
use Koha::Patron::Images;
19
use Koha::Token;
19
use Koha::Token;
20
20
(-)a/members/member.pl (-3 / +3 lines)
Lines 24-35 Link Here
24
# along with Koha; if not, see <http://www.gnu.org/licenses>.
24
# along with Koha; if not, see <http://www.gnu.org/licenses>.
25
25
26
use Modern::Perl;
26
use Modern::Perl;
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use CGI qw( -utf8 );
29
use CGI qw( -utf8 );
30
use C4::Members qw( GetMember );
30
use C4::Members qw( GetMember );
31
use Koha::DateUtils;
31
use Koha::DateUtils;
32
use Koha::List::Patron;
32
use Koha::List::Patron qw( GetPatronLists );
33
33
34
my $input = new CGI;
34
my $input = new CGI;
35
35
(-)a/members/memberentry.pl (-9 / +9 lines)
Lines 27-46 use CGI qw ( -utf8 ); Link Here
27
use List::MoreUtils qw/uniq/;
27
use List::MoreUtils qw/uniq/;
28
28
29
# internal modules
29
# internal modules
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user haspermission );
31
use C4::Context;
31
use C4::Context;
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Members;
33
use C4::Members qw( GetMember Generate_Userid checkcardnumber Check_Userid AddMember ModMember get_cardnumber_length );
34
use C4::Members::Attributes;
34
use C4::Members qw( GetMember Generate_Userid checkcardnumber Check_Userid AddMember ModMember get_cardnumber_length );
35
use C4::Members::AttributeTypes;
35
use C4::Members qw( GetMember Generate_Userid checkcardnumber Check_Userid AddMember ModMember get_cardnumber_length );
36
use C4::Koha;
36
use C4::Koha qw( GetAuthorisedValues );
37
use C4::Log;
37
use C4::Log;
38
use C4::Letters;
38
use C4::Letters qw( SendAlerts );
39
use C4::Form::MessagingPreferences;
39
use C4::Form::MessagingPreferences;
40
use Koha::AuthorisedValues;
40
use Koha::AuthorisedValues;
41
use Koha::Patron::Debarments;
41
use Koha::Patron::Debarments qw( GetDebarments DelDebarment AddDebarment );
42
use Koha::Cities;
42
use Koha::Cities;
43
use Koha::DateUtils;
43
use Koha::DateUtils qw( output_pref dt_from_string );
44
use Koha::Libraries;
44
use Koha::Libraries;
45
use Koha::Patron::Categories;
45
use Koha::Patron::Categories;
46
use Koha::Patron::HouseboundRole;
46
use Koha::Patron::HouseboundRole;
(-)a/members/members-home.pl (-3 / +3 lines)
Lines 20-32 use strict; Link Here
20
use warnings;
20
use warnings;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Members;
26
use C4::Members;
27
use Koha::Patron::Modifications;
27
use Koha::Patron::Modifications;
28
use Koha::Libraries;
28
use Koha::Libraries;
29
use Koha::List::Patron;
29
use Koha::List::Patron qw( GetPatronLists );
30
use Koha::Patron::Categories;
30
use Koha::Patron::Categories;
31
31
32
my $query = new CGI;
32
my $query = new CGI;
(-)a/members/members-update-do.pl (-1 / +1 lines)
Lines 20-26 use strict; Link Here
20
use warnings;
20
use warnings;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output;
25
use C4::Context;
25
use C4::Context;
26
use C4::Members;
26
use C4::Members;
(-)a/members/members-update.pl (-2 / +2 lines)
Lines 20-27 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Members;
26
use C4::Members;
27
use Koha::Patron::Attribute::Types;
27
use Koha::Patron::Attribute::Types;
(-)a/members/mod_debarment.pl (-3 / +3 lines)
Lines 21-29 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( checkauth );
25
use Koha::DateUtils;
25
use Koha::DateUtils qw( dt_from_string );
26
use Koha::Patron::Debarments;
26
use Koha::Patron::Debarments qw( DelDebarment AddDebarment );
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
29
29
(-)a/members/moremember.pl (-9 / +9 lines)
Lines 37-58 use strict; Link Here
37
#use warnings; FIXME - Bug 2505
37
#use warnings; FIXME - Bug 2505
38
use CGI qw ( -utf8 );
38
use CGI qw ( -utf8 );
39
use C4::Context;
39
use C4::Context;
40
use C4::Auth;
40
use C4::Auth qw( get_template_and_user );
41
use C4::Output;
41
use C4::Output qw( output_html_with_http_headers );
42
use C4::Members;
42
use C4::Members qw( GetMember GetMemberAccountRecords );
43
use C4::Members::Attributes;
43
use C4::Members qw( GetMember GetMemberAccountRecords );
44
use C4::Members::AttributeTypes;
44
use C4::Members qw( GetMember GetMemberAccountRecords );
45
use C4::Reserves;
45
use C4::Reserves;
46
use C4::Circulation;
46
use C4::Circulation;
47
use C4::Koha;
47
use C4::Koha;
48
use C4::Letters;
48
use C4::Letters qw( getalert findrelatedto );
49
use C4::Biblio;
49
use C4::Biblio;
50
use C4::Form::MessagingPreferences;
50
use C4::Form::MessagingPreferences;
51
use List::MoreUtils qw/uniq/;
51
use List::MoreUtils qw/uniq/;
52
use C4::Members::Attributes qw(GetBorrowerAttributes);
52
use C4::Members qw( GetMember GetMemberAccountRecords );
53
use Koha::AuthorisedValues;
53
use Koha::AuthorisedValues;
54
use Koha::CsvProfiles;
54
use Koha::CsvProfiles;
55
use Koha::Patron::Debarments qw(GetDebarments);
55
use Koha::Patron::Debarments qw( GetDebarments );
56
use Koha::Patron::Images;
56
use Koha::Patron::Images;
57
use Module::Load;
57
use Module::Load;
58
if ( C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preference('NorwegianPatronDBEnable') == 1 ) {
58
if ( C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preference('NorwegianPatronDBEnable') == 1 ) {
Lines 61-67 if ( C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preferen Link Here
61
#use Smart::Comments;
61
#use Smart::Comments;
62
#use Data::Dumper;
62
#use Data::Dumper;
63
use DateTime;
63
use DateTime;
64
use Koha::DateUtils;
64
use Koha::DateUtils qw( dt_from_string output_pref );
65
use Koha::Database;
65
use Koha::Database;
66
use Koha::Patrons;
66
use Koha::Patrons;
67
use Koha::Patron::Categories;
67
use Koha::Patron::Categories;
(-)a/members/nl-search.pl (-4 / +4 lines)
Lines 36-46 See http://www.lanekortet.no/ for more information (in Norwegian). Link Here
36
36
37
use Modern::Perl;
37
use Modern::Perl;
38
use CGI;
38
use CGI;
39
use C4::Auth;
39
use C4::Auth qw( get_template_and_user );
40
use C4::Context;
40
use C4::Context;
41
use C4::Output;
41
use C4::Output qw( output_html_with_http_headers );
42
use C4::Members;
42
use C4::Members qw( AddMember );
43
use C4::Members::Attributes qw( SetBorrowerAttributes );
43
use C4::Members qw( AddMember );
44
use C4::Utils::DataTables::Members;
44
use C4::Utils::DataTables::Members;
45
use Koha::NorwegianPatronDB qw( NLCheckSysprefs NLSearch NLDecodePin NLGetFirstname NLGetSurname NLSync );
45
use Koha::NorwegianPatronDB qw( NLCheckSysprefs NLSearch NLDecodePin NLGetFirstname NLGetSurname NLSync );
46
use Koha::Database;
46
use Koha::Database;
(-)a/members/notices.pl (-5 / +5 lines)
Lines 21-32 Link Here
21
21
22
use strict;
22
use strict;
23
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Members;
27
use C4::Members qw( GetMember );
28
use C4::Letters;
28
use C4::Letters qw( GetMessage ResendMessage GetQueuedMessages );
29
use C4::Members::Attributes qw(GetBorrowerAttributes);
29
use C4::Members qw( GetMember );
30
use Koha::Patron::Images;
30
use Koha::Patron::Images;
31
31
32
my $input=new CGI;
32
my $input=new CGI;
(-)a/members/pay.pl (-5 / +5 lines)
Lines 31-45 use warnings; Link Here
31
31
32
use URI::Escape;
32
use URI::Escape;
33
use C4::Context;
33
use C4::Context;
34
use C4::Auth;
34
use C4::Auth qw( get_template_and_user );
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
37
use C4::Members;
37
use C4::Members qw( GetMember GetMemberAccountRecords GetBorNotifyAcctRecord );
38
use C4::Accounts;
38
use C4::Accounts;
39
use C4::Stats;
39
use C4::Stats;
40
use C4::Koha;
40
use C4::Koha;
41
use C4::Overdues;
41
use C4::Overdues qw( NumberNotifyId AmountNotify );
42
use C4::Members::Attributes qw(GetBorrowerAttributes);
42
use C4::Members qw( GetMember GetMemberAccountRecords GetBorNotifyAcctRecord );
43
use Koha::Patron::Images;
43
use Koha::Patron::Images;
44
44
45
use Koha::Patron::Categories;
45
use Koha::Patron::Categories;
(-)a/members/paycollect.pl (-4 / +4 lines)
Lines 21-31 use strict; Link Here
21
use warnings;
21
use warnings;
22
use URI::Escape;
22
use URI::Escape;
23
use C4::Context;
23
use C4::Context;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Members;
27
use C4::Members qw( GetMember GetMemberAccountRecords );
28
use C4::Members::Attributes qw(GetBorrowerAttributes);
28
use C4::Members qw( GetMember GetMemberAccountRecords );
29
use C4::Accounts;
29
use C4::Accounts;
30
use C4::Koha;
30
use C4::Koha;
31
use Koha::Patron::Images;
31
use Koha::Patron::Images;
(-)a/members/print_overdues.pl (-4 / +4 lines)
Lines 22-31 use Modern::Perl; Link Here
22
use CGI;
22
use CGI;
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Members qw(GetOverduesForPatron);
27
use C4::Members qw( GetOverduesForPatron );
28
use C4::Overdues qw(parse_overdues_letter);
28
use C4::Overdues qw( parse_overdues_letter );
29
29
30
my $input = new CGI;
30
my $input = new CGI;
31
31
(-)a/members/printfeercpt.pl (-4 / +4 lines)
Lines 25-36 Link Here
25
use strict;
25
use strict;
26
use warnings;
26
use warnings;
27
27
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use C4::Members;
31
use C4::Members qw( GetMember GetMemberAccountRecords );
32
use C4::Accounts;
32
use C4::Accounts;
33
use Koha::DateUtils;
33
use Koha::DateUtils qw( dt_from_string );
34
use Koha::Patron::Images;
34
use Koha::Patron::Images;
35
use Koha::Patron::Categories;
35
use Koha::Patron::Categories;
36
36
(-)a/members/printinvoice.pl (-4 / +4 lines)
Lines 23-33 Link Here
23
use strict;
23
use strict;
24
use warnings;
24
use warnings;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use Koha::DateUtils;
28
use Koha::DateUtils qw( dt_from_string output_pref );
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Members;
30
use C4::Members qw( GetMember GetMemberAccountRecords );
31
use C4::Accounts;
31
use C4::Accounts;
32
use Koha::Patron::Images;
32
use Koha::Patron::Images;
33
33
(-)a/members/printslip.pl (-3 / +3 lines)
Lines 36-44 use strict; Link Here
36
#use warnings; FIXME - Bug 2505
36
#use warnings; FIXME - Bug 2505
37
use CGI qw ( -utf8 );
37
use CGI qw ( -utf8 );
38
use C4::Context;
38
use C4::Context;
39
use C4::Auth qw/:DEFAULT get_session/;
39
use C4::Auth qw( get_session get_template_and_user );
40
use C4::Output;
40
use C4::Output qw( output_html_with_http_headers );
41
use C4::Members;
41
use C4::Members qw( IssueSlip );
42
use C4::Koha;
42
use C4::Koha;
43
43
44
#use Smart::Comments;
44
#use Smart::Comments;
(-)a/members/purchase-suggestions.pl (-4 / +4 lines)
Lines 20-30 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Members;
26
use C4::Members qw( GetMember );
27
use C4::Members::Attributes qw(GetBorrowerAttributes);
27
use C4::Members qw( GetMember );
28
use C4::Suggestions;
28
use C4::Suggestions;
29
use Koha::Patron::Images;
29
use Koha::Patron::Images;
30
30
(-)a/members/readingrec.pl (-5 / +5 lines)
Lines 25-36 use warnings; Link Here
25
25
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
27
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Members;
30
use C4::Members qw( GetMember GetAllIssues );
31
use List::MoreUtils qw/any uniq/;
31
use List::MoreUtils qw/any uniq/;
32
use Koha::DateUtils;
32
use Koha::DateUtils qw( dt_from_string output_pref );
33
use C4::Members::Attributes qw(GetBorrowerAttributes);
33
use C4::Members qw( GetMember GetAllIssues );
34
use Koha::Patron::Images;
34
use Koha::Patron::Images;
35
35
36
use Koha::Patron::Categories;
36
use Koha::Patron::Categories;
(-)a/members/routing-lists.pl (-5 / +5 lines)
Lines 20-31 Link Here
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth qw/:DEFAULT/;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Members;
25
use C4::Members qw( GetMember );
26
use C4::Members::Attributes qw(GetBorrowerAttributes);
26
use C4::Members qw( GetMember );
27
use C4::Context;
27
use C4::Context;
28
use C4::Serials;
28
use C4::Serials qw( GetSubscription GetSubscriptionsFromBorrower );
29
use Koha::Patron::Images;
29
use Koha::Patron::Images;
30
use CGI::Session;
30
use CGI::Session;
31
31
(-)a/members/setstatus.pl (-1 / +1 lines)
Lines 29-35 use warnings; Link Here
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Context;
30
use C4::Context;
31
use C4::Members;
31
use C4::Members;
32
use C4::Auth;
32
use C4::Auth qw( checkauth );
33
use Koha::Patrons;
33
use Koha::Patrons;
34
34
35
35
(-)a/members/statistics.pl (-5 / +5 lines)
Lines 25-36 Link Here
25
use Modern::Perl;
25
use Modern::Perl;
26
26
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Context;
29
use C4::Context;
30
use C4::Members;
30
use C4::Members qw( GetMember );
31
use C4::Members::Statistics;
31
use C4::Members qw( GetMember );
32
use C4::Members::Attributes qw(GetBorrowerAttributes);
32
use C4::Members qw( GetMember );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use Koha::Patron::Images;
34
use Koha::Patron::Images;
35
35
36
my $input = new CGI;
36
my $input = new CGI;
(-)a/members/summary-print.pl (-3 / +3 lines)
Lines 19-27 use Modern::Perl; Link Here
19
19
20
use CGI;
20
use CGI;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Members;
24
use C4::Members qw( GetMember GetMemberAccountRecords GetPendingIssues );
25
use C4::Koha qw( getitemtypeinfo );
25
use C4::Koha qw( getitemtypeinfo );
26
use C4::Circulation qw( GetIssuingCharges );
26
use C4::Circulation qw( GetIssuingCharges );
27
use C4::Reserves;
27
use C4::Reserves;
(-)a/members/update-child.pl (-3 / +3 lines)
Lines 30-38 use strict; Link Here
30
#use warnings; FIXME - Bug 2505
30
#use warnings; FIXME - Bug 2505
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Context;
32
use C4::Context;
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Members;
35
use C4::Members qw( ModMember GetMember );
36
use Koha::Patron::Categories;
36
use Koha::Patron::Categories;
37
37
38
# use Smart::Comments;
38
# use Smart::Comments;
(-)a/misc/batchDeleteUnusedSubfields.pl (-1 / +1 lines)
Lines 13-19 BEGIN { Link Here
13
# Koha modules used
13
# Koha modules used
14
use MARC::Record;
14
use MARC::Record;
15
use C4::Context;
15
use C4::Context;
16
use C4::Biblio;
16
use C4::Biblio qw( GetMarcStructure );
17
use Time::HiRes qw(gettimeofday);
17
use Time::HiRes qw(gettimeofday);
18
18
19
use Getopt::Long;
19
use Getopt::Long;
(-)a/misc/batchImportMARCWithBiblionumbers.pl (-1 / +1 lines)
Lines 13-19 BEGIN { Link Here
13
# Koha modules used
13
# Koha modules used
14
14
15
use C4::Context;
15
use C4::Context;
16
use C4::Biblio;
16
use C4::Biblio qw( GetMarcFromKohaField );
17
use MARC::Record;
17
use MARC::Record;
18
use MARC::File::USMARC;
18
use MARC::File::USMARC;
19
use MARC::File::XML;
19
use MARC::File::XML;
(-)a/misc/batchRebuildBiblioTables.pl (-1 / +1 lines)
Lines 15-21 BEGIN { Link Here
15
# Koha modules used
15
# Koha modules used
16
use MARC::Record;
16
use MARC::Record;
17
use C4::Context;
17
use C4::Context;
18
use C4::Biblio;
18
use C4::Biblio qw( GetMarcFromKohaField GetMarcBiblio GetFrameworkCode TransformMarcToKoha _koha_modify_biblio _koha_modify_biblioitem_nonmarc );
19
use Time::HiRes qw(gettimeofday);
19
use Time::HiRes qw(gettimeofday);
20
20
21
use Getopt::Long;
21
use Getopt::Long;
(-)a/misc/batchRebuildItemsTables.pl (-2 / +2 lines)
Lines 9-16 use Pod::Usage; Link Here
9
use Time::HiRes qw(gettimeofday);
9
use Time::HiRes qw(gettimeofday);
10
10
11
use C4::Context;
11
use C4::Context;
12
use C4::Biblio;
12
use C4::Biblio qw( GetMarcFromKohaField GetMarcBiblio );
13
use C4::Items;
13
use C4::Items qw( ModItemFromMarc ModItem );
14
14
15
=head1 NAME
15
=head1 NAME
16
16
(-)a/misc/batchRepairMissingBiblionumbers.pl (-1 / +1 lines)
Lines 14-20 BEGIN { Link Here
14
# Koha modules used
14
# Koha modules used
15
15
16
use C4::Context;
16
use C4::Context;
17
use C4::Biblio;
17
use C4::Biblio qw( GetMarcBiblio _koha_marc_update_bib_ids ModBiblio ModBiblioMarc );
18
18
19
19
20
my $dbh = C4::Context->dbh;
20
my $dbh = C4::Context->dbh;
(-)a/misc/batchdeletebiblios.pl (-1 / +1 lines)
Lines 5-11 use Getopt::Long; Link Here
5
use Pod::Usage;
5
use Pod::Usage;
6
use IO::File;
6
use IO::File;
7
7
8
use C4::Biblio;
8
use C4::Biblio qw( DelBiblio );
9
9
10
my ($help, $files);
10
my ($help, $files);
11
GetOptions(
11
GetOptions(
(-)a/misc/commit_file.pl (-1 / +1 lines)
Lines 10-16 BEGIN { Link Here
10
}
10
}
11
11
12
use C4::Context;
12
use C4::Context;
13
use C4::ImportBatch;
13
use C4::ImportBatch qw( GetImportBatch GetAllImportBatches BatchCommitRecords BatchRevertRecords );
14
use Getopt::Long;
14
use Getopt::Long;
15
15
16
$| = 1;
16
$| = 1;
(-)a/misc/cronjobs/advance_notices.pl (-6 / +6 lines)
Lines 49-62 BEGIN { Link Here
49
    use FindBin;
49
    use FindBin;
50
    eval { require "$FindBin::Bin/../kohalib.pl" };
50
    eval { require "$FindBin::Bin/../kohalib.pl" };
51
}
51
}
52
use C4::Biblio;
52
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio );
53
use C4::Context;
53
use C4::Context;
54
use C4::Letters;
54
use C4::Letters qw( EnqueueLetter GetPreparedLetter );
55
use C4::Members;
55
use C4::Members qw( GetMember );
56
use C4::Members::Messaging;
56
use C4::Members qw( GetMember );
57
use C4::Overdues;
57
use C4::Overdues;
58
use Koha::DateUtils;
58
use Koha::DateUtils qw( dt_from_string output_pref );
59
use C4::Log;
59
use C4::Log qw( logaction cronlogaction );
60
use Koha::Libraries;
60
use Koha::Libraries;
61
use Koha::Patrons;
61
use Koha::Patrons;
62
62
(-)a/misc/cronjobs/automatic_item_modification_by_age.pl (-1 / +1 lines)
Lines 7-13 use Pod::Usage; Link Here
7
use JSON;
7
use JSON;
8
8
9
use C4::Context;
9
use C4::Context;
10
use C4::Items;
10
use C4::Items qw( ToggleNewStatus );
11
11
12
# Getting options
12
# Getting options
13
my ( $verbose, $help, $confirm );
13
my ( $verbose, $help, $confirm );
(-)a/misc/cronjobs/automatic_renewals.pl (-3 / +3 lines)
Lines 52-61 use Modern::Perl; Link Here
52
use Pod::Usage;
52
use Pod::Usage;
53
use Getopt::Long;
53
use Getopt::Long;
54
54
55
use C4::Circulation;
55
use C4::Circulation qw( CanBookBeRenewed AddRenewal );
56
use C4::Context;
56
use C4::Context;
57
use C4::Log;
57
use C4::Log qw( logaction cronlogaction );
58
use C4::Letters;
58
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
59
use Koha::Checkouts;
59
use Koha::Checkouts;
60
use Koha::Libraries;
60
use Koha::Libraries;
61
use Koha::Patrons;
61
use Koha::Patrons;
(-)a/misc/cronjobs/batch_anonymise.pl (-1 / +1 lines)
Lines 36-42 use Date::Calc qw( Link Here
36
  Add_Delta_Days
36
  Add_Delta_Days
37
);
37
);
38
use Getopt::Long;
38
use Getopt::Long;
39
use C4::Log;
39
use C4::Log qw( logaction cronlogaction );
40
40
41
sub usage {
41
sub usage {
42
    print STDERR <<USAGE;
42
    print STDERR <<USAGE;
(-)a/misc/cronjobs/build_browser_and_cloud.pl (-2 / +2 lines)
Lines 12-24 BEGIN { Link Here
12
12
13
use C4::Koha;
13
use C4::Koha;
14
use C4::Context;
14
use C4::Context;
15
use C4::Biblio;
15
use C4::Biblio qw( GetMarcBiblio );
16
use Date::Calc;
16
use Date::Calc;
17
use Time::HiRes qw(gettimeofday);
17
use Time::HiRes qw(gettimeofday);
18
use ZOOM;
18
use ZOOM;
19
use MARC::File::USMARC;
19
use MARC::File::USMARC;
20
use Getopt::Long;
20
use Getopt::Long;
21
use C4::Log;
21
use C4::Log qw( logaction cronlogaction );
22
22
23
my ( $input_marc_file, $number) = ('',0);
23
my ( $input_marc_file, $number) = ('',0);
24
my ($version, $confirm,$test_parameter,$field,$batch,$max_digits,$cloud_tag);
24
my ($version, $confirm,$test_parameter,$field,$batch,$max_digits,$cloud_tag);
(-)a/misc/cronjobs/cart_to_shelf.pl (-2 / +2 lines)
Lines 28-35 cart_to_shelf.pl cron script to set items with location of CART to original she Link Here
28
use strict;
28
use strict;
29
use warnings;
29
use warnings;
30
30
31
use C4::Items qw/ CartToShelf /;
31
use C4::Items qw( CartToShelf );
32
use C4::Log;
32
use C4::Log qw( logaction cronlogaction );
33
33
34
BEGIN {
34
BEGIN {
35
35
(-)a/misc/cronjobs/check-url-quick.pl (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use Pod::Usage;
21
use Pod::Usage;
22
use Getopt::Long;
22
use Getopt::Long;
23
use C4::Context;
23
use C4::Context;
24
use C4::Biblio;
24
use C4::Biblio qw( GetMarcBiblio );
25
use AnyEvent;
25
use AnyEvent;
26
use AnyEvent::HTTP;
26
use AnyEvent::HTTP;
27
27
(-)a/misc/cronjobs/check-url.pl (-1 / +1 lines)
Lines 78-84 use strict; Link Here
78
use warnings;
78
use warnings;
79
use LWP::UserAgent;
79
use LWP::UserAgent;
80
use HTTP::Request;
80
use HTTP::Request;
81
use C4::Biblio;
81
use C4::Biblio qw( GetMarcBiblio );
82
82
83
83
84
84
(-)a/misc/cronjobs/cleanup_database.pl (-2 / +2 lines)
Lines 38-45 use C4::Context; Link Here
38
use C4::Search;
38
use C4::Search;
39
use C4::Search::History;
39
use C4::Search::History;
40
use Getopt::Long;
40
use Getopt::Long;
41
use C4::Log;
41
use C4::Log qw( logaction cronlogaction );
42
use C4::Accounts;
42
use C4::Accounts qw( purge_zero_balance_fees );
43
use Koha::UploadedFiles;
43
use Koha::UploadedFiles;
44
44
45
sub usage {
45
sub usage {
(-)a/misc/cronjobs/cloud-kw.pl (-1 / +1 lines)
Lines 26-32 use YAML::Syck; Link Here
26
use Pod::Usage;
26
use Pod::Usage;
27
use Getopt::Long;
27
use Getopt::Long;
28
use C4::Context;
28
use C4::Context;
29
use C4::Log;
29
use C4::Log qw( logaction cronlogaction );
30
30
31
my $verbose     = 0;
31
my $verbose     = 0;
32
my $help        = 0;
32
my $help        = 0;
(-)a/misc/cronjobs/delete_items.pl (-1 / +1 lines)
Lines 2-8 Link Here
2
2
3
use Getopt::Long;
3
use Getopt::Long;
4
use C4::Context;
4
use C4::Context;
5
use C4::Items;
5
use C4::Items qw( ItemSafeToDelete DelItem DelItemCheck );
6
use C4::Circulation;
6
use C4::Circulation;
7
use Modern::Perl;
7
use Modern::Perl;
8
use Pod::Usage;
8
use Pod::Usage;
(-)a/misc/cronjobs/delete_patrons.pl (-3 / +3 lines)
Lines 5-14 use Modern::Perl; Link Here
5
use Pod::Usage;
5
use Pod::Usage;
6
use Getopt::Long;
6
use Getopt::Long;
7
7
8
use C4::Members;
8
use C4::Members qw( GetBorrowersToExpunge patronflags );
9
use Koha::DateUtils;
9
use Koha::DateUtils qw( dt_from_string );
10
use Koha::Patrons;
10
use Koha::Patrons;
11
use C4::Log;
11
use C4::Log qw( logaction cronlogaction );
12
12
13
my ( $help, $verbose, $not_borrowed_since, $expired_before, $last_seen,
13
my ( $help, $verbose, $not_borrowed_since, $expired_before, $last_seen,
14
    $category_code, $branchcode, $confirm );
14
    $category_code, $branchcode, $confirm );
(-)a/misc/cronjobs/delete_records_via_leader.pl (-2 / +2 lines)
Lines 33-40 BEGIN { Link Here
33
33
34
use Getopt::Long;
34
use Getopt::Long;
35
35
36
use C4::Biblio;
36
use C4::Biblio qw( DelBiblio );
37
use C4::Items;
37
use C4::Items qw( DelItem DelItemCheck );
38
use Koha::Database;
38
use Koha::Database;
39
use Koha::Biblios;
39
use Koha::Biblios;
40
use Koha::Biblio::Metadatas;
40
use Koha::Biblio::Metadatas;
(-)a/misc/cronjobs/edi_cron.pl (-1 / +1 lines)
Lines 32-38 use utf8; Link Here
32
use C4::Context;
32
use C4::Context;
33
use Log::Log4perl qw(:easy);
33
use Log::Log4perl qw(:easy);
34
use Koha::Database;
34
use Koha::Database;
35
use Koha::EDI qw( process_quote process_invoice process_ordrsp);
35
use Koha::EDI qw( process_quote process_invoice process_ordrsp );
36
use Koha::Edifact::Transport;
36
use Koha::Edifact::Transport;
37
use Fcntl qw( :DEFAULT :flock :seek );
37
use Fcntl qw( :DEFAULT :flock :seek );
38
38
(-)a/misc/cronjobs/fines.pl (-3 / +3 lines)
Lines 31-44 use warnings; Link Here
31
use 5.010;
31
use 5.010;
32
32
33
use C4::Context;
33
use C4::Context;
34
use C4::Overdues;
34
use C4::Overdues qw( Getoverdues BorType CalcFine UpdateFine );
35
use Getopt::Long;
35
use Getopt::Long;
36
use Carp;
36
use Carp;
37
use File::Spec;
37
use File::Spec;
38
38
39
use Koha::Calendar;
39
use Koha::Calendar;
40
use Koha::DateUtils;
40
use Koha::DateUtils qw( dt_from_string output_pref );
41
use C4::Log;
41
use C4::Log qw( logaction cronlogaction );
42
42
43
my $help;
43
my $help;
44
my $verbose;
44
my $verbose;
(-)a/misc/cronjobs/gather_print_notices.pl (-3 / +3 lines)
Lines 12-26 BEGIN { Link Here
12
use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
12
use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
13
use C4::Context;
13
use C4::Context;
14
use C4::Debug;
14
use C4::Debug;
15
use C4::Letters;
15
use C4::Letters qw( GetPrintMessages _set_message_status );
16
use C4::Templates;
16
use C4::Templates;
17
use File::Spec;
17
use File::Spec;
18
use Pod::Usage;
18
use Pod::Usage;
19
use Getopt::Long;
19
use Getopt::Long;
20
use C4::Log;
20
use C4::Log qw( logaction cronlogaction );
21
21
22
use File::Basename qw( dirname );
22
use File::Basename qw( dirname );
23
use Koha::DateUtils;
23
use Koha::DateUtils qw( dt_from_string output_pref );
24
use MIME::Lite;
24
use MIME::Lite;
25
25
26
my (
26
my (
(-)a/misc/cronjobs/import_webservice_batch.pl (-1 / +1 lines)
Lines 31-37 BEGIN { Link Here
31
31
32
use Getopt::Long;
32
use Getopt::Long;
33
use Pod::Usage;
33
use Pod::Usage;
34
use C4::ImportBatch;
34
use C4::ImportBatch qw( GetStagedWebserviceBatches BatchCommitRecords );
35
35
36
my ($help, $framework);
36
my ($help, $framework);
37
37
(-)a/misc/cronjobs/j2a.pl (-1 / +1 lines)
Lines 30-36 use C4::Context; Link Here
30
use C4::Members;
30
use C4::Members;
31
use Getopt::Long;
31
use Getopt::Long;
32
use Pod::Usage;
32
use Pod::Usage;
33
use C4::Log;
33
use C4::Log qw( logaction cronlogaction );
34
34
35
=head1 NAME
35
=head1 NAME
36
36
(-)a/misc/cronjobs/longoverdue.pl (-3 / +3 lines)
Lines 34-43 BEGIN { Link Here
34
    eval { require "$FindBin::Bin/../kohalib.pl" };
34
    eval { require "$FindBin::Bin/../kohalib.pl" };
35
}
35
}
36
use C4::Context;
36
use C4::Context;
37
use C4::Items;
37
use C4::Items qw( ModItem );
38
use C4::Circulation qw/LostItem/;
38
use C4::Circulation qw( LostItem );
39
use Getopt::Long;
39
use Getopt::Long;
40
use C4::Log;
40
use C4::Log qw( logaction cronlogaction );
41
use Pod::Usage;
41
use Pod::Usage;
42
use Koha::Patrons;
42
use Koha::Patrons;
43
43
(-)a/misc/cronjobs/membership_expiry.pl (-2 / +2 lines)
Lines 127-134 BEGIN { Link Here
127
}
127
}
128
128
129
use C4::Context;
129
use C4::Context;
130
use C4::Letters;
130
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
131
use C4::Log;
131
use C4::Log qw( logaction cronlogaction );
132
132
133
use Koha::Patrons;
133
use Koha::Patrons;
134
134
(-)a/misc/cronjobs/merge_authorities.pl (-1 / +1 lines)
Lines 5-11 use Getopt::Long; Link Here
5
use Pod::Usage;
5
use Pod::Usage;
6
use Time::HiRes qw(gettimeofday);
6
use Time::HiRes qw(gettimeofday);
7
7
8
use C4::AuthoritiesMarc;
8
use C4::AuthoritiesMarc qw( GetAuthority merge );
9
use Koha::Authority::MergeRequests;
9
use Koha::Authority::MergeRequests;
10
10
11
use constant RESET_HOURS => 24;
11
use constant RESET_HOURS => 24;
(-)a/misc/cronjobs/nl-sync-to-koha.pl (-2 / +2 lines)
Lines 12-19 nl-sync-to-koha.pl - Sync patrons from the Norwegian national patron database (N Link Here
12
12
13
=cut
13
=cut
14
14
15
use C4::Members;
15
use C4::Members qw( ModMember );
16
use C4::Members::Attributes qw( UpdateBorrowerAttribute );
16
use C4::Members qw( ModMember );
17
use Koha::NorwegianPatronDB qw( NLCheckSysprefs NLGetChanged );
17
use Koha::NorwegianPatronDB qw( NLCheckSysprefs NLGetChanged );
18
use Koha::Database;
18
use Koha::Database;
19
use Getopt::Long;
19
use Getopt::Long;
(-)a/misc/cronjobs/notice_unprocessed_suggestions.pl (-1 / +1 lines)
Lines 6-12 use Pod::Usage; Link Here
6
use Getopt::Long;
6
use Getopt::Long;
7
7
8
use C4::Budgets qw( GetBudget );
8
use C4::Budgets qw( GetBudget );
9
use C4::Members qw( GetMember );
9
use C4::Members qw( GetMember GetNoticeEmailAddress );
10
use C4::Suggestions qw( GetUnprocessedSuggestions );
10
use C4::Suggestions qw( GetUnprocessedSuggestions );
11
use Koha::Libraries;
11
use Koha::Libraries;
12
12
(-)a/misc/cronjobs/overdue_notices.pl (-5 / +5 lines)
Lines 35-45 use DateTime; Link Here
35
use DateTime::Duration;
35
use DateTime::Duration;
36
36
37
use C4::Context;
37
use C4::Context;
38
use C4::Letters;
38
use C4::Letters qw( getletter EnqueueLetter );
39
use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes parse_overdues_letter);
39
use C4::Overdues qw( GetBranchcodesWithOverdueRules GetOverdueMessageTransportTypes parse_overdues_letter );
40
use C4::Log;
40
use C4::Log qw( logaction cronlogaction );
41
use Koha::Patron::Debarments qw(AddUniqueDebarment);
41
use Koha::Patron::Debarments qw( AddUniqueDebarment );
42
use Koha::DateUtils;
42
use Koha::DateUtils qw( dt_from_string output_pref );
43
use Koha::Calendar;
43
use Koha::Calendar;
44
use Koha::Libraries;
44
use Koha::Libraries;
45
use Koha::Acquisition::Currencies;
45
use Koha::Acquisition::Currencies;
(-)a/misc/cronjobs/process_message_queue.pl (-2 / +2 lines)
Lines 25-32 BEGIN { Link Here
25
    use FindBin;
25
    use FindBin;
26
    eval { require "$FindBin::Bin/../kohalib.pl" };
26
    eval { require "$FindBin::Bin/../kohalib.pl" };
27
}
27
}
28
use C4::Letters;
28
use C4::Letters qw( SendQueuedMessages );
29
use C4::Log;
29
use C4::Log qw( logaction cronlogaction );
30
use Getopt::Long;
30
use Getopt::Long;
31
31
32
my $username = undef;
32
my $username = undef;
(-)a/misc/cronjobs/purge_suggestions.pl (-1 / +1 lines)
Lines 32-38 BEGIN { Link Here
32
use Getopt::Long;
32
use Getopt::Long;
33
use Pod::Usage;
33
use Pod::Usage;
34
use C4::Suggestions;
34
use C4::Suggestions;
35
use C4::Log;
35
use C4::Log qw( logaction cronlogaction );
36
36
37
my ($help, $days);
37
my ($help, $days);
38
38
(-)a/misc/cronjobs/runreport.pl (-3 / +3 lines)
Lines 20-30 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Reports::Guided; # 0.12
23
use C4::Reports::Guided qw( store_results get_saved_report execute_query );
24
use C4::Context;
24
use C4::Context;
25
use C4::Log;
25
use C4::Log qw( logaction cronlogaction );
26
use Koha::Email;
26
use Koha::Email;
27
use Koha::DateUtils;
27
use Koha::DateUtils qw( dt_from_string );
28
28
29
use Getopt::Long qw(:config auto_help auto_version);
29
use Getopt::Long qw(:config auto_help auto_version);
30
use Pod::Usage;
30
use Pod::Usage;
(-)a/misc/cronjobs/serialsUpdate.pl (-3 / +3 lines)
Lines 30-38 BEGIN { Link Here
30
30
31
use C4::Context;
31
use C4::Context;
32
use C4::Debug;
32
use C4::Debug;
33
use C4::Serials;
33
use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus );
34
use C4::Log;
34
use C4::Log qw( logaction cronlogaction );
35
use Koha::DateUtils;
35
use Koha::DateUtils qw( dt_from_string output_pref );
36
36
37
use Date::Calc qw/Date_to_Days check_date/;
37
use Date::Calc qw/Date_to_Days check_date/;
38
use Getopt::Long;
38
use Getopt::Long;
(-)a/misc/cronjobs/share_usage_with_koha_community.pl (-1 / +1 lines)
Lines 7-13 use Getopt::Long; Link Here
7
7
8
use C4::Context;
8
use C4::Context;
9
use C4::UsageStats;
9
use C4::UsageStats;
10
use C4::Log;
10
use C4::Log qw( logaction cronlogaction );
11
use POSIX qw(strftime);
11
use POSIX qw(strftime);
12
12
13
my ( $help, $verbose, $force, $quiet );
13
my ( $help, $verbose, $force, $quiet );
(-)a/misc/cronjobs/staticfines.pl (-3 / +3 lines)
Lines 39-52 use Date::Calc qw/Date_to_Days/; Link Here
39
39
40
use C4::Context;
40
use C4::Context;
41
use C4::Circulation;
41
use C4::Circulation;
42
use C4::Overdues;
42
use C4::Overdues qw( checkoverdues Getoverdues BorType CalcFine GetFine );
43
use C4::Calendar qw();    # don't need any exports from Calendar
43
use C4::Calendar qw();    # don't need any exports from Calendar
44
use C4::Biblio;
44
use C4::Biblio;
45
use C4::Debug;            # supplying $debug and $cgi_debug
45
use C4::Debug;            # supplying $debug and $cgi_debug
46
use C4::Log;
46
use C4::Log qw( logaction cronlogaction );
47
use Getopt::Long;
47
use Getopt::Long;
48
use List::MoreUtils qw/none/;
48
use List::MoreUtils qw/none/;
49
use Koha::DateUtils;
49
use Koha::DateUtils qw( dt_from_string output_pref );
50
50
51
my $help    = 0;
51
my $help    = 0;
52
my $verbose = 0;
52
my $verbose = 0;
(-)a/misc/cronjobs/update_totalissues.pl (-2 / +2 lines)
Lines 31-38 BEGIN { Link Here
31
use Getopt::Long;
31
use Getopt::Long;
32
use Pod::Usage;
32
use Pod::Usage;
33
use C4::Context;
33
use C4::Context;
34
use C4::Biblio;
34
use C4::Biblio qw( UpdateTotalIssues );
35
use C4::Log;
35
use C4::Log qw( logaction cronlogaction );
36
use DateTime;
36
use DateTime;
37
use DateTime::Format::MySQL;
37
use DateTime::Format::MySQL;
38
use Time::HiRes qw/time/;
38
use Time::HiRes qw/time/;
(-)a/misc/devel/create_superlibrarian.pl (-1 / +1 lines)
Lines 23-29 use Pod::Usage; Link Here
23
23
24
use C4::Installer;
24
use C4::Installer;
25
use C4::Context;
25
use C4::Context;
26
use C4::Members;
26
use C4::Members qw( AddMember );
27
27
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
use Koha::Libraries;
29
use Koha::Libraries;
(-)a/misc/export_borrowers.pl (-1 / +1 lines)
Lines 24-30 use Text::CSV; Link Here
24
use Getopt::Long qw(:config no_ignore_case);
24
use Getopt::Long qw(:config no_ignore_case);
25
25
26
use C4::Context;
26
use C4::Context;
27
use C4::Members;
27
use C4::Members qw( GetMember );
28
28
29
binmode STDOUT, ":encoding(UTF-8)";
29
binmode STDOUT, ":encoding(UTF-8)";
30
30
(-)a/misc/link_bibs_to_authorities.pl (-1 / +1 lines)
Lines 12-18 BEGIN { Link Here
12
}
12
}
13
13
14
use C4::Context;
14
use C4::Context;
15
use C4::Biblio;
15
use C4::Biblio qw( GetMarcBiblio LinkBibHeadingsToAuthorities GetFrameworkCode ModBiblio );
16
use Getopt::Long;
16
use Getopt::Long;
17
use Pod::Usage;
17
use Pod::Usage;
18
use Data::Dumper;
18
use Data::Dumper;
(-)a/misc/load_testing/benchmark_staff.pl (-1 / +1 lines)
Lines 18-24 use Data::Dumper; Link Here
18
use HTTP::Cookies;
18
use HTTP::Cookies;
19
use C4::Context;
19
use C4::Context;
20
use C4::Debug;
20
use C4::Debug;
21
use C4::Members qw ( GetMember );
21
use C4::Members qw( GetMember );
22
use URI::Escape;
22
use URI::Escape;
23
23
24
my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print);
24
my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print);
(-)a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl (-1 / +1 lines)
Lines 12-18 BEGIN { Link Here
12
    eval { require "$FindBin::Bin/../kohalib.pl" };
12
    eval { require "$FindBin::Bin/../kohalib.pl" };
13
}
13
}
14
14
15
use C4::Biblio;
15
use C4::Biblio qw( GetMarcBiblio ModBiblio );
16
use Getopt::Long;
16
use Getopt::Long;
17
17
18
sub _read_marc_code {
18
sub _read_marc_code {
(-)a/misc/maintenance/fix_accountlines_date.pl (-1 / +1 lines)
Lines 29-35 BEGIN { Link Here
29
use C4::Context;
29
use C4::Context;
30
use Getopt::Long;
30
use Getopt::Long;
31
use Pod::Usage;
31
use Pod::Usage;
32
use Koha::DateUtils;
32
use Koha::DateUtils qw( dt_from_string output_pref );
33
33
34
=head1 NAME
34
=head1 NAME
35
35
(-)a/misc/maintenance/process_record_through_filter.pl (-1 / +1 lines)
Lines 8-14 use strict; Link Here
8
use warnings;
8
use warnings;
9
use Koha::RecordProcessor;
9
use Koha::RecordProcessor;
10
use Data::Dumper;
10
use Data::Dumper;
11
use C4::Biblio;
11
use C4::Biblio qw( GetMarcBiblio );
12
12
13
my $record = GetMarcBiblio($ARGV[0]);
13
my $record = GetMarcBiblio($ARGV[0]);
14
14
(-)a/misc/maintenance/remove_items_from_biblioitems.pl (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
23
$|=1;
23
$|=1;
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio ModBiblio GetFrameworkCode );
27
use Getopt::Long;
27
use Getopt::Long;
28
28
29
my ($wherestring, $run, $silent, $want_help);
29
my ($wherestring, $run, $silent, $want_help);
(-)a/misc/maintenance/sanitize_records.pl (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use C4::Charset qw( SanitizeRecord );
21
use C4::Charset qw( SanitizeRecord );
22
use C4::Context;
22
use C4::Context;
23
use DBI;
23
use DBI;
24
use C4::Biblio;
24
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode ModBiblio );
25
use Getopt::Long;
25
use Getopt::Long;
26
use Pod::Usage;
26
use Pod::Usage;
27
27
(-)a/misc/maintenance/touch_all_biblios.pl (-1 / +1 lines)
Lines 29-35 BEGIN { Link Here
29
# possible modules to use
29
# possible modules to use
30
use Getopt::Long;
30
use Getopt::Long;
31
use C4::Context;
31
use C4::Context;
32
use C4::Biblio;
32
use C4::Biblio qw( GetMarcBiblio ModBiblio );
33
use Pod::Usage;
33
use Pod::Usage;
34
34
35
35
(-)a/misc/maintenance/touch_all_items.pl (-1 / +1 lines)
Lines 29-35 BEGIN { Link Here
29
# possible modules to use
29
# possible modules to use
30
use Getopt::Long;
30
use Getopt::Long;
31
use C4::Context;
31
use C4::Context;
32
use C4::Items;
32
use C4::Items qw( ModItem );
33
use Pod::Usage;
33
use Pod::Usage;
34
34
35
35
(-)a/misc/migration_tools/buildEDITORS.pl (-1 / +1 lines)
Lines 9-15 use MARC::File::USMARC; Link Here
9
use MARC::Record;
9
use MARC::Record;
10
use MARC::Batch;
10
use MARC::Batch;
11
use C4::Context;
11
use C4::Context;
12
use C4::Biblio;
12
use C4::Biblio qw( GetMarcBiblio );
13
use C4::AuthoritiesMarc;
13
use C4::AuthoritiesMarc;
14
use Time::HiRes qw(gettimeofday);
14
use Time::HiRes qw(gettimeofday);
15
15
(-)a/misc/migration_tools/build_oai_sets.pl (-3 / +3 lines)
Lines 43-51 use List::MoreUtils qw/uniq/; Link Here
43
use Getopt::Std;
43
use Getopt::Std;
44
44
45
use C4::Context;
45
use C4::Context;
46
use C4::Charset qw/StripNonXmlChars/;
46
use C4::Charset qw( StripNonXmlChars );
47
use C4::Biblio;
47
use C4::Biblio qw( EmbedItemsInMarcBiblio );
48
use C4::OAI::Sets;
48
use C4::OAI::Sets qw( GetOAISets GetOAISet GetOAISetsMappings GetOAISetBySpec CalcOAISetsBiblio ModOAISet ModOAISetsBiblios AddOAISet AddOAISetsBiblios );
49
49
50
my %opts;
50
my %opts;
51
$Getopt::Std::STANDARD_HELP_VERSION = 1;
51
$Getopt::Std::STANDARD_HELP_VERSION = 1;
(-)a/misc/migration_tools/bulkmarcimport.pl (-3 / +3 lines)
Lines 19-29 use MARC::Batch; Link Here
19
use MARC::Charset;
19
use MARC::Charset;
20
20
21
use C4::Context;
21
use C4::Context;
22
use C4::Biblio;
22
use C4::Biblio qw( GetMarcFromKohaField GetBiblioData GetBiblio ModBiblio GetFrameworkCode AddBiblio _strip_item_fields ModBiblioMarc );
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Debug;
24
use C4::Debug;
25
use C4::Charset;
25
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
26
use C4::Items;
26
use C4::Items qw( AddItem AddItemBatchFromMarc );
27
use YAML;
27
use YAML;
28
use Unicode::Normalize;
28
use Unicode::Normalize;
29
use Time::HiRes qw(gettimeofday);
29
use Time::HiRes qw(gettimeofday);
(-)a/misc/migration_tools/create_analytical_rel.pl (-2 / +2 lines)
Lines 10-17 BEGIN { Link Here
10
}
10
}
11
11
12
use C4::Context;
12
use C4::Context;
13
use C4::Biblio;
13
use C4::Biblio qw( GetMarcBiblio GetBiblionumberFromItemnumber GetBiblio ModBiblio );
14
use C4::Items;
14
use C4::Items qw( GetItem GetItemnumberFromBarcode );
15
use Getopt::Long;
15
use Getopt::Long;
16
16
17
$| = 1;
17
$| = 1;
(-)a/misc/migration_tools/fix_onloan.pl (-1 / +1 lines)
Lines 3-9 Link Here
3
use strict;
3
use strict;
4
#use warnings; FIXME - Bug 2505
4
#use warnings; FIXME - Bug 2505
5
use  C4::Context;
5
use  C4::Context;
6
use C4::Items;
6
use C4::Items qw( ModItem );
7
use C4::Biblio;
7
use C4::Biblio;
8
8
9
#
9
#
(-)a/misc/migration_tools/import_lexile.pl (-1 / +1 lines)
Lines 32-38 use Getopt::Long; Link Here
32
use Text::CSV;
32
use Text::CSV;
33
33
34
use C4::Context;
34
use C4::Context;
35
use C4::Biblio;
35
use C4::Biblio qw( GetMarcBiblio GetBiblioData GetBiblio ModBiblio );
36
use C4::Koha qw( GetVariationsOfISBN );
36
use C4::Koha qw( GetVariationsOfISBN );
37
use Koha::Database;
37
use Koha::Database;
38
38
(-)a/misc/migration_tools/rebuild_zebra.pl (-3 / +3 lines)
Lines 22-30 use Getopt::Long; Link Here
22
use Fcntl qw(:flock);
22
use Fcntl qw(:flock);
23
use File::Temp qw/ tempdir /;
23
use File::Temp qw/ tempdir /;
24
use File::Path;
24
use File::Path;
25
use C4::Biblio;
25
use C4::Biblio qw( GetMarcFromKohaField GetXmlBiblio GetMarcBiblio _koha_marc_update_bib_ids );
26
use C4::AuthoritiesMarc;
26
use C4::AuthoritiesMarc qw( GetAuthorityXML GetAuthority );
27
use C4::Items;
27
use C4::Items qw( GetItem GetItemsInfo Item2Marc );
28
use Koha::RecordProcessor;
28
use Koha::RecordProcessor;
29
use Koha::Caches;
29
use Koha::Caches;
30
use XML::LibXML;
30
use XML::LibXML;
(-)a/misc/migration_tools/remove_unused_authorities.pl (-1 / +1 lines)
Lines 24-30 use strict; Link Here
24
use warnings;
24
use warnings;
25
25
26
use C4::Context;
26
use C4::Context;
27
use C4::AuthoritiesMarc;
27
use C4::AuthoritiesMarc qw( DelAuthority );
28
use Getopt::Long;
28
use Getopt::Long;
29
29
30
use Koha::SearchEngine::Search;
30
use Koha::SearchEngine::Search;
(-)a/misc/migration_tools/switch_marc21_series_info.pl (-1 / +1 lines)
Lines 29-35 BEGIN { Link Here
29
    eval { require "$FindBin::Bin/../kohalib.pl" };
29
    eval { require "$FindBin::Bin/../kohalib.pl" };
30
}
30
}
31
31
32
use C4::Biblio;
32
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio ModBiblioMarc );
33
use C4::Context;
33
use C4::Context;
34
use Getopt::Long;
34
use Getopt::Long;
35
35
(-)a/misc/migration_tools/upgradeitems.pl (-2 / +2 lines)
Lines 3-10 Link Here
3
use strict;
3
use strict;
4
#use warnings; FIXME - Bug 2505
4
#use warnings; FIXME - Bug 2505
5
use  C4::Context;
5
use  C4::Context;
6
use C4::Items;
6
use C4::Items qw( ModItemFromMarc ModItem );
7
use C4::Biblio;
7
use C4::Biblio qw( GetMarcBiblio );
8
8
9
my $dbh=C4::Context->dbh;
9
my $dbh=C4::Context->dbh;
10
10
(-)a/misc/mod_zebraqueue.pl (-1 / +1 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use Getopt::Long;
23
use Getopt::Long;
24
use Pod::Usage;
24
use Pod::Usage;
25
25
26
use C4::Biblio;
26
use C4::Biblio qw( ModZebra );
27
27
28
my @biblios;
28
my @biblios;
29
my @authorities;
29
my @authorities;
(-)a/misc/recreateIssueStatistics.pl (-1 / +1 lines)
Lines 23-29 Link Here
23
use strict;
23
use strict;
24
use warnings;
24
use warnings;
25
use C4::Context;
25
use C4::Context;
26
use C4::Items;
26
use C4::Items qw( GetItem );
27
use Data::Dumper;
27
use Data::Dumper;
28
use Getopt::Long;
28
use Getopt::Long;
29
29
(-)a/misc/sip_cli_emulator.pl (-2 / +2 lines)
Lines 23-30 use Socket qw(:crlf); Link Here
23
use IO::Socket::INET;
23
use IO::Socket::INET;
24
use Getopt::Long;
24
use Getopt::Long;
25
25
26
use C4::SIP::Sip::Constants qw(:all);
26
use C4::SIP::Sip qw( timestamp );
27
use C4::SIP::Sip;
27
use C4::SIP::Sip qw( timestamp );
28
28
29
use constant { LANGUAGE => '001' };
29
use constant { LANGUAGE => '001' };
30
30
(-)a/misc/stage_file.pl (-1 / +1 lines)
Lines 29-35 BEGIN { Link Here
29
}
29
}
30
30
31
use C4::Context;
31
use C4::Context;
32
use C4::ImportBatch;
32
use C4::ImportBatch qw( RecordsFromISO2709File RecordsFromMARCXMLFile BatchStageMarcRecords SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates );
33
use C4::Matcher;
33
use C4::Matcher;
34
use Getopt::Long;
34
use Getopt::Long;
35
35
(-)a/offline_circ/download.pl (-1 / +1 lines)
Lines 21-27 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use JSON;
23
use JSON;
24
use C4::Auth;
24
use C4::Auth qw( checkauth );
25
use C4::Output;
25
use C4::Output;
26
use C4::Context;
26
use C4::Context;
27
use C4::Koha;
27
use C4::Koha;
(-)a/offline_circ/enqueue_koc.pl (-5 / +5 lines)
Lines 22-35 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Context;
28
use C4::Context;
29
use C4::Biblio;
29
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio );
30
use C4::Accounts;
30
use C4::Accounts;
31
use C4::Circulation;
31
use C4::Circulation qw( AddOfflineOperation GetItemIssue );
32
use C4::Items;
32
use C4::Items qw( GetItem );
33
use C4::Members;
33
use C4::Members;
34
use C4::Stats;
34
use C4::Stats;
35
use Koha::UploadedFiles;
35
use Koha::UploadedFiles;
(-)a/offline_circ/list.pl (-5 / +5 lines)
Lines 22-34 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Context;
28
use C4::Context;
29
use C4::Circulation;
29
use C4::Circulation qw( GetOfflineOperations GetOfflineOperation );
30
use C4::Members;
30
use C4::Members qw( GetMember );
31
use C4::Biblio;
31
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio );
32
32
33
my $query = CGI->new;
33
my $query = CGI->new;
34
34
(-)a/offline_circ/process.pl (-2 / +2 lines)
Lines 22-29 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Circulation;
26
use C4::Circulation qw( GetOfflineOperation ProcessOfflineOperation DeleteOfflineOperation );
27
27
28
my $query = CGI->new;
28
my $query = CGI->new;
29
29
(-)a/offline_circ/process_koc.pl (-6 / +6 lines)
Lines 24-38 use warnings; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use Carp;
25
use Carp;
26
26
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Koha;
29
use C4::Koha;
30
use C4::Context;
30
use C4::Context;
31
use C4::Biblio;
31
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio );
32
use C4::Accounts;
32
use C4::Accounts;
33
use C4::Circulation;
33
use C4::Circulation qw( barcodedecode decode GetItemIssue GetOpenIssue AddRenewal AddIssue MarkIssueReturned );
34
use C4::Items;
34
use C4::Items qw( GetItem ModItem ModDateLastSeen );
35
use C4::Members;
35
use C4::Members qw( GetMember );
36
use C4::Stats;
36
use C4::Stats;
37
use C4::BackgroundJob;
37
use C4::BackgroundJob;
38
use Koha::UploadedFiles;
38
use Koha::UploadedFiles;
(-)a/offline_circ/service.pl (-3 / +3 lines)
Lines 22-30 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( check_api_auth check_cookie_auth );
26
use C4::Circulation;
26
use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation );
27
use Koha::DateUtils;
27
use Koha::DateUtils qw( dt_from_string );
28
use DateTime::TimeZone;
28
use DateTime::TimeZone;
29
29
30
my $cgi = CGI->new;
30
my $cgi = CGI->new;
(-)a/opac/clubs/clubs-tab.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Patrons;
26
use Koha::Patrons;
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
(-)a/opac/clubs/enroll.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Clubs;
26
use Koha::Clubs;
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
(-)a/opac/errors/400.pl (-2 / +2 lines)
Lines 20-27 use strict; Link Here
20
use warnings;
20
use warnings;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
26
27
my $query = new CGI;
27
my $query = new CGI;
(-)a/opac/errors/401.pl (-2 / +2 lines)
Lines 20-27 use strict; Link Here
20
use warnings;
20
use warnings;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
26
27
my $query = new CGI;
27
my $query = new CGI;
(-)a/opac/errors/402.pl (-2 / +2 lines)
Lines 20-27 use strict; Link Here
20
use warnings;
20
use warnings;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
26
27
my $query = new CGI;
27
my $query = new CGI;
(-)a/opac/errors/403.pl (-2 / +2 lines)
Lines 20-27 use strict; Link Here
20
use warnings;
20
use warnings;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
26
27
my $query = new CGI;
27
my $query = new CGI;
(-)a/opac/errors/404.pl (-2 / +2 lines)
Lines 20-27 use strict; Link Here
20
use warnings;
20
use warnings;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
26
27
my $query = new CGI;
27
my $query = new CGI;
(-)a/opac/errors/500.pl (-2 / +2 lines)
Lines 20-27 use strict; Link Here
20
use warnings;
20
use warnings;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
26
27
my $query = new CGI;
27
my $query = new CGI;
(-)a/opac/ilsdi.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::ILSDI::Services;
22
use C4::ILSDI::Services;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
26
27
use List::MoreUtils qw(any);
27
use List::MoreUtils qw(any);
(-)a/opac/maintenance.pl (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
21
use C4::Auth;
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Templates qw/gettemplate/;
23
use C4::Templates qw/gettemplate/;
24
24
25
use Koha;
25
use Koha;
(-)a/opac/opac-ISBDdetail.pl (-8 / +8 lines)
Lines 41-58 the items attached to the biblio Link Here
41
41
42
use Modern::Perl;
42
use Modern::Perl;
43
43
44
use C4::Auth;
44
use C4::Auth qw( get_template_and_user );
45
use C4::Context;
45
use C4::Context;
46
use C4::Output;
46
use C4::Output qw( parametrized_url output_html_with_http_headers );
47
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
48
use MARC::Record;
48
use MARC::Record;
49
use C4::Biblio;
49
use C4::Biblio qw( CountItemsIssued GetMarcBiblio GetFrameworkCode TransformMarcToKoha GetISBDView GetMarcControlnumber GetMarcISSN );
50
use C4::Items;
50
use C4::Items qw( GetItem GetItemsInfo GetHiddenItemnumbers );
51
use C4::Reserves;
51
use C4::Reserves qw( OnShelfHoldsAllowed );
52
use C4::Acquisition;
52
use C4::Acquisition;
53
use C4::Serials;    # uses getsubscriptionfrom biblionumber
53
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
54
use C4::Koha;
54
use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
55
use C4::Members;    # GetMember
55
use C4::Members qw( GetMember );
56
use Koha::ItemTypes;
56
use Koha::ItemTypes;
57
use Koha::RecordProcessor;
57
use Koha::RecordProcessor;
58
58
(-)a/opac/opac-MARCdetail.pl (-7 / +7 lines)
Lines 45-61 the items attached to the biblio Link Here
45
45
46
use Modern::Perl;
46
use Modern::Perl;
47
47
48
use C4::Auth;
48
use C4::Auth qw( get_template_and_user );
49
use C4::Context;
49
use C4::Context;
50
use C4::Output;
50
use C4::Output qw( parametrized_url output_html_with_http_headers );
51
use CGI qw ( -utf8 );
51
use CGI qw ( -utf8 );
52
use MARC::Record;
52
use MARC::Record;
53
use C4::Biblio;
53
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetMarcStructure GetMarcFromKohaField GetBiblioData GetBiblio CountItemsIssued GetAuthorisedValueDesc TransformMarcToKoha GetMarcControlnumber GetMarcISSN );
54
use C4::Items;
54
use C4::Items qw( GetItem GetItemsInfo GetHiddenItemnumbers );
55
use C4::Reserves;
55
use C4::Reserves qw( OnShelfHoldsAllowed );
56
use C4::Members;
56
use C4::Members qw( GetMember );
57
use C4::Acquisition;
57
use C4::Acquisition;
58
use C4::Koha;
58
use C4::Koha qw( display_marc_indicators GetNormalizedISBN );
59
use List::MoreUtils qw( any uniq );
59
use List::MoreUtils qw( any uniq );
60
use Koha::RecordProcessor;
60
use Koha::RecordProcessor;
61
61
(-)a/opac/opac-account-pay-paypal-return.pl (-2 / +2 lines)
Lines 26-35 use HTTP::Request::Common; Link Here
26
use LWP::UserAgent;
26
use LWP::UserAgent;
27
use URI;
27
use URI;
28
28
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output;
30
use C4::Output;
31
use C4::Accounts;
31
use C4::Accounts;
32
use C4::Members;
32
use C4::Members qw( GetMember );
33
use Koha::Acquisition::Currencies;
33
use Koha::Acquisition::Currencies;
34
use Koha::Database;
34
use Koha::Database;
35
35
(-)a/opac/opac-account-pay.pl (-2 / +2 lines)
Lines 26-33 use HTTP::Request::Common; Link Here
26
use LWP::UserAgent;
26
use LWP::UserAgent;
27
use URI;
27
use URI;
28
28
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Context;
31
use C4::Context;
32
use Koha::Acquisition::Currencies;
32
use Koha::Acquisition::Currencies;
33
use Koha::Database;
33
use Koha::Database;
(-)a/opac/opac-account.pl (-3 / +3 lines)
Lines 21-29 Link Here
21
21
22
use strict;
22
use strict;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Members;
24
use C4::Members qw( GetMember GetMemberAccountRecords );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use warnings;
27
use warnings;
28
28
29
my $query = new CGI;
29
my $query = new CGI;
(-)a/opac/opac-addbybiblionumber.pl (-3 / +3 lines)
Lines 21-29 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Biblio;
24
use C4::Biblio qw( GetBiblioData GetBiblio );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
27
28
use Koha::Virtualshelves;
28
use Koha::Virtualshelves;
29
29
(-)a/opac/opac-alert-subscribe.pl (-4 / +4 lines)
Lines 22-33 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Letters;
29
use C4::Letters qw( addalert getalert delalert );
30
use C4::Serials;
30
use C4::Serials qw( GetSubscription );
31
31
32
32
33
my $query = new CGI;
33
my $query = new CGI;
(-)a/opac/opac-article-request-cancel.pl (-1 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Output;
24
use C4::Output;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use Koha::ArticleRequests;
26
use Koha::ArticleRequests;
27
27
28
my $query = new CGI;
28
my $query = new CGI;
(-)a/opac/opac-authorities-home.pl (-4 / +4 lines)
Lines 23-34 use warnings; Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use URI::Escape;
25
use URI::Escape;
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
27
28
use C4::Context;
28
use C4::Context;
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output;
30
use C4::Output qw( pagination_bar output_html_with_http_headers );
31
use C4::AuthoritiesMarc;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Koha;
32
use C4::Koha;
33
use C4::Search::History;
33
use C4::Search::History;
34
34
(-)a/opac/opac-authoritiesdetail.pl (-4 / +4 lines)
Lines 39-51 parameters tables. Link Here
39
use strict;
39
use strict;
40
use warnings;
40
use warnings;
41
41
42
use C4::AuthoritiesMarc;
42
use C4::Auth qw( get_template_and_user );
43
use C4::Auth;
43
use C4::Auth qw( get_template_and_user );
44
use C4::Context;
44
use C4::Context;
45
use C4::Output;
45
use C4::Output qw( output_html_with_http_headers );
46
use CGI qw ( -utf8 );
46
use CGI qw ( -utf8 );
47
use MARC::Record;
47
use MARC::Record;
48
use C4::Koha;
48
use C4::Koha qw( display_marc_indicators );
49
49
50
use Koha::Authorities;
50
use Koha::Authorities;
51
use Koha::Authority::Types;
51
use Koha::Authority::Types;
(-)a/opac/opac-basket.pl (-5 / +5 lines)
Lines 19-29 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Koha;
21
use C4::Koha;
22
use C4::Biblio;
22
use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetFrameworkCode GetMarcNotes GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetRecordValue );
23
use C4::Items;
23
use C4::Items qw( GetItem GetItemsInfo );
24
use C4::Circulation;
24
use C4::Circulation qw( GetTransfers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use Koha::RecordProcessor;
27
use Koha::RecordProcessor;
28
28
29
use Koha::AuthorisedValues;
29
use Koha::AuthorisedValues;
(-)a/opac/opac-blocked.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
my $query = new CGI;
26
my $query = new CGI;
(-)a/opac/opac-browser.pl (-2 / +2 lines)
Lines 27-35 TODO :: Description here Link Here
27
use strict;
27
use strict;
28
use warnings;
28
use warnings;
29
29
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Context;
31
use C4::Context;
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use CGI qw ( -utf8 );
33
use CGI qw ( -utf8 );
34
use C4::Biblio;
34
use C4::Biblio;
35
use C4::Koha;       # use getitemtypeinfo
35
use C4::Koha;       # use getitemtypeinfo
(-)a/opac/opac-course-details.pl (-3 / +3 lines)
Lines 22-32 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
28
29
use C4::CourseReserves qw(GetCourse GetCourseReserves);
29
use C4::CourseReserves qw( GetCourse GetCourseReserve GetCourseReserves );
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
32
(-)a/opac/opac-course-reserves.pl (-3 / +3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use C4::CourseReserves qw(SearchCourses);
28
use C4::CourseReserves qw( SearchCourses );
29
29
30
my $cgi = new CGI;
30
my $cgi = new CGI;
31
31
(-)a/opac/opac-detail.pl (-20 / +20 lines)
Lines 23-53 Link Here
23
use Modern::Perl;
23
use Modern::Perl;
24
24
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Acquisition qw( SearchOrders );
26
use C4::Acquisition qw( SearchOrders GetItemnumbersFromOrder );
27
use C4::Auth qw(:DEFAULT get_session);
27
use C4::Auth qw( get_template_and_user get_session );
28
use C4::Koha;
28
use C4::Koha qw( GetNormalizedEAN getitemtypeimagelocation GetNormalizedUPC GetNormalizedOCLCNumber GetNormalizedISBN );
29
use C4::Serials;    #uses getsubscriptionfrom biblionumber
29
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
30
use C4::Output;
30
use C4::Output qw( parametrized_url output_html_with_http_headers );
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetBiblioData GetBiblio CountItemsIssued GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcHosts GetMarcNotes GetRecordValue GetCOinSBiblio GetMarcControlnumber GetMarcISSN );
32
use C4::Items;
32
use C4::Items qw( GetItem GetItemsInfo GetHiddenItemnumbers );
33
use C4::Circulation;
33
use C4::Circulation qw( decode GetTransfers );
34
use C4::Tags qw(get_tags);
34
use C4::Tags qw( get_tags get_tag );
35
use C4::XISBN qw(get_xisbns get_biblionumber_from_isbn);
35
use C4::XISBN qw( get_xisbns );
36
use C4::External::Amazon;
36
use C4::External::Amazon qw( get_amazon_tld );
37
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes );
37
use C4::External::Syndetics qw( get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes );
38
use C4::Members;
38
use C4::Members qw( GetMember );
39
use C4::XSLT;
39
use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display );
40
use C4::ShelfBrowser;
40
use C4::ShelfBrowser qw( GetNearbyItems );
41
use C4::Reserves;
41
use C4::Reserves qw( OnShelfHoldsAllowed GetReserve GetReserveStatus );
42
use C4::Charset;
42
use C4::Charset qw( SetUTF8Flag );
43
use C4::Letters;
43
use C4::Letters qw( getalert );
44
use MARC::Record;
44
use MARC::Record;
45
use MARC::Field;
45
use MARC::Field;
46
use List::MoreUtils qw/any none/;
46
use List::MoreUtils qw/any none/;
47
use C4::Images;
47
use C4::Images qw( ListImagesForBiblio );
48
use Koha::DateUtils;
48
use Koha::DateUtils;
49
use C4::HTML5Media;
49
use C4::HTML5Media;
50
use C4::CourseReserves qw(GetItemCourseReservesInfo);
50
use C4::CourseReserves qw( GetItemCourseReservesInfo );
51
use Koha::RecordProcessor;
51
use Koha::RecordProcessor;
52
use Koha::AuthorisedValues;
52
use Koha::AuthorisedValues;
53
use Koha::Biblios;
53
use Koha::Biblios;
(-)a/opac/opac-discharge.pl (-3 / +3 lines)
Lines 20-32 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use Carp;
21
use Carp;
22
22
23
use C4::Auth qw(:DEFAULT get_session);
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw( -utf8 );
24
use CGI qw( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Log;
27
use C4::Log;
28
use C4::Debug;
28
use C4::Debug;
29
use C4::Members;
29
use C4::Members qw( GetMember );
30
use Koha::Patron::Discharge;
30
use Koha::Patron::Discharge;
31
use Koha::DateUtils;
31
use Koha::DateUtils;
32
32
(-)a/opac/opac-downloadcart.pl (-5 / +5 lines)
Lines 22-33 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use Encode qw(encode);
23
use Encode qw(encode);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView );
27
use C4::Items;
27
use C4::Items;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Record;
29
use C4::Record qw( marc2csv marc2bibtex );
30
use C4::Ris;
30
use C4::Ris qw( marc2ris );
31
use Koha::CsvProfiles;
31
use Koha::CsvProfiles;
32
use Koha::RecordProcessor;
32
use Koha::RecordProcessor;
33
33
(-)a/opac/opac-downloadshelf.pl (-5 / +5 lines)
Lines 22-33 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use Encode qw(encode);
23
use Encode qw(encode);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView );
27
use C4::Items;
27
use C4::Items;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Record;
29
use C4::Record qw( marc2csv marc2bibtex );
30
use C4::Ris;
30
use C4::Ris qw( marc2ris );
31
use Koha::CsvProfiles;
31
use Koha::CsvProfiles;
32
use Koha::RecordProcessor;
32
use Koha::RecordProcessor;
33
use Koha::Virtualshelves;
33
use Koha::Virtualshelves;
(-)a/opac/opac-export.pl (-3 / +3 lines)
Lines 19-31 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Record;
22
use C4::Record qw( marc2endnote marc2marc marc2marcxml marc2modsxml marc2bibtex marc2dcxml changeEncoding );
23
use C4::Auth;
23
use C4::Auth;
24
use C4::Output;
24
use C4::Output;
25
use C4::Biblio;
25
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Auth;
27
use C4::Auth;
28
use C4::Ris;
28
use C4::Ris qw( marc2ris );
29
use Koha::RecordProcessor;
29
use Koha::RecordProcessor;
30
30
31
my $query = CGI->new;
31
my $query = CGI->new;
(-)a/opac/opac-ics.pl (-3 / +3 lines)
Lines 30-40 use DateTime::Format::ICal; Link Here
30
use DateTime::Event::ICal;
30
use DateTime::Event::ICal;
31
use URI;
31
use URI;
32
32
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Koha;
34
use C4::Koha;
35
use C4::Circulation;
35
use C4::Circulation;
36
use C4::Members;
36
use C4::Members qw( GetPendingIssues );
37
use Koha::DateUtils;
37
use Koha::DateUtils qw( dt_from_string );
38
38
39
my $query = new CGI;
39
my $query = new CGI;
40
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
40
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
(-)a/opac/opac-idref.pl (-2 / +2 lines)
Lines 25-34 use HTTP::Request::Common; Link Here
25
use JSON;
25
use JSON;
26
use Encode;
26
use Encode;
27
27
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Context;
29
use C4::Context;
30
use C4::Search;
30
use C4::Search;
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
32
33
my $cgi = new CGI;
33
my $cgi = new CGI;
34
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
34
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
(-)a/opac/opac-image.pl (-1 / +1 lines)
Lines 28-34 use warnings; Link Here
28
28
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Context;
30
use C4::Context;
31
use C4::Images;
31
use C4::Images qw( NoImage ListImagesForBiblio RetrieveImage );
32
32
33
$| = 1;
33
$| = 1;
34
34
(-)a/opac/opac-imageviewer.pl (-4 / +4 lines)
Lines 21-30 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Biblio;
25
use C4::Biblio qw( GetBiblio );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Images;
27
use C4::Images qw( ListImagesForBiblio );
28
28
29
my $query = new CGI;
29
my $query = new CGI;
30
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
30
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
(-)a/opac/opac-issue-note.pl (-6 / +6 lines)
Lines 23-35 use CGI qw ( -utf8 ); Link Here
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Context;
24
use C4::Context;
25
use C4::Scrubber;
25
use C4::Scrubber;
26
use C4::Members;
26
use C4::Members qw( GetMember );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Biblio;
29
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio );
30
use C4::Letters;
30
use C4::Letters qw( GetPreparedLetter );
31
use Koha::Checkouts;
31
use Koha::Checkouts;
32
use Koha::DateUtils;
32
use Koha::DateUtils qw( dt_from_string );
33
33
34
my $query = new CGI;
34
my $query = new CGI;
35
35
(-)a/opac/opac-main.pl (-3 / +3 lines)
Lines 20-28 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;    # get_template_and_user
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::NewsChannels;    # GetNewsToDisplay
25
use C4::NewsChannels qw( GetNewsToDisplay );
26
use C4::Languages qw(getTranslatedLanguages accept_language);
26
use C4::Languages qw(getTranslatedLanguages accept_language);
27
use C4::Koha qw( GetDailyQuote );
27
use C4::Koha qw( GetDailyQuote );
28
28
(-)a/opac/opac-memberentry.pl (-5 / +5 lines)
Lines 23-36 use JSON; Link Here
23
use List::MoreUtils qw( any each_array uniq );
23
use List::MoreUtils qw( any each_array uniq );
24
use String::Random qw( random_string );
24
use String::Random qw( random_string );
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Members;
28
use C4::Members qw( get_cardnumber_length checkcardnumber AddMember AddMember_Opac GetMember );
29
use C4::Members::Attributes qw( GetBorrowerAttributes );
29
use C4::Members qw( get_cardnumber_length checkcardnumber AddMember AddMember_Opac GetMember );
30
use C4::Form::MessagingPreferences;
30
use C4::Form::MessagingPreferences;
31
use C4::Scrubber;
31
use C4::Scrubber;
32
use Email::Valid;
32
use Email::Valid;
33
use Koha::DateUtils;
33
use Koha::DateUtils qw( dt_from_string output_pref );
34
use Koha::Libraries;
34
use Koha::Libraries;
35
use Koha::Patron::Attribute::Types;
35
use Koha::Patron::Attribute::Types;
36
use Koha::Patron::Attributes;
36
use Koha::Patron::Attributes;
(-)a/opac/opac-messaging.pl (-4 / +4 lines)
Lines 22-34 use warnings; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;    # checkauth, getborrowernumber.
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Members;
30
use C4::Members qw( GetMember ModMember );
31
use C4::Members::Messaging;
31
use C4::Members qw( GetMember ModMember );
32
use C4::Form::MessagingPreferences;
32
use C4::Form::MessagingPreferences;
33
use Koha::SMS::Providers;
33
use Koha::SMS::Providers;
34
34
(-)a/opac/opac-modrequest-suspend.pl (-2 / +2 lines)
Lines 20-27 use warnings; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Output;
22
use C4::Output;
23
use C4::Reserves;
23
use C4::Reserves qw( CanReserveBeCanceledFromOpac ToggleSuspend SuspendAll );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
my $query = new CGI;
25
my $query = new CGI;
26
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
26
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
27
    {
27
    {
(-)a/opac/opac-modrequest.pl (-2 / +2 lines)
Lines 27-34 use warnings; Link Here
27
27
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Output;
29
use C4::Output;
30
use C4::Reserves;
30
use C4::Reserves qw( CanReserveBeCanceledFromOpac CancelReserve );
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
my $query = new CGI;
32
my $query = new CGI;
33
33
34
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
34
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
(-)a/opac/opac-mymessages.pl (-3 / +3 lines)
Lines 22-32 use warnings; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Letters;
28
use C4::Letters qw( GetRSSMessages );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
my $query = CGI->new();
31
my $query = CGI->new();
32
32
(-)a/opac/opac-news-rss.pl (-3 / +3 lines)
Lines 20-28 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI;
22
use CGI;
23
use C4::Auth;    # get_template_and_user
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::NewsChannels;    # GetNewsToDisplay
25
use C4::NewsChannels qw( GetNewsToDisplay );
26
use C4::Languages qw(getTranslatedLanguages accept_language);
26
use C4::Languages qw(getTranslatedLanguages accept_language);
27
27
28
my $input = new CGI;
28
my $input = new CGI;
(-)a/opac/opac-overdrive-search.pl (-2 / +2 lines)
Lines 22-29 use warnings; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth qw(:DEFAULT get_session);
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
29
29
(-)a/opac/opac-passwd.pl (-4 / +4 lines)
Lines 23-35 use warnings; Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
25
26
use C4::Auth;    # checkauth, getborrowernumber.
26
use C4::Auth qw( get_template_and_user );
27
use C4::Context;
27
use C4::Context;
28
use Digest::MD5 qw(md5_base64);
28
use Digest::MD5 qw(md5_base64);
29
use C4::Circulation;
29
use C4::Circulation;
30
use C4::Members;
30
use C4::Members qw( GetMember );
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use Koha::AuthUtils qw(hash_password);
32
use Koha::AuthUtils qw( hash_password );
33
33
34
my $query = new CGI;
34
my $query = new CGI;
35
my $dbh   = C4::Context->dbh;
35
my $dbh   = C4::Context->dbh;
(-)a/opac/opac-password-recovery.pl (-3 / +3 lines)
Lines 3-16 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI;
4
use CGI;
5
5
6
use C4::Auth;
6
use C4::Auth qw( get_template_and_user );
7
use C4::Koha;
7
use C4::Koha;
8
use C4::Output;
8
use C4::Output qw( output_html_with_http_headers );
9
use C4::Context;
9
use C4::Context;
10
use Koha::Patron::Password::Recovery
10
use Koha::Patron::Password::Recovery
11
  qw(SendPasswordRecoveryEmail ValidateBorrowernumber GetValidLinkInfo CompletePasswordRecovery DeleteExpiredPasswordRecovery);
11
  qw(SendPasswordRecoveryEmail ValidateBorrowernumber GetValidLinkInfo CompletePasswordRecovery DeleteExpiredPasswordRecovery);
12
use Koha::Patrons;
12
use Koha::Patrons;
13
use Koha::AuthUtils qw(hash_password);
13
use Koha::AuthUtils qw( hash_password );
14
use Koha::Patrons;
14
use Koha::Patrons;
15
my $query = new CGI;
15
my $query = new CGI;
16
use HTML::Entities;
16
use HTML::Entities;
(-)a/opac/opac-patron-image.pl (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
23
use C4::Members;
23
use C4::Members;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
25
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
26
use C4::Auth qw(:DEFAULT check_cookie_auth);
26
use C4::Auth qw( check_cookie_auth );
27
use Koha::Patron::Images;
27
use Koha::Patron::Images;
28
28
29
my $query = new CGI;
29
my $query = new CGI;
(-)a/opac/opac-privacy.pl (-3 / +3 lines)
Lines 19-28 Link Here
19
use strict;
19
use strict;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Auth;    # checkauth, getborrowernumber.
22
use C4::Auth qw( get_template_and_user );
23
use C4::Context;
23
use C4::Context;
24
use C4::Members;
24
use C4::Members qw( ModMember );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Patrons;
26
use Koha::Patrons;
27
27
28
my $query = new CGI;
28
my $query = new CGI;
(-)a/opac/opac-ratings-ajax.pl (-2 / +2 lines)
Lines 29-38 use warnings; Link Here
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
30
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
31
31
32
use C4::Auth qw(:DEFAULT check_cookie_auth);
32
use C4::Auth qw( get_template_and_user check_cookie_auth );
33
use C4::Context;
33
use C4::Context;
34
use C4::Debug;
34
use C4::Debug;
35
use C4::Output qw(:html :ajax pagination_bar);
35
use C4::Output qw( is_ajax output_ajax_with_http_headers );
36
36
37
use Koha::Ratings;
37
use Koha::Ratings;
38
38
(-)a/opac/opac-ratings.pl (-1 / +1 lines)
Lines 29-35 use strict; Link Here
29
use warnings;
29
use warnings;
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
31
32
use C4::Auth;
32
use C4::Auth qw( checkauth );
33
use C4::Context;
33
use C4::Context;
34
use C4::Debug;
34
use C4::Debug;
35
35
(-)a/opac/opac-readingrecord.pl (-6 / +6 lines)
Lines 21-36 use warnings; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha qw( GetNormalizedISBN getitemtypeimagelocation GetNormalizedUPC );
26
use C4::Biblio;
26
use C4::Biblio qw( GetXmlBiblio GetRecordValue );
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Members;
28
use C4::Members qw( GetMember GetAllIssues );
29
use Koha::DateUtils;
29
use Koha::DateUtils;
30
use MARC::Record;
30
use MARC::Record;
31
31
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Charset qw(StripNonXmlChars);
33
use C4::Charset qw( StripNonXmlChars );
34
34
35
use Koha::ItemTypes;
35
use Koha::ItemTypes;
36
36
(-)a/opac/opac-registration-verify.pl (-3 / +3 lines)
Lines 19-27 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Members;
24
use C4::Members qw( AddMember AddMember_Opac GetMember );
25
use C4::Form::MessagingPreferences;
25
use C4::Form::MessagingPreferences;
26
use Koha::Patron::Modifications;
26
use Koha::Patron::Modifications;
27
27
(-)a/opac/opac-renew.pl (-4 / +4 lines)
Lines 25-35 use strict; Link Here
25
use warnings;
25
use warnings;
26
26
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Circulation;
28
use C4::Circulation qw( CanBookBeRenewed GetOpenIssue AddRenewal );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Context;
30
use C4::Context;
31
use C4::Items;
31
use C4::Items qw( GetItem );
32
use C4::Members;
32
use C4::Members qw( GetMember );
33
use Koha::Patrons;
33
use Koha::Patrons;
34
use Date::Calc qw( Today Date_to_Days );
34
use Date::Calc qw( Today Date_to_Days );
35
my $query = new CGI;
35
my $query = new CGI;
(-)a/opac/opac-request-article.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Biblios;
27
use Koha::Biblios;
28
use Koha::Patrons;
28
use Koha::Patrons;
(-)a/opac/opac-reserve.pl (-10 / +10 lines)
Lines 21-39 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;    # checkauth, getborrowernumber.
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha qw( getitemtypeimagesrc getitemtypeimagelocation );
26
use C4::Circulation;
26
use C4::Circulation qw( GetItemIssue GetTransfers CheckIfIssuedToPatron );
27
use C4::Reserves;
27
use C4::Reserves qw( GetReserve GetReservesFromBorrowernumber CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch IsAvailableForItemLevelRequest OPACItemHoldsAllowed );
28
use C4::Biblio;
28
use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetBiblionumberFromItemnumber GetFrameworkCode GetRecordValue );
29
use C4::Items;
29
use C4::Items qw( GetItem GetItemsInfo GetHostItemsInfo );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Context;
31
use C4::Context;
32
use C4::Members;
32
use C4::Members qw( GetMember GetMemberAccountRecords );
33
use C4::Overdues;
33
use C4::Overdues qw( GetItems );
34
use C4::Debug;
34
use C4::Debug;
35
use Koha::AuthorisedValues;
35
use Koha::AuthorisedValues;
36
use Koha::DateUtils;
36
use Koha::DateUtils qw( dt_from_string output_pref );
37
use Koha::Items;
37
use Koha::Items;
38
use Koha::ItemTypes;
38
use Koha::ItemTypes;
39
use Koha::Libraries;
39
use Koha::Libraries;
(-)a/opac/opac-restrictedpage.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
my $localNetwork  = C4::Context->preference('RestrictedPageLocalIPs');
26
my $localNetwork  = C4::Context->preference('RestrictedPageLocalIPs');
27
my $userIP = $ENV{'REMOTE_ADDR'};
27
my $userIP = $ENV{'REMOTE_ADDR'};
(-)a/opac/opac-retrieve-file.pl (-2 / +2 lines)
Lines 21-29 use Modern::Perl; Link Here
21
use CGI;
21
use CGI;
22
use Encode;
22
use Encode;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use Koha::UploadedFiles;
27
use Koha::UploadedFiles;
28
28
29
my $input = CGI::->new;
29
my $input = CGI::->new;
(-)a/opac/opac-review.pl (-4 / +4 lines)
Lines 19-31 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Biblio;
25
use C4::Biblio qw( GetBiblioData GetBiblio );
26
use C4::Scrubber;
26
use C4::Scrubber;
27
use C4::Debug;
27
use C4::Debug;
28
use Koha::DateUtils;
28
use Koha::DateUtils qw( dt_from_string );
29
use Koha::Review;
29
use Koha::Review;
30
use Koha::Reviews;
30
use Koha::Reviews;
31
31
(-)a/opac/opac-search-history.pl (-2 / +2 lines)
Lines 19-28 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth qw(:DEFAULT get_session);
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Log;
26
use C4::Log;
27
use C4::Items;
27
use C4::Items;
28
use C4::Debug;
28
use C4::Debug;
(-)a/opac/opac-search.pl (-9 / +9 lines)
Lines 41-56 my ($builder, $searcher); Link Here
41
$builder  = Koha::SearchEngine::QueryBuilder->new({index => 'biblios'});
41
$builder  = Koha::SearchEngine::QueryBuilder->new({index => 'biblios'});
42
$searcher = Koha::SearchEngine::Search->new({index => 'biblios'});
42
$searcher = Koha::SearchEngine::Search->new({index => 'biblios'});
43
43
44
use C4::Output;
44
use C4::Output qw( output_html_with_http_headers output_with_http_headers );
45
use C4::Auth qw(:DEFAULT get_session);
45
use C4::Auth qw( get_template_and_user get_session );
46
use C4::Languages qw(getLanguages);
46
use C4::Languages qw( getlanguage getLanguages );
47
use C4::Search;
47
use C4::Search qw( pazGetRecords searchResults );
48
use C4::Search::History;
48
use C4::Search qw( pazGetRecords searchResults );
49
use C4::Biblio;  # GetBiblioData
49
use C4::Biblio qw( GetXmlBiblio GetMarcBiblio GetCOinSBiblio CountItemsIssued );
50
use C4::Koha;
50
use C4::Koha qw( GetItemTypesCategorized getitemtypeinfo getitemtypeimagelocation GetAuthorisedValues );
51
use C4::Tags qw(get_tags);
51
use C4::Tags qw( get_tags get_tag );
52
use C4::SocialData;
52
use C4::SocialData;
53
use C4::External::OverDrive;
53
use C4::External::OverDrive qw( IsOverDriveEnabled );
54
54
55
use Koha::LibraryCategories;
55
use Koha::LibraryCategories;
56
use Koha::Ratings;
56
use Koha::Ratings;
(-)a/opac/opac-sendbasket.pl (-5 / +5 lines)
Lines 26-36 use Mail::Sendmail; Link Here
26
use MIME::QuotedPrint;
26
use MIME::QuotedPrint;
27
use MIME::Base64;
27
use MIME::Base64;
28
28
29
use C4::Biblio;
29
use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetMarcAuthors GetMarcSubjects );
30
use C4::Items;
30
use C4::Items qw( GetItem GetItemsInfo );
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Members;
33
use C4::Members qw( GetMember GetFirstValidEmailAddress );
34
use C4::Templates ();
34
use C4::Templates ();
35
use Koha::Email;
35
use Koha::Email;
36
use Koha::Token;
36
use Koha::Token;
(-)a/opac/opac-sendshelf.pl (-5 / +5 lines)
Lines 27-37 use Carp; Link Here
27
use Mail::Sendmail;
27
use Mail::Sendmail;
28
use MIME::QuotedPrint;
28
use MIME::QuotedPrint;
29
use MIME::Base64;
29
use MIME::Base64;
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Biblio;
31
use C4::Biblio qw( GetFrameworkCode GetBiblioData GetBiblio GetMarcBiblio GetMarcAuthors GetMarcSubjects GetRecordValue GetMarcISBN );
32
use C4::Items;
32
use C4::Items qw( GetItem GetItemsInfo );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Members;
34
use C4::Members qw( GetMember );
35
use Koha::Email;
35
use Koha::Email;
36
use Koha::Virtualshelves;
36
use Koha::Virtualshelves;
37
37
(-)a/opac/opac-serial-issues.pl (-4 / +4 lines)
Lines 22-32 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Serials;
27
use C4::Serials qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber PrepareSerialsData GetSubscription GetSubscriptionsFromBiblionumber );
28
use C4::Letters;
28
use C4::Letters qw( getalert );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Context;
30
use C4::Context;
31
31
32
my $query      = new CGI;
32
my $query      = new CGI;
(-)a/opac/opac-shareshelf.pl (-4 / +4 lines)
Lines 27-37 use constant SHELVES_URL => Link Here
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use Email::Valid;
28
use Email::Valid;
29
29
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Context;
31
use C4::Context;
32
use C4::Letters;
32
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
33
use C4::Members ();
33
use C4::Members qw( GetNoticeEmailAddress );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
35
36
use Koha::Virtualshelves;
36
use Koha::Virtualshelves;
37
use Koha::Virtualshelfshares;
37
use Koha::Virtualshelfshares;
(-)a/opac/opac-shelves.pl (-8 / +8 lines)
Lines 20-33 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Biblio;
24
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio GetBiblioData GetMarcBiblio GetFrameworkCode GetCOinSBiblio GetRecordValue );
25
use C4::Koha;
25
use C4::Koha qw( getitemtypeinfo GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
26
use C4::Items;
26
use C4::Items qw( GetItem GetItemsLocationInfo );
27
use C4::Members;
27
use C4::Members qw( GetMember );
28
use C4::Output;
28
use C4::Output qw( pagination_bar output_html_with_http_headers );
29
use C4::Tags qw( get_tags );
29
use C4::Tags qw( get_tags get_tag );
30
use C4::XSLT;
30
use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display );
31
31
32
use Koha::Biblioitems;
32
use Koha::Biblioitems;
33
use Koha::Virtualshelves;
33
use Koha::Virtualshelves;
(-)a/opac/opac-showmarc.pl (-5 / +5 lines)
Lines 25-35 use Encode; Link Here
25
25
26
# Koha modules used
26
# Koha modules used
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Biblio;
30
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode );
31
use C4::ImportBatch;
31
use C4::ImportBatch qw( GetImportRecordMarc );
32
use C4::XSLT ();
32
use C4::XSLT qw( engine );
33
use C4::Templates;
33
use C4::Templates;
34
use Koha::RecordProcessor;
34
use Koha::RecordProcessor;
35
35
(-)a/opac/opac-showreviews.pl (-6 / +6 lines)
Lines 22-34 use strict; Link Here
22
use warnings;
22
use warnings;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Biblio;
29
use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetFrameworkCode GetRecordValue );
30
use C4::Members qw/GetMember/;
30
use C4::Members qw( GetMember );
31
use Koha::DateUtils;
31
use Koha::DateUtils qw( dt_from_string );
32
use Koha::Reviews;
32
use Koha::Reviews;
33
use POSIX qw(ceil floor strftime);
33
use POSIX qw(ceil floor strftime);
34
34
(-)a/opac/opac-suggestions.pl (-5 / +5 lines)
Lines 20-31 use warnings; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Encode qw( encode );
22
use Encode qw( encode );
23
use C4::Auth;    # get_template_and_user
23
use C4::Auth qw( get_template_and_user );
24
use C4::Members;
24
use C4::Members qw( GetMember );
25
use C4::Koha;
25
use C4::Koha qw( GetAuthorisedValues );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Suggestions;
27
use C4::Suggestions;
28
use C4::Koha;
28
use C4::Koha qw( GetAuthorisedValues );
29
use C4::Scrubber;
29
use C4::Scrubber;
30
30
31
use Koha::AuthorisedValues;
31
use Koha::AuthorisedValues;
(-)a/opac/opac-tags.pl (-5 / +5 lines)
Lines 35-48 use Modern::Perl; Link Here
35
use CGI qw ( -utf8 );
35
use CGI qw ( -utf8 );
36
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
36
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
37
37
38
use C4::Auth qw(:DEFAULT check_cookie_auth);
38
use C4::Auth qw( check_cookie_auth get_template_and_user );
39
use C4::Context;
39
use C4::Context;
40
use C4::Debug;
40
use C4::Debug;
41
use C4::Output qw(:html :ajax pagination_bar);
41
use C4::Output qw( output_with_http_headers is_ajax output_html_with_http_headers );
42
use C4::Scrubber;
42
use C4::Scrubber;
43
use C4::Biblio;
43
use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetRecordValue GetFrameworkCode );
44
use C4::Tags qw(add_tag get_approval_rows get_tag_rows remove_tag stratify_tags);
44
use C4::Tags qw( add_tag remove_tag get_tag_rows get_tag get_approval_rows stratify_tags );
45
use C4::XSLT;
45
use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display );
46
46
47
use Data::Dumper;
47
use Data::Dumper;
48
48
(-)a/opac/opac-tags_subject.pl (-2 / +2 lines)
Lines 27-35 TODO :: Description here Link Here
27
use strict;
27
use strict;
28
use warnings;
28
use warnings;
29
29
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Context;
31
use C4::Context;
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use CGI qw ( -utf8 );
33
use CGI qw ( -utf8 );
34
use C4::Biblio;
34
use C4::Biblio;
35
use C4::Koha;       # use getitemtypeinfo
35
use C4::Koha;       # use getitemtypeinfo
(-)a/opac/opac-topissues.pl (-3 / +3 lines)
Lines 23-35 use strict; Link Here
23
use warnings;
23
use warnings;
24
24
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Context;
27
use C4::Context;
28
use C4::Languages;
28
use C4::Languages;
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Koha;
31
use C4::Koha;
32
use C4::Circulation;
32
use C4::Circulation qw( GetTopIssues );
33
use Date::Manip;
33
use Date::Manip;
34
34
35
=head1 NAME
35
=head1 NAME
(-)a/opac/opac-user.pl (-11 / +11 lines)
Lines 22-40 use strict; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha qw( getitemtypeimagelocation GetNormalizedISBN GetNormalizedUPC );
27
use C4::Circulation;
27
use C4::Circulation qw( CanBookBeRenewed GetRenewCount GetSoonestRenewDate );
28
use C4::Reserves;
28
use C4::Reserves qw( GetReserve GetReserveStatus );
29
use C4::Members;
29
use C4::Members qw( GetMember GetMemberAccountRecords GetPendingIssues );
30
use C4::Members::AttributeTypes;
30
use C4::Members qw( GetMember GetMemberAccountRecords GetPendingIssues );
31
use C4::Members::Attributes qw/GetBorrowerAttributeValue/;
31
use C4::Members qw( GetMember GetMemberAccountRecords GetPendingIssues );
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Biblio;
33
use C4::Biblio qw( GetMarcBiblio GetRecordValue GetFrameworkCode );
34
use C4::Items;
34
use C4::Items;
35
use C4::Letters;
35
use C4::Letters qw( getalert findrelatedto );
36
use Koha::Libraries;
36
use Koha::Libraries;
37
use Koha::DateUtils;
37
use Koha::DateUtils qw( output_pref );
38
use Koha::Holds;
38
use Koha::Holds;
39
use Koha::Database;
39
use Koha::Database;
40
use Koha::ItemTypes;
40
use Koha::ItemTypes;
(-)a/opac/sco/help.pl (-2 / +2 lines)
Lines 25-32 use strict; Link Here
25
use warnings;
25
use warnings;
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
27
28
use C4::Auth   qw(get_template_and_user);
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
my $query = new CGI;
31
my $query = new CGI;
32
my ($template, $borrowernumber, $cookie) = get_template_and_user({
32
my ($template, $borrowernumber, $cookie) = get_template_and_user({
(-)a/opac/sco/printslip.pl (-3 / +3 lines)
Lines 30-38 use strict; Link Here
30
use warnings;
30
use warnings;
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Context;
32
use C4::Context;
33
use C4::Auth qw/:DEFAULT get_session/;
33
use C4::Auth qw( get_session get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Members;
35
use C4::Members qw( IssueSlip );
36
use C4::Koha;
36
use C4::Koha;
37
37
38
my $input = new CGI;
38
my $input = new CGI;
(-)a/opac/sco/sco-main.pl (-5 / +5 lines)
Lines 35-48 use Modern::Perl; Link Here
35
35
36
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
37
37
38
use C4::Auth qw(get_template_and_user checkpw);
38
use C4::Auth qw( get_template_and_user checkpw );
39
use C4::Koha;
39
use C4::Koha;
40
use C4::Circulation;
40
use C4::Circulation qw( AddReturn CanBookBeIssued AddRenewal AddIssue CanBookBeRenewed );
41
use C4::Reserves;
41
use C4::Reserves;
42
use C4::Output;
42
use C4::Output qw( output_html_with_http_headers );
43
use C4::Members;
43
use C4::Members qw( GetMember GetPendingIssues );
44
use C4::Biblio;
44
use C4::Biblio;
45
use C4::Items;
45
use C4::Items qw( GetItem );
46
use Koha::DateUtils qw( dt_from_string );
46
use Koha::DateUtils qw( dt_from_string );
47
use Koha::Acquisition::Currencies;
47
use Koha::Acquisition::Currencies;
48
use Koha::Patron::Images;
48
use Koha::Patron::Images;
(-)a/opac/svc/shelfbrowser.pl (-3 / +3 lines)
Lines 3-12 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI qw ( -utf8 );
4
use CGI qw ( -utf8 );
5
5
6
use C4::Auth;
6
use C4::Auth qw( get_template_and_user );
7
use C4::Context;
7
use C4::Context;
8
use C4::Output;
8
use C4::Output qw( output_html_with_http_headers );
9
use C4::ShelfBrowser;
9
use C4::ShelfBrowser qw( GetNearbyItems );
10
10
11
my $cgi = new CGI;
11
my $cgi = new CGI;
12
12
(-)a/opac/tracklinks.pl (-1 / +1 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use C4::Context;
22
use C4::Context;
23
use C4::Auth qw(checkauth);
23
use C4::Auth qw( checkauth );
24
use Koha::Linktracker;
24
use Koha::Linktracker;
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
26
(-)a/patron_lists/add-modify.pl (-3 / +3 lines)
Lines 21-29 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::List::Patron;
26
use Koha::List::Patron qw( GetPatronLists ModPatronList AddPatronList );
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
29
29
(-)a/patron_lists/delete.pl (-2 / +2 lines)
Lines 21-29 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output;
26
use Koha::List::Patron;
26
use Koha::List::Patron qw( DelPatronList );
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
29
29
(-)a/patron_lists/list.pl (-3 / +3 lines)
Lines 21-29 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::List::Patron;
26
use Koha::List::Patron qw( GetPatronLists AddPatronsToList DelPatronsFromList );
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
29
29
(-)a/patron_lists/lists.pl (-3 / +3 lines)
Lines 21-29 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::List::Patron;
26
use Koha::List::Patron qw( GetPatronLists );
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
29
29
(-)a/patron_lists/patrons.pl (-3 / +3 lines)
Lines 21-29 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::List::Patron;
26
use Koha::List::Patron qw( GetPatronLists ModPatronList AddPatronList );
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
29
29
(-)a/patroncards/add_user_search.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/patroncards/create-pdf.pl (-2 / +2 lines)
Lines 21-27 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use Graphics::Magick;
25
use Graphics::Magick;
26
use XML::Simple;
26
use XML::Simple;
27
use POSIX qw(ceil);
27
use POSIX qw(ceil);
Lines 32-38 use C4::Context; Link Here
32
use autouse 'C4::Members' => qw(GetMember);
32
use autouse 'C4::Members' => qw(GetMember);
33
use C4::Creators;
33
use C4::Creators;
34
use C4::Patroncards;
34
use C4::Patroncards;
35
use Koha::List::Patron;
35
use Koha::List::Patron qw( GetPatronLists );
36
use Koha::Patron::Images;
36
use Koha::Patron::Images;
37
37
38
my $cgi = new CGI;
38
my $cgi = new CGI;
(-)a/patroncards/edit-batch.pl (-3 / +3 lines)
Lines 25-35 use vars qw($debug); Link Here
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use autouse 'Data::Dumper' => qw(Dumper);
26
use autouse 'Data::Dumper' => qw(Dumper);
27
27
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Creators;
30
use C4::Creators;
31
use C4::Patroncards;
31
use C4::Patroncards;
32
use C4::Members qw(GetMember);
32
use C4::Members qw( GetMember );
33
my $cgi = new CGI;
33
my $cgi = new CGI;
34
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
34
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
35
    {
35
    {
(-)a/patroncards/edit-layout.pl (-2 / +2 lines)
Lines 26-33 use Text::CSV_XS; Link Here
26
use XML::Simple;
26
use XML::Simple;
27
use autouse 'Data::Dumper' => qw(Dumper);
27
use autouse 'Data::Dumper' => qw(Dumper);
28
28
29
use C4::Auth qw(get_template_and_user);
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output qw(output_html_with_http_headers);
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Creators;
31
use C4::Creators;
32
use C4::Patroncards;
32
use C4::Patroncards;
33
33
(-)a/patroncards/edit-profile.pl (-3 / +3 lines)
Lines 23-31 use warnings; Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Creators::Lib qw(get_all_templates get_unit_values);
28
use C4::Creators::Lib qw( get_unit_values get_all_templates );
29
use C4::Patroncards::Profile;
29
use C4::Patroncards::Profile;
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
(-)a/patroncards/edit-template.pl (-2 / +2 lines)
Lines 24-31 use warnings; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use autouse 'Data::Dumper' => qw(Dumper);
25
use autouse 'Data::Dumper' => qw(Dumper);
26
26
27
use C4::Auth qw(get_template_and_user);
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output qw(output_html_with_http_headers);
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Creators;
29
use C4::Creators;
30
use C4::Patroncards;
30
use C4::Patroncards;
31
31
(-)a/patroncards/home.pl (-2 / +2 lines)
Lines 23-30 use warnings; Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
my $cgi = new CGI;
29
my $cgi = new CGI;
30
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
30
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/image-manage.pl (-2 / +2 lines)
Lines 8-15 use Graphics::Magick; Link Here
8
use POSIX qw(ceil);
8
use POSIX qw(ceil);
9
9
10
use C4::Context;
10
use C4::Context;
11
use C4::Auth;
11
use C4::Auth qw( get_template_and_user );
12
use C4::Output;
12
use C4::Output qw( output_html_with_http_headers );
13
use C4::Debug;
13
use C4::Debug;
14
use C4::Creators;
14
use C4::Creators;
15
use C4::Patroncards;
15
use C4::Patroncards;
(-)a/patroncards/manage.pl (-3 / +3 lines)
Lines 25-36 use vars qw($debug); Link Here
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use autouse 'Data::Dumper' => qw(Dumper);
26
use autouse 'Data::Dumper' => qw(Dumper);
27
27
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Creators;
30
use C4::Creators;
31
use C4::Patroncards;
31
use C4::Patroncards;
32
use C4::Labels;
32
use C4::Labels;
33
use Koha::List::Patron;
33
use Koha::List::Patron qw( GetPatronLists );
34
34
35
my $cgi = new CGI;
35
my $cgi = new CGI;
36
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
36
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/print.pl (-2 / +2 lines)
Lines 23-30 use warnings; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use autouse 'Data::Dumper' => qw(Dumper);
24
use autouse 'Data::Dumper' => qw(Dumper);
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Creators;
28
use C4::Creators;
29
use C4::Patroncards;
29
use C4::Patroncards;
30
30
(-)a/plugins/plugins-home.pl (-2 / +2 lines)
Lines 23-30 use warnings; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use Koha::Plugins;
25
use Koha::Plugins;
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Debug;
28
use C4::Debug;
29
use C4::Context;
29
use C4::Context;
30
30
(-)a/plugins/plugins-uninstall.pl (-1 / +1 lines)
Lines 24-30 use File::Copy; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
25
26
use C4::Context;
26
use C4::Context;
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output;
28
use C4::Output;
29
use C4::Members;
29
use C4::Members;
30
use C4::Debug;
30
use C4::Debug;
(-)a/plugins/plugins-upload.pl (-2 / +2 lines)
Lines 25-32 use File::Copy; Link Here
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Members;
30
use C4::Members;
31
use C4::Debug;
31
use C4::Debug;
32
use Koha::Plugins;
32
use Koha::Plugins;
(-)a/plugins/run.pl (-2 / +2 lines)
Lines 23-30 use warnings; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use Koha::Plugins::Handler;
25
use Koha::Plugins::Handler;
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Debug;
28
use C4::Debug;
29
use C4::Context;
29
use C4::Context;
30
30
(-)a/reports/acquisitions_stats.pl (-6 / +6 lines)
Lines 19-34 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Reports;
25
use C4::Reports qw( GetDelimiterChoices );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Biblio;
29
use C4::Biblio qw( GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField );
30
use Koha::ItemTypes;
30
use Koha::ItemTypes;
31
use Koha::DateUtils;
31
use Koha::DateUtils qw( dt_from_string output_pref );
32
use Koha::Libraries;
32
use Koha::Libraries;
33
33
34
=head1 NAME
34
=head1 NAME
(-)a/reports/bor_issues_top.pl (-4 / +4 lines)
Lines 20-35 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Members;
28
use C4::Members;
29
use C4::Reports;
29
use C4::Reports qw( GetDelimiterChoices );
30
use C4::Debug;
30
use C4::Debug;
31
31
32
use Koha::DateUtils;
32
use Koha::DateUtils qw( dt_from_string output_pref );
33
use Koha::ItemTypes;
33
use Koha::ItemTypes;
34
use Koha::Patron::Categories;
34
use Koha::Patron::Categories;
35
35
(-)a/reports/borrowers_out.pl (-4 / +4 lines)
Lines 21-35 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Reports;
29
use C4::Reports qw( GetDelimiterChoices );
30
use C4::Members;
30
use C4::Members;
31
31
32
use Koha::DateUtils;
32
use Koha::DateUtils qw( dt_from_string output_pref );
33
use Koha::Patron::Categories;
33
use Koha::Patron::Categories;
34
34
35
=head1 NAME
35
=head1 NAME
(-)a/reports/borrowers_stats.pl (-5 / +5 lines)
Lines 21-37 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use List::MoreUtils qw/uniq/;
22
use List::MoreUtils qw/uniq/;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha qw( GetAuthorisedValues );
27
use C4::Acquisition;
27
use C4::Acquisition;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Reports;
29
use C4::Reports qw( GetDelimiterChoices );
30
use C4::Circulation;
30
use C4::Circulation;
31
use C4::Members::AttributeTypes;
31
use C4::Members::AttributeTypes;
32
32
33
use Koha::AuthorisedValues;
33
use Koha::AuthorisedValues;
34
use Koha::DateUtils;
34
use Koha::DateUtils qw( dt_from_string output_pref );
35
use Koha::Libraries;
35
use Koha::Libraries;
36
use Koha::Patron::Categories;
36
use Koha::Patron::Categories;
37
37
(-)a/reports/cash_register_stats.pl (-4 / +4 lines)
Lines 15-29 Link Here
15
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
15
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
use C4::Auth;
18
use C4::Auth qw( get_template_and_user );
19
use CGI;
19
use CGI;
20
use C4::Context;
20
use C4::Context;
21
use C4::Reports;
21
use C4::Reports qw( GetDelimiterChoices );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Circulation;
24
use C4::Circulation;
25
use DateTime;
25
use DateTime;
26
use Koha::DateUtils;
26
use Koha::DateUtils qw( dt_from_string output_pref );
27
use Text::CSV::Encoded;
27
use Text::CSV::Encoded;
28
28
29
my $input            = new CGI;
29
my $input            = new CGI;
(-)a/reports/cat_issues_top.pl (-5 / +5 lines)
Lines 20-34 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Reports;
29
use C4::Reports qw( GetDelimiterChoices );
30
use C4::Members;
30
use C4::Members;
31
use Koha::DateUtils;
31
use Koha::DateUtils qw( dt_from_string output_pref );
32
use Koha::ItemTypes;
32
use Koha::ItemTypes;
33
33
34
=head1 NAME
34
=head1 NAME
(-)a/reports/catalogue_out.pl (-2 / +2 lines)
Lines 21-30 use strict; Link Here
21
use warnings;
21
use warnings;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Debug;
26
use C4::Debug;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
# use Date::Manip;  # TODO: add not borrowed since date X criteria
28
# use Date::Manip;  # TODO: add not borrowed since date X criteria
29
use Data::Dumper;
29
use Data::Dumper;
30
30
(-)a/reports/catalogue_stats.pl (-6 / +6 lines)
Lines 20-36 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Reports;
28
use C4::Reports qw( GetDelimiterChoices );
29
use C4::Circulation;
29
use C4::Circulation;
30
use C4::Biblio qw/GetMarcSubfieldStructureFromKohaField/;
30
use C4::Biblio qw( GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField );
31
31
32
use Koha::AuthorisedValues;
32
use Koha::AuthorisedValues;
33
use Koha::DateUtils;
33
use Koha::DateUtils qw( dt_from_string );
34
use Koha::ItemTypes;
34
use Koha::ItemTypes;
35
35
36
=head1 NAME
36
=head1 NAME
(-)a/reports/dictionary.pl (-4 / +4 lines)
Lines 19-29 Link Here
19
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
19
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Reports::Guided;
25
use C4::Reports::Guided qw( get_from_dictionary get_columns get_column_type get_distinct_values save_dictionary delete_definition get_report_areas );
26
use Koha::DateUtils;
26
use Koha::DateUtils qw( dt_from_string output_pref );
27
27
28
=head1 NAME
28
=head1 NAME
29
29
(-)a/reports/guided_reports.pl (-5 / +5 lines)
Lines 24-37 use Encode qw( decode ); Link Here
24
use URI::Escape;
24
use URI::Escape;
25
use File::Temp;
25
use File::Temp;
26
use File::Basename qw( dirname );
26
use File::Basename qw( dirname );
27
use C4::Reports::Guided;
27
use C4::Reports::Guided qw( delete_report get_report_areas get_saved_report convert_sql update_sql get_saved_reports get_results ValidateSQLParameters format_results get_report_types get_columns get_from_dictionary get_criteria build_query save_report execute_query nb_rows create_compound get_report_groups );
28
use C4::Auth qw/:DEFAULT get_session/;
28
use C4::Auth qw( get_template_and_user get_session );
29
use C4::Output;
29
use C4::Output qw( pagination_bar output_html_with_http_headers );
30
use C4::Debug;
30
use C4::Debug;
31
use C4::Context;
31
use C4::Context;
32
use Koha::Caches;
32
use Koha::Caches;
33
use C4::Log;
33
use C4::Log qw( logaction );
34
use Koha::DateUtils qw/dt_from_string output_pref/;
34
use Koha::DateUtils qw( dt_from_string output_pref );
35
use Koha::AuthorisedValue;
35
use Koha::AuthorisedValue;
36
use Koha::AuthorisedValues;
36
use Koha::AuthorisedValues;
37
use Koha::BiblioFrameworks;
37
use Koha::BiblioFrameworks;
(-)a/reports/issues_avg_stats.pl (-4 / +4 lines)
Lines 20-33 Link Here
20
20
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Reports;
29
use C4::Reports qw( GetDelimiterChoices );
30
use Koha::DateUtils;
30
use Koha::DateUtils qw( dt_from_string output_pref );
31
use Koha::ItemTypes;
31
use Koha::ItemTypes;
32
use Koha::Patron::Categories;
32
use Koha::Patron::Categories;
33
use Date::Calc qw(Delta_Days);
33
use Date::Calc qw(Delta_Days);
(-)a/reports/issues_stats.pl (-5 / +5 lines)
Lines 23-39 use warnings; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use Date::Manip;
24
use Date::Manip;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Debug;
27
use C4::Debug;
28
use C4::Context;
28
use C4::Context;
29
use C4::Koha;
29
use C4::Koha qw( GetAuthorisedValues );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Circulation;
31
use C4::Circulation;
32
use C4::Reports;
32
use C4::Reports qw( GetDelimiterChoices );
33
use C4::Members;
33
use C4::Members;
34
34
35
use Koha::AuthorisedValues;
35
use Koha::AuthorisedValues;
36
use Koha::DateUtils;
36
use Koha::DateUtils qw( dt_from_string output_pref );
37
use Koha::ItemTypes;
37
use Koha::ItemTypes;
38
use C4::Members::AttributeTypes;
38
use C4::Members::AttributeTypes;
39
39
(-)a/reports/itemslost.pl (-2 / +2 lines)
Lines 29-36 use strict; Link Here
29
use warnings;
29
use warnings;
30
30
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Biblio;
34
use C4::Biblio;
35
use C4::Items;
35
use C4::Items;
36
use Koha::DateUtils;
36
use Koha::DateUtils;
(-)a/reports/manager.pl (-2 / +2 lines)
Lines 20-28 Link Here
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Circulation;
26
use C4::Circulation;
27
27
28
28
(-)a/reports/orders_by_fund.pl (-6 / +6 lines)
Lines 28-40 This script displays all orders associated to a selected budget. Link Here
28
use Modern::Perl;
28
use Modern::Perl;
29
29
30
use CGI qw( -utf8 );
30
use CGI qw( -utf8 );
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Budgets;
33
use C4::Budgets qw( GetBudget GetBudgetsReport GetBudgets GetBudgetReport GetBudgetHierarchy );
34
use C4::Biblio;
34
use C4::Biblio qw( GetBiblio );
35
use C4::Reports;
35
use C4::Reports;
36
use C4::Acquisition; #GetBasket()
36
use C4::Acquisition qw( GetBasket );
37
use Koha::DateUtils;
37
use Koha::DateUtils qw( dt_from_string output_pref );
38
38
39
my $query = new CGI;
39
my $query = new CGI;
40
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
40
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/reports/reports-home.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use strict;
21
use strict;
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
27
28
28
(-)a/reports/reserves_stats.pl (-5 / +5 lines)
Lines 21-35 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Debug;
25
use C4::Debug;
26
use C4::Context;
26
use C4::Context;
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Reports;
29
use C4::Reports qw( GetDelimiterChoices );
30
use C4::Members;
30
use C4::Members;
31
use Koha::AuthorisedValues;
31
use Koha::AuthorisedValues;
32
use Koha::DateUtils;
32
use Koha::DateUtils qw( dt_from_string output_pref );
33
use Koha::ItemTypes;
33
use Koha::ItemTypes;
34
use Koha::Libraries;
34
use Koha::Libraries;
35
use Koha::Patron::Categories;
35
use Koha::Patron::Categories;
(-)a/reports/serials_stats.pl (-4 / +4 lines)
Lines 19-31 Link Here
19
19
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Reports;
27
use C4::Reports qw( GetDelimiterChoices );
28
use C4::Serials;
28
use C4::Serials qw( GetExpirationDate HasSubscriptionExpired );
29
29
30
=head1 serials_out
30
=head1 serials_out
31
31
(-)a/reports/stats.print.pl (-1 / +1 lines)
Lines 8-14 use C4::Output; Link Here
8
use C4::Auth;
8
use C4::Auth;
9
use C4::Context;
9
use C4::Context;
10
use Date::Manip;
10
use Date::Manip;
11
use C4::Stats;
11
use C4::Stats qw( TotalPaid );
12
use Text::CSV_XS;
12
use Text::CSV_XS;
13
&Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005
13
&Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005
14
14
(-)a/reserve/modrequest.pl (-2 / +2 lines)
Lines 26-33 use strict; Link Here
26
use warnings;
26
use warnings;
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Output;
28
use C4::Output;
29
use C4::Reserves;
29
use C4::Reserves qw( ModReserve ModReserveCancelAll );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
31
32
my $query = new CGI;
32
my $query = new CGI;
33
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
33
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/reserve/modrequest_suspendall.pl (-2 / +2 lines)
Lines 26-33 use strict; Link Here
26
use warnings;
26
use warnings;
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Output;
28
use C4::Output;
29
use C4::Reserves;
29
use C4::Reserves qw( SuspendAll );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
31
32
my $query = new CGI;
32
my $query = new CGI;
33
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
33
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/reserve/placerequest.pl (-4 / +4 lines)
Lines 26-37 use warnings; Link Here
26
26
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Biblio;
28
use C4::Biblio;
29
use C4::Items;
29
use C4::Items qw( GetItem );
30
use C4::Output;
30
use C4::Output;
31
use C4::Reserves;
31
use C4::Reserves qw( AddReserve );
32
use C4::Circulation;
32
use C4::Circulation;
33
use C4::Members;
33
use C4::Members qw( GetMember );
34
use C4::Auth qw/checkauth/;
34
use C4::Auth qw( checkauth );
35
35
36
my $input = CGI->new();
36
my $input = CGI->new();
37
37
(-)a/reserve/request.pl (-11 / +11 lines)
Lines 31-48 use Modern::Perl; Link Here
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use List::MoreUtils qw/uniq/;
32
use List::MoreUtils qw/uniq/;
33
use Date::Calc qw/Date_to_Days/;
33
use Date::Calc qw/Date_to_Days/;
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Auth;
35
use C4::Auth qw( get_template_and_user );
36
use C4::Reserves;
36
use C4::Reserves qw( AlterPriority CancelReserve ToggleLowestPriority ToggleSuspend GetReserve GetReserveCount CanBookBeReserved GetMaxPatronHoldsForRecord CanItemBeReserved OPACItemHoldsAllowed IsAvailableForItemLevelRequest );
37
use C4::Biblio;
37
use C4::Biblio qw( GetBiblioData GetBiblio GetBiblioItemInfosOf GetFrameworkCode );
38
use C4::Items;
38
use C4::Items qw( get_hostitemnumbers_of GetItem );
39
use C4::Koha;
39
use C4::Koha qw( getitemtypeimagelocation );
40
use C4::Circulation;
40
use C4::Circulation qw( CheckIfIssuedToPatron GetItemIssue GetTransfers _GetCircControlBranch GetBranchItemRule );
41
use Koha::DateUtils;
41
use Koha::DateUtils qw( dt_from_string output_pref );
42
use C4::Utils::DataTables::Members;
42
use C4::Utils::DataTables::Members;
43
use C4::Members;
43
use C4::Members qw( GetMember GetMemberAccountRecords );
44
use C4::Search;		# enabled_staff_search_views
44
use C4::Search qw( enabled_staff_search_views );
45
use Koha::DateUtils;
45
use Koha::DateUtils qw( dt_from_string output_pref );
46
use Koha::Holds;
46
use Koha::Holds;
47
use Koha::Items;
47
use Koha::Items;
48
use Koha::ItemTypes;
48
use Koha::ItemTypes;
(-)a/reviews/reviewswaiting.pl (-4 / +4 lines)
Lines 18-28 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( pagination_bar output_html_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use C4::Members;
24
use C4::Members qw( GetMember );
25
use C4::Biblio;
25
use C4::Biblio qw( GetBiblioData GetBiblio );
26
use Koha::Reviews;
26
use Koha::Reviews;
27
27
28
my $query = new CGI;
28
my $query = new CGI;
(-)a/rotating_collections/addItems.pl (-4 / +4 lines)
Lines 18-28 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use C4::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Context;
23
use C4::Context;
24
use C4::RotatingCollections;
24
use C4::RotatingCollections qw( AddItemToCollection RemoveItemFromCollection GetCollection GetItemsInCollection );
25
use C4::Items;
25
use C4::Items qw( GetItem GetItemnumberFromBarcode AddItem );
26
26
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
28
(-)a/rotating_collections/editCollections.pl (-3 / +3 lines)
Lines 20-30 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::RotatingCollections;
27
use C4::RotatingCollections qw( CreateCollection DeleteCollection GetCollection UpdateCollection );
28
28
29
my $query = new CGI;
29
my $query = new CGI;
30
30
(-)a/rotating_collections/rotatingCollections.pl (-3 / +3 lines)
Lines 20-29 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::RotatingCollections;
26
use C4::RotatingCollections qw( GetCollections GetCollection );
27
27
28
my $query = new CGI;
28
my $query = new CGI;
29
29
(-)a/rotating_collections/transferCollection.pl (-3 / +3 lines)
Lines 18-27 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use C4::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Context;
23
use C4::Context;
24
use C4::RotatingCollections;
24
use C4::RotatingCollections qw( TransferCollection GetCollection );
25
25
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
27
(-)a/serials/acqui-search-result.pl (-3 / +3 lines)
Lines 42-53 acqui-search-result.pl Link Here
42
42
43
use strict;
43
use strict;
44
use warnings;
44
use warnings;
45
use C4::Auth;
45
use C4::Auth qw( get_template_and_user );
46
use C4::Biblio;
46
use C4::Biblio;
47
use C4::Output;
47
use C4::Output qw( output_html_with_http_headers );
48
use CGI qw ( -utf8 );
48
use CGI qw ( -utf8 );
49
use C4::Acquisition qw( SearchOrders );
49
use C4::Acquisition qw( SearchOrders );
50
use Koha::DateUtils;
50
use Koha::DateUtils qw( output_pref );
51
51
52
use Koha::Acquisition::Booksellers;
52
use Koha::Acquisition::Booksellers;
53
53
(-)a/serials/acqui-search.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
my $query = new CGI;
27
my $query = new CGI;
28
28
(-)a/serials/add_fields.pl (-2 / +2 lines)
Lines 18-26 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI;
20
use CGI;
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Koha;
22
use C4::Koha;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use Koha::AdditionalField;
24
use Koha::AdditionalField;
25
25
26
my $input = new CGI;
26
my $input = new CGI;
(-)a/serials/add_user_search.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/serials/checkexpiration.pl (-4 / +4 lines)
Lines 45-55 The date to filter on. Link Here
45
use strict;
45
use strict;
46
use warnings;
46
use warnings;
47
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
48
use C4::Auth;
48
use C4::Auth qw( get_template_and_user );
49
use C4::Serials; # GetExpirationDate
49
use C4::Serials qw( SearchSubscriptions GetExpirationDate );
50
use C4::Output;
50
use C4::Output qw( output_html_with_http_headers );
51
use C4::Context;
51
use C4::Context;
52
use Koha::DateUtils;
52
use Koha::DateUtils qw( dt_from_string );
53
53
54
use DateTime;
54
use DateTime;
55
55
(-)a/serials/claims.pl (-4 / +4 lines)
Lines 19-30 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Serials;
23
use C4::Serials qw( GetSuppliersWithLateIssues GetLateOrMissingIssues updateClaim can_claim_subscription );
24
use C4::Acquisition;
24
use C4::Acquisition;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use C4::Letters;
27
use C4::Letters qw( SendAlerts GetLetters );
28
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Koha qw( GetAuthorisedValues );
29
29
30
use Koha::AdditionalField;
30
use Koha::AdditionalField;
(-)a/serials/create-numberpattern.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
22
use C4::Context;
23
use C4::Serials::Numberpattern;
23
use C4::Serials::Numberpattern qw( AddSubscriptionNumberpattern ModSubscriptionNumberpattern );
24
use C4::Auth qw/check_cookie_auth/;
24
use C4::Auth qw( check_cookie_auth );
25
use URI::Escape;
25
use URI::Escape;
26
26
27
my $input = new CGI;
27
my $input = new CGI;
(-)a/serials/lateissues-export.pl (-1 / +1 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
use C4::Auth;
20
use C4::Auth;
21
use C4::Serials;
21
use C4::Serials qw( GetLateOrMissingIssues updateClaim );
22
use C4::Acquisition;
22
use C4::Acquisition;
23
use C4::Output;
23
use C4::Output;
24
use C4::Context;
24
use C4::Context;
(-)a/serials/routing-preview.pl (-7 / +7 lines)
Lines 22-37 use strict; Link Here
22
use warnings;
22
use warnings;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Acquisition;
27
use C4::Acquisition;
28
use C4::Reserves;
28
use C4::Reserves qw( AddReserve ModReserve );
29
use C4::Circulation;
29
use C4::Circulation;
30
use C4::Context;
30
use C4::Context;
31
use C4::Members;
31
use C4::Members qw( GetMember );
32
use C4::Biblio;
32
use C4::Biblio qw( GetBiblioItemByBiblioNumber GetBiblio );
33
use C4::Items;
33
use C4::Items qw( GetItem GetItemsInfo );
34
use C4::Serials;
34
use C4::Serials qw( delroutingmember getroutinglist GetSubscription GetSerials check_routing );
35
use URI::Escape;
35
use URI::Escape;
36
36
37
use Koha::Biblios;
37
use Koha::Biblios;
(-)a/serials/routing.pl (-5 / +5 lines)
Lines 29-42 use strict; Link Here
29
use warnings;
29
use warnings;
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use C4::Koha;
31
use C4::Koha;
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Acquisition;
34
use C4::Acquisition;
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
use C4::Context;
36
use C4::Context;
37
37
38
use C4::Members;
38
use C4::Members qw( GetMember );
39
use C4::Serials;
39
use C4::Serials qw( delroutingmember addroutingmember getroutinglist GetSubscription GetSerials GetLatestSerials check_routing );
40
40
41
use URI::Escape;
41
use URI::Escape;
42
42
(-)a/serials/serial-issues.pl (-3 / +3 lines)
Lines 44-53 the biblionumber this script has to give more infos. Link Here
44
use strict;
44
use strict;
45
use warnings;
45
use warnings;
46
use CGI qw ( -utf8 );
46
use CGI qw ( -utf8 );
47
use C4::Auth;
47
use C4::Auth qw( get_template_and_user );
48
use C4::Koha;
48
use C4::Koha;
49
use C4::Serials;
49
use C4::Serials qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
50
use C4::Output;
50
use C4::Output qw( output_html_with_http_headers );
51
use C4::Context;
51
use C4::Context;
52
52
53
53
(-)a/serials/serials-collection.pl (-3 / +3 lines)
Lines 22-32 Link Here
22
use strict;
22
use strict;
23
use warnings;
23
use warnings;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Serials;
27
use C4::Serials qw( ModSerialStatus GetSubscription GetNextExpected GetNextSeq GetNextDate NewIssue HasSubscriptionExpired abouttoexpire check_routing GetFullSubscription PrepareSerialsData CountSubscriptionFromBiblionumber GetSubscriptionsFromBiblionumber GetFullSubscriptionsFromBiblionumber );
28
use C4::Letters;
28
use C4::Letters;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Context;
30
use C4::Context;
31
31
32
use List::MoreUtils qw/uniq/;
32
use List::MoreUtils qw/uniq/;
(-)a/serials/serials-edit.pl (-7 / +7 lines)
Lines 65-79 use strict; Link Here
65
use warnings;
65
use warnings;
66
use CGI qw ( -utf8 );
66
use CGI qw ( -utf8 );
67
use Encode qw( decode is_utf8 );
67
use Encode qw( decode is_utf8 );
68
use C4::Auth;
68
use C4::Auth qw( get_template_and_user haspermission );
69
use C4::Biblio;
69
use C4::Biblio qw( GetBiblioData GetBiblio TransformHtmlToXml GetMarcFromKohaField GetFrameworkCode );
70
use C4::Items;
70
use C4::Items qw( PrepareItemrecordDisplay ModItem GetItem GetItemnumberFromBarcode AddItemFromMarc AddItem ModItemFromMarc );
71
use C4::Koha;
71
use C4::Koha;
72
use C4::Output;
72
use C4::Output qw( output_html_with_http_headers );
73
use C4::Context;
73
use C4::Context;
74
use C4::Serials;
74
use C4::Serials qw( GetSerials GetSerials2 GetSerialInformation HasSubscriptionExpired GetSubscription abouttoexpire NewIssue ModSerialStatus GetPreviousSerialid AddItem2Serial );
75
use C4::Search qw/enabled_staff_search_views/;
75
use C4::Search qw( enabled_staff_search_views );
76
use Koha::DateUtils;
76
use Koha::DateUtils qw( dt_from_string output_pref );
77
use Koha::Serial::Items;
77
use Koha::Serial::Items;
78
78
79
use List::MoreUtils qw/uniq/;
79
use List::MoreUtils qw/uniq/;
(-)a/serials/serials-home.pl (-2 / +2 lines)
Lines 30-38 this script is the main page for serials/ Link Here
30
30
31
use Modern::Perl;
31
use Modern::Perl;
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Context;
34
use C4::Context;
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
use C4::Serials;
36
use C4::Serials;
37
37
38
my $query   = new CGI;
38
my $query   = new CGI;
(-)a/serials/serials-search.pl (-4 / +4 lines)
Lines 30-43 this script is the search page for serials Link Here
30
30
31
use Modern::Perl;
31
use Modern::Perl;
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Context;
34
use C4::Context;
35
use C4::Koha qw( GetAuthorisedValues );
35
use C4::Koha qw( GetAuthorisedValues );
36
use C4::Output;
36
use C4::Output qw( output_html_with_http_headers );
37
use C4::Serials;
37
use C4::Serials qw( CloseSubscription ReopenSubscription SearchSubscriptions check_routing );
38
use Koha::AdditionalField;
38
use Koha::AdditionalField;
39
39
40
use Koha::DateUtils;
40
use Koha::DateUtils qw( dt_from_string );
41
41
42
my $query         = new CGI;
42
my $query         = new CGI;
43
my $title         = $query->param('title_filter') || '';
43
my $title         = $query->param('title_filter') || '';
(-)a/serials/showpredictionpattern.pl (-5 / +5 lines)
Lines 32-42 use Modern::Perl; Link Here
32
32
33
use CGI qw ( -utf8 );
33
use CGI qw ( -utf8 );
34
use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM);
34
use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM);
35
use C4::Auth;
35
use C4::Auth qw( get_template_and_user );
36
use C4::Output;
36
use C4::Output qw( output_html_with_http_headers );
37
use C4::Serials;
37
use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq );
38
use C4::Serials::Frequency;
38
use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq );
39
use Koha::DateUtils;
39
use Koha::DateUtils qw( output_pref dt_from_string );
40
40
41
my $input = new CGI;
41
my $input = new CGI;
42
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
42
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
(-)a/serials/subscription-add.pl (-9 / +9 lines)
Lines 20-37 use warnings; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
22
use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
23
use C4::Koha;
23
use C4::Koha qw( GetAuthorisedValues );
24
use C4::Biblio;
24
use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Acquisition;
26
use C4::Acquisition;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Context;
28
use C4::Context;
29
use C4::Serials;
29
use C4::Serials qw( GetSubscription GetNextExpected GetSerials NewSubscription ModNextExpected ModSubscription );
30
use C4::Serials::Frequency;
30
use C4::Serials qw( GetSubscription GetNextExpected GetSerials NewSubscription ModNextExpected ModSubscription );
31
use C4::Serials::Numberpattern;
31
use C4::Serials qw( GetSubscription GetNextExpected GetSerials NewSubscription ModNextExpected ModSubscription );
32
use C4::Letters;
32
use C4::Letters qw( GetLetters );
33
use Koha::AdditionalField;
33
use Koha::AdditionalField;
34
use Koha::DateUtils;
34
use Koha::DateUtils qw( output_pref );
35
use Koha::ItemTypes;
35
use Koha::ItemTypes;
36
use Carp;
36
use Carp;
37
37
(-)a/serials/subscription-bib-search.pl (-5 / +5 lines)
Lines 50-61 use strict; Link Here
50
use warnings;
50
use warnings;
51
51
52
use CGI qw ( -utf8 );
52
use CGI qw ( -utf8 );
53
use C4::Koha;
53
use C4::Koha qw( GetAuthorisedValues );
54
use C4::Auth;
54
use C4::Auth qw( get_template_and_user );
55
use C4::Context;
55
use C4::Context;
56
use C4::Output;
56
use C4::Output qw( output_html_with_http_headers );
57
use C4::Search;
57
use C4::Search qw( new_record_from_zebra );
58
use C4::Biblio;
58
use C4::Biblio qw( TransformMarcToKoha );
59
use C4::Debug;
59
use C4::Debug;
60
60
61
use Koha::ItemTypes;
61
use Koha::ItemTypes;
(-)a/serials/subscription-detail.pl (-8 / +8 lines)
Lines 17-33 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
use C4::Acquisition;
20
use C4::Acquisition qw( GetLastOrderNotReceivedFromSubscriptionid GetLastOrderReceivedFromSubscriptionid GetBasket );
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user checkauth );
22
use C4::Budgets;
22
use C4::Budgets qw( GetBudgetName GetBudget );
23
use C4::Koha;
23
use C4::Koha qw( GetAuthorisedValues );
24
use C4::Serials;
24
use C4::Serials qw( CloseSubscription ReopenSubscription GetSubscription GetExpirationDate GetSerials HasSubscriptionStrictlyExpired CountIssues HasItems DelSubscription check_routing abouttoexpire can_edit_subscription );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use C4::Search qw/enabled_staff_search_views/;
27
use C4::Search qw( enabled_staff_search_views );
28
28
29
use Koha::AuthorisedValues;
29
use Koha::AuthorisedValues;
30
use Koha::DateUtils;
30
use Koha::DateUtils qw( output_pref );
31
use Koha::Acquisition::Bookseller;
31
use Koha::Acquisition::Bookseller;
32
32
33
use Date::Calc qw/Today Day_of_Year Week_of_Year Add_Delta_Days/;
33
use Date::Calc qw/Today Day_of_Year Week_of_Year Add_Delta_Days/;
(-)a/serials/subscription-frequencies.pl (-4 / +4 lines)
Lines 31-40 use Modern::Perl; Link Here
31
31
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
33
34
use C4::Auth;
34
use C4::Auth qw( get_template_and_user );
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
use C4::Serials;
36
use C4::Serials qw( GetSubscription ModSubscription DelSubscription );
37
use C4::Serials::Frequency;
37
use C4::Serials qw( GetSubscription ModSubscription DelSubscription );
38
38
39
my $input = new CGI;
39
my $input = new CGI;
40
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
40
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
(-)a/serials/subscription-frequency.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
22
use C4::Context;
23
use C4::Serials::Frequency;
23
use C4::Serials::Frequency qw( GetSubscriptionFrequency );
24
use C4::Auth qw/check_cookie_auth/;
24
use C4::Auth qw( check_cookie_auth );
25
use JSON qw( to_json );
25
use JSON qw( to_json );
26
26
27
my $input=new CGI;
27
my $input=new CGI;
(-)a/serials/subscription-history.pl (-5 / +5 lines)
Lines 30-41 Modify subscription history Link Here
30
use Modern::Perl;
30
use Modern::Perl;
31
31
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
35
36
use C4::Biblio;
36
use C4::Biblio qw( GetBiblio );
37
use C4::Serials;
37
use C4::Serials qw( ModSubscriptionHistory ModSubscription GetSubscriptionHistoryFromSubscriptionId GetSubscription );
38
use Koha::DateUtils;
38
use Koha::DateUtils qw( output_pref );
39
39
40
my $input = new CGI;
40
my $input = new CGI;
41
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
41
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
(-)a/serials/subscription-numberpattern.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Serials::Numberpattern;
22
use C4::Serials::Numberpattern qw( GetSubscriptionNumberpattern );
23
use C4::Auth qw/check_cookie_auth/;
23
use C4::Auth qw( check_cookie_auth );
24
use JSON qw( to_json );
24
use JSON qw( to_json );
25
25
26
my $input=new CGI;
26
my $input=new CGI;
(-)a/serials/subscription-numberpatterns.pl (-4 / +4 lines)
Lines 30-39 Manage numbering patterns Link Here
30
use Modern::Perl;
30
use Modern::Perl;
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
32
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Serials::Numberpattern;
35
use C4::Serials::Numberpattern qw( GetSubscriptionNumberpattern GetSubscriptionNumberpatternByName AddSubscriptionNumberpattern ModSubscriptionNumberpattern DelSubscriptionNumberpattern GetSubscriptionsWithNumberpattern GetSubscriptionNumberpatterns );
36
use C4::Serials::Frequency;
36
use C4::Serials::Frequency qw( GetSubscriptionFrequencies );
37
37
38
my $input = new CGI;
38
my $input = new CGI;
39
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
39
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
(-)a/serials/subscription-renew.pl (-5 / +5 lines)
Lines 49-60 use warnings; Link Here
49
use CGI qw ( -utf8 );
49
use CGI qw ( -utf8 );
50
use Carp;
50
use Carp;
51
use C4::Koha;
51
use C4::Koha;
52
use C4::Auth;
52
use C4::Auth qw( get_template_and_user );
53
use C4::Context;
53
use C4::Context;
54
use C4::Auth;
54
use C4::Auth qw( get_template_and_user );
55
use C4::Output;
55
use C4::Output qw( output_html_with_http_headers );
56
use C4::Serials;
56
use C4::Serials qw( NewSubscription ReNewSubscription GetSubscription );
57
use Koha::DateUtils;
57
use Koha::DateUtils qw( output_pref dt_from_string );
58
58
59
my $query = new CGI;
59
my $query = new CGI;
60
my $dbh   = C4::Context->dbh;
60
my $dbh   = C4::Context->dbh;
(-)a/serials/viewalerts.pl (-4 / +4 lines)
Lines 21-32 Link Here
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Letters;
28
use C4::Letters qw( getalert findrelatedto );
29
use C4::Serials;
29
use C4::Serials qw( GetSubscription );
30
30
31
my $dbh = C4::Context->dbh;
31
my $dbh = C4::Context->dbh;
32
32
(-)a/services/itemrecorddisplay.pl (-3 / +3 lines)
Lines 31-39 use strict; Link Here
31
use warnings;
31
use warnings;
32
32
33
use CGI qw ( -utf8 );
33
use CGI qw ( -utf8 );
34
use C4::Auth;
34
use C4::Auth qw( get_template_and_user );
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
use C4::Items;
36
use C4::Items qw( PrepareItemrecordDisplay );
37
37
38
my $input = new CGI;
38
my $input = new CGI;
39
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
39
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
(-)a/sms/sms.pl (-2 / +2 lines)
Lines 4-11 use strict; Link Here
4
#use warnings; FIXME - Bug 2505
4
#use warnings; FIXME - Bug 2505
5
use CGI qw ( -utf8 );
5
use CGI qw ( -utf8 );
6
use C4::SMS;
6
use C4::SMS;
7
use C4::Output;
7
use C4::Output qw( output_html_with_http_headers );
8
use C4::Auth;
8
use C4::Auth qw( get_template_and_user );
9
9
10
my $query = new CGI;
10
my $query = new CGI;
11
my $message   = $query->param( 'message' );
11
my $message   = $query->param( 'message' );
(-)a/sms/sms_listen.pl (-1 / +1 lines)
Lines 4-10 use strict; Link Here
4
use warnings;
4
use warnings;
5
5
6
use C4::SMS;
6
use C4::SMS;
7
use C4::Auth;
7
use C4::Auth qw( checkpw );
8
use C4::Context;
8
use C4::Context;
9
use C4::Members;
9
use C4::Members;
10
use C4::Circulation;
10
use C4::Circulation;
(-)a/suggestion/suggestion.pl (-6 / +6 lines)
Lines 21-33 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
require Exporter;
22
require Exporter;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;    # get_template_and_user
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Suggestions;
26
use C4::Suggestions;
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Budgets;
28
use C4::Budgets qw( GetBudget GetBudgets CanUserUseBudget );
29
use C4::Search;
29
use C4::Search qw( GetDistinctValues );
30
use C4::Members;
30
use C4::Members qw( GetMember );
31
use C4::Debug;
31
use C4::Debug;
32
32
33
use Koha::DateUtils qw( dt_from_string );
33
use Koha::DateUtils qw( dt_from_string );
(-)a/tags/list.pl (-5 / +5 lines)
Lines 21-33 use warnings; Link Here
21
use strict;
21
use strict;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth qw(:DEFAULT check_cookie_auth);
24
use C4::Auth qw( get_template_and_user );
25
use C4::Biblio;
25
use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetRecordValue GetFrameworkCode );
26
use C4::Context;
26
use C4::Context;
27
use C4::Items;
27
use C4::Items qw( GetItem GetItemsInfo );
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Tags qw(get_tags remove_tag get_tag_rows);
29
use C4::Tags qw( remove_tag get_tag_rows get_tag get_tags );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
my $needed_flags = { tools => 'moderate_tags'
32
my $needed_flags = { tools => 'moderate_tags'
33
};    # FIXME: replace when more specific permission is created.
33
};    # FIXME: replace when more specific permission is created.
(-)a/tags/review.pl (-4 / +4 lines)
Lines 26-38 use POSIX; Link Here
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
27
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
28
28
29
use C4::Auth qw(:DEFAULT check_cookie_auth);
29
use C4::Auth qw( check_cookie_auth get_template_and_user );
30
use C4::Context;
30
use C4::Context;
31
use Koha::DateUtils;
31
use Koha::DateUtils qw( dt_from_string output_pref );
32
# use C4::Koha;
32
# use C4::Koha;
33
use C4::Output qw(:html :ajax pagination_bar);
33
use C4::Output qw( output_with_http_headers is_ajax pagination_bar output_html_with_http_headers );
34
use C4::Debug;
34
use C4::Debug;
35
use C4::Tags qw(get_tags get_approval_rows approval_counts whitelist blacklist is_approved);
35
use C4::Tags qw( is_approved whitelist blacklist approval_counts get_approval_rows );
36
36
37
my $script_name = "/cgi-bin/koha/tags/review.pl";
37
my $script_name = "/cgi-bin/koha/tags/review.pl";
38
my $needed_flags = { tools => 'moderate_tags' };	# FIXME: replace when more specific permission is created.
38
my $needed_flags = { tools => 'moderate_tags' };	# FIXME: replace when more specific permission is created.
(-)a/test/search.pl (-1 / +1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl -w
1
#!/usr/bin/perl -w
2
2
3
use C4::Search;
3
use C4::Search qw( buildQuery );
4
4
5
my @SEARCH = (
5
my @SEARCH = (
6
    { operators => [
6
    { operators => [
(-)a/tools/ajax-inventory.pl (-1 / +1 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI qw ( -utf8 );
4
use CGI qw ( -utf8 );
5
use C4::Auth;
5
use C4::Auth qw( check_api_auth );
6
use C4::Items qw( ModDateLastSeen );
6
use C4::Items qw( ModDateLastSeen );
7
7
8
my $input = new CGI;
8
my $input = new CGI;
(-)a/tools/automatic_item_modification_by_age.pl (-2 / +2 lines)
Lines 34-43 use Modern::Perl; Link Here
34
use CGI;
34
use CGI;
35
use JSON qw( to_json from_json );
35
use JSON qw( to_json from_json );
36
36
37
use C4::Auth;
37
use C4::Auth qw( get_template_and_user );
38
use C4::Context;
38
use C4::Context;
39
use C4::Items;
39
use C4::Items;
40
use C4::Output;
40
use C4::Output qw( output_html_with_http_headers );
41
use C4::Koha;
41
use C4::Koha;
42
42
43
use Koha::Items;
43
use Koha::Items;
(-)a/tools/background-job-progress.pl (-1 / +1 lines)
Lines 25-31 use IO::File; Link Here
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use CGI::Session;
26
use CGI::Session;
27
use C4::Context;
27
use C4::Context;
28
use C4::Auth qw/check_cookie_auth/;
28
use C4::Auth qw( check_cookie_auth );
29
use C4::BackgroundJob;
29
use C4::BackgroundJob;
30
use CGI::Cookie; # need to check cookies before
30
use CGI::Cookie; # need to check cookies before
31
                 # having CGI parse the POST request
31
                 # having CGI parse the POST request
(-)a/tools/batchMod.pl (-8 / +8 lines)
Lines 21-42 Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use strict;
22
use strict;
23
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user haspermission );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcStructure GetBiblionumberFromItemnumber GetBiblio GetMarcFromKohaField TransformHtmlToXml DelBiblio IsMarcStructureInternal GetAuthorisedValueDesc GetBiblioData );
27
use C4::Items;
27
use C4::Items qw( GetBarcodeFromItemnumber GetItem DelItem DelItemCheck Item2Marc ModItemFromMarc ModItem GetItemnumberFromBarcode GetItemsInfo );
28
use C4::Circulation;
28
use C4::Circulation qw( LostItem IsItemIssued );
29
use C4::Context;
29
use C4::Context;
30
use C4::Koha;
30
use C4::Koha;
31
use C4::BackgroundJob;
31
use C4::BackgroundJob;
32
use C4::ClassSource;
32
use C4::ClassSource qw( GetClassSources GetClassSource );
33
use C4::Debug;
33
use C4::Debug;
34
use C4::Members;
34
use C4::Members qw( GetMember );
35
use MARC::File::XML;
35
use MARC::File::XML;
36
use List::MoreUtils qw/uniq/;
36
use List::MoreUtils qw/uniq/;
37
37
38
use Koha::Biblios;
38
use Koha::Biblios;
39
use Koha::DateUtils;
39
use Koha::DateUtils qw( dt_from_string );
40
use Koha::ItemTypes;
40
use Koha::ItemTypes;
41
41
42
my $input = new CGI;
42
my $input = new CGI;
(-)a/tools/batch_delete_records.pl (-4 / +4 lines)
Lines 23-32 use Modern::Perl; Link Here
23
use CGI;
23
use CGI;
24
use List::MoreUtils qw( uniq );
24
use List::MoreUtils qw( uniq );
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::AuthoritiesMarc;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Biblio;
29
use C4::Biblio qw( GetMarcBiblio GetRecordValue GetFrameworkCode CountItemsIssued DelBiblio );
30
30
31
use Koha::Biblios;
31
use Koha::Biblios;
32
32
(-)a/tools/batch_record_modification.pl (-3 / +3 lines)
Lines 25-34 use List::MoreUtils qw( uniq ); Link Here
25
25
26
use C4::Auth qw( get_template_and_user );
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::AuthoritiesMarc qw( BuildSummary ModAuthority );
28
use C4::Auth qw( get_template_and_user );
29
use C4::BackgroundJob;
29
use C4::BackgroundJob;
30
use C4::Biblio qw( GetMarcBiblio ModBiblio );
30
use C4::Biblio qw( GetBiblio GetMarcBiblio GetFrameworkCode ModBiblio );
31
use C4::MarcModificationTemplates qw( GetModificationTemplateActions GetModificationTemplates ModifyRecordWithTemplate );
31
use C4::MarcModificationTemplates qw( GetModificationTemplates GetModificationTemplateAction GetModificationTemplateActions ModifyRecordWithTemplate );
32
use Koha::MetadataRecord::Authority;
32
use Koha::MetadataRecord::Authority;
33
33
34
my $input = new CGI;
34
my $input = new CGI;
(-)a/tools/batch_records_ajax.pl (-2 / +2 lines)
Lines 36-43 use JSON qw/ to_json /; Link Here
36
36
37
use C4::Context;
37
use C4::Context;
38
use C4::Charset;
38
use C4::Charset;
39
use C4::Auth qw/check_cookie_auth/;
39
use C4::Auth qw( check_cookie_auth );
40
use C4::ImportBatch;
40
use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches );
41
41
42
my $input = new CGI;
42
my $input = new CGI;
43
43
(-)a/tools/cleanborrowers.pl (-4 / +4 lines)
Lines 34-49 This script allows to do 2 things. Link Here
34
use Modern::Perl;
34
use Modern::Perl;
35
35
36
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
37
use C4::Auth;
37
use C4::Auth qw( get_template_and_user );
38
use C4::Output;
38
use C4::Output qw( output_html_with_http_headers );
39
use C4::Members;
39
use C4::Members qw( GetBorrowersToExpunge );
40
use C4::Circulation;    # AnonymiseIssueHistory.
40
use C4::Circulation;    # AnonymiseIssueHistory.
41
use Koha::DateUtils qw( dt_from_string output_pref );
41
use Koha::DateUtils qw( dt_from_string output_pref );
42
use Koha::Patron::Categories;
42
use Koha::Patron::Categories;
43
use Koha::Patrons;
43
use Koha::Patrons;
44
use Date::Calc qw/Today Add_Delta_YM/;
44
use Date::Calc qw/Today Add_Delta_YM/;
45
use Koha::Patrons;
45
use Koha::Patrons;
46
use Koha::List::Patron;
46
use Koha::List::Patron qw( GetPatronLists );
47
47
48
my $cgi = new CGI;
48
my $cgi = new CGI;
49
49
(-)a/tools/csv-profiles.pl (-2 / +2 lines)
Lines 37-45 This script allow the user to define a new profile for CSV export Link Here
37
use Modern::Perl;
37
use Modern::Perl;
38
use Encode;
38
use Encode;
39
39
40
use C4::Auth;
40
use C4::Auth qw( get_template_and_user );
41
use C4::Context;
41
use C4::Context;
42
use C4::Output;
42
use C4::Output qw( output_html_with_http_headers );
43
use CGI qw ( -utf8 );
43
use CGI qw ( -utf8 );
44
use C4::Koha;
44
use C4::Koha;
45
use Koha::CsvProfiles;
45
use Koha::CsvProfiles;
(-)a/tools/exceptionHolidays.pl (-1 / +1 lines)
Lines 10-16 use C4::Output; Link Here
10
use DateTime;
10
use DateTime;
11
11
12
use C4::Calendar;
12
use C4::Calendar;
13
use Koha::DateUtils;
13
use Koha::DateUtils qw( dt_from_string );
14
14
15
my $input = new CGI;
15
my $input = new CGI;
16
my $dbh = C4::Context->dbh();
16
my $dbh = C4::Context->dbh();
(-)a/tools/export.pl (-3 / +3 lines)
Lines 20-33 use Modern::Perl; Link Here
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use MARC::File::XML;
21
use MARC::File::XML;
22
use List::MoreUtils qw(uniq);
22
use List::MoreUtils qw(uniq);
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
use Koha::Authority::Types;
26
use Koha::Authority::Types;
27
use Koha::Biblioitems;
27
use Koha::Biblioitems;
28
use Koha::CsvProfiles;
28
use Koha::CsvProfiles;
29
use Koha::Database;
29
use Koha::Database;
30
use Koha::DateUtils qw( dt_from_string output_pref );
30
use Koha::DateUtils qw( dt_from_string );
31
use Koha::Exporter::Record;
31
use Koha::Exporter::Record;
32
use Koha::ItemTypes;
32
use Koha::ItemTypes;
33
use Koha::Libraries;
33
use Koha::Libraries;
(-)a/tools/holidays.pl (-3 / +3 lines)
Lines 21-31 use warnings; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use C4::Calendar;
27
use C4::Calendar;
28
use Koha::DateUtils;
28
use Koha::DateUtils qw( dt_from_string output_pref );
29
29
30
my $input = new CGI;
30
my $input = new CGI;
31
31
(-)a/tools/import_borrowers.pl (-8 / +8 lines)
Lines 37-54 Link Here
37
use strict;
37
use strict;
38
use warnings;
38
use warnings;
39
39
40
use C4::Auth;
40
use C4::Auth qw( get_template_and_user );
41
use C4::Output;
41
use C4::Output qw( output_html_with_http_headers );
42
use C4::Context;
42
use C4::Context;
43
use C4::Members;
43
use C4::Members qw( ModMember GetMember checkcardnumber Check_Userid fixup_cardnumber AddMember );
44
use C4::Members::Attributes qw(:all);
44
use C4::Members qw( ModMember GetMember checkcardnumber Check_Userid fixup_cardnumber AddMember );
45
use C4::Members::AttributeTypes;
45
use C4::Members qw( ModMember GetMember checkcardnumber Check_Userid fixup_cardnumber AddMember );
46
use C4::Members::Messaging;
46
use C4::Members qw( ModMember GetMember checkcardnumber Check_Userid fixup_cardnumber AddMember );
47
use C4::Reports::Guided;
47
use C4::Reports::Guided;
48
use C4::Templates;
48
use C4::Templates;
49
use Koha::Patron::Debarments;
49
use Koha::Patron::Debarments qw( GetDebarments AddDebarment );
50
use Koha::Patrons;
50
use Koha::Patrons;
51
use Koha::DateUtils;
51
use Koha::DateUtils qw( output_pref dt_from_string );
52
use Koha::Token;
52
use Koha::Token;
53
use Koha::Libraries;
53
use Koha::Libraries;
54
use Koha::Patron::Categories;
54
use Koha::Patron::Categories;
(-)a/tools/inventory.pl (-9 / +9 lines)
Lines 25-40 use CGI qw ( -utf8 ); Link Here
25
my $input = CGI->new;
25
my $input = CGI->new;
26
my $uploadbarcodes = $input->param('uploadbarcodes');
26
my $uploadbarcodes = $input->param('uploadbarcodes');
27
27
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Context;
29
use C4::Context;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcFromKohaField GetBiblioData GetBiblio );
32
use C4::Items;
32
use C4::Items qw( GetItem ModItem GetItemsForInventory );
33
use C4::Koha;
33
use C4::Koha qw( GetAuthorisedValues );
34
use C4::Circulation;
34
use C4::Circulation qw( AddReturn );
35
use C4::Reports::Guided;    #_get_column_defs
35
use C4::Reports::Guided qw( _get_column_defs );
36
use C4::Charset;
36
use C4::Charset qw( NormalizeString );
37
use Koha::DateUtils;
37
use Koha::DateUtils qw( dt_from_string output_pref );
38
use Koha::AuthorisedValues;
38
use Koha::AuthorisedValues;
39
use Koha::BiblioFrameworks;
39
use Koha::BiblioFrameworks;
40
use List::MoreUtils qw( none );
40
use List::MoreUtils qw( none );
(-)a/tools/koha-news.pl (-5 / +5 lines)
Lines 25-38 Link Here
25
use strict;
25
use strict;
26
# use warnings; FIXME - Bug 2505
26
# use warnings; FIXME - Bug 2505
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Koha;
29
use C4::Koha;
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use C4::NewsChannels;
32
use C4::NewsChannels qw( get_opac_new add_opac_new upd_opac_new del_opac_new get_opac_news );
33
use C4::Languages qw(getTranslatedLanguages);
33
use C4::Languages qw( getTranslatedLanguages );
34
use Date::Calc qw/Date_to_Days Today/;
34
use Date::Calc qw/Date_to_Days Today/;
35
use Koha::DateUtils;
35
use Koha::DateUtils qw( dt_from_string output_pref );
36
36
37
my $cgi = new CGI;
37
my $cgi = new CGI;
38
38
(-)a/tools/letter.pl (-4 / +4 lines)
Lines 43-53 Link Here
43
use strict;
43
use strict;
44
use warnings;
44
use warnings;
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
46
use C4::Auth;
46
use C4::Auth qw( get_template_and_user );
47
use C4::Context;
47
use C4::Context;
48
use C4::Output;
48
use C4::Output qw( output_html_with_http_headers );
49
use C4::Letters;
49
use C4::Letters qw( GetLetterTemplates GetMessageTransportTypes GetMessage getletter DelLetter );
50
use C4::Members::Attributes;
50
use C4::Members::Attributes qw( GetAttributes );
51
51
52
# $protected_letters = protected_letters()
52
# $protected_letters = protected_letters()
53
# - return a hashref of letter_codes representing letters that should never be deleted
53
# - return a hashref of letter_codes representing letters that should never be deleted
(-)a/tools/manage-marc-import.pl (-4 / +4 lines)
Lines 28-38 use MARC::File::USMARC; Link Here
28
# Koha modules used
28
# Koha modules used
29
use C4::Context;
29
use C4::Context;
30
use C4::Koha;
30
use C4::Koha;
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
use C4::AuthoritiesMarc;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Biblio;
34
use C4::Biblio;
35
use C4::ImportBatch;
35
use C4::ImportBatch qw( CleanBatch DeleteBatch GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords );
36
use C4::Matcher;
36
use C4::Matcher;
37
use C4::BackgroundJob;
37
use C4::BackgroundJob;
38
use C4::Labels::Batch;
38
use C4::Labels::Batch;
(-)a/tools/marc_modification_templates.pl (-3 / +3 lines)
Lines 20-29 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::MarcModificationTemplates;
26
use C4::MarcModificationTemplates qw( AddModificationTemplate DelModificationTemplate AddModificationTemplateAction ModModificationTemplateAction DelModificationTemplateAction MoveModificationTemplateAction GetModificationTemplates GetModificationTemplateAction GetModificationTemplateActions );
27
27
28
my $cgi = new CGI;
28
my $cgi = new CGI;
29
29
(-)a/tools/modborrowers.pl (-7 / +7 lines)
Lines 27-41 Link Here
27
27
28
use Modern::Perl;
28
use Modern::Perl;
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Koha;
31
use C4::Koha qw( GetAuthorisedValues );
32
use C4::Members;
32
use C4::Members qw( ModMember GetMember );
33
use C4::Members::Attributes;
33
use C4::Members qw( ModMember GetMember );
34
use C4::Members::AttributeTypes qw/GetAttributeTypes_hashref/;
34
use C4::Members qw( ModMember GetMember );
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
use List::MoreUtils qw /any uniq/;
36
use List::MoreUtils qw /any uniq/;
37
use Koha::DateUtils qw( dt_from_string );
37
use Koha::DateUtils qw( dt_from_string );
38
use Koha::List::Patron;
38
use Koha::List::Patron qw( GetPatronLists );
39
use Koha::Libraries;
39
use Koha::Libraries;
40
use Koha::Patron::Categories;
40
use Koha::Patron::Categories;
41
use Koha::Patrons;
41
use Koha::Patrons;
(-)a/tools/newHolidays.pl (-1 / +1 lines)
Lines 14-20 use Koha::Caches; Link Here
14
14
15
use C4::Calendar;
15
use C4::Calendar;
16
use DateTime;
16
use DateTime;
17
use Koha::DateUtils;
17
use Koha::DateUtils qw( dt_from_string output_pref );
18
18
19
my $input               = new CGI;
19
my $input               = new CGI;
20
my $dbh                 = C4::Context->dbh();
20
my $dbh                 = C4::Context->dbh();
(-)a/tools/overduerules.pl (-4 / +4 lines)
Lines 21-32 use strict; Link Here
21
use warnings;
21
use warnings;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Letters;
27
use C4::Letters qw( GetLetters GetLettersAvailableForALibrary GetMessageTransportTypes GetMessage );
28
use C4::Members;
28
use C4::Members;
29
use C4::Overdues;
29
use C4::Overdues qw( GetOverdueMessageTransportTypes );
30
use Koha::Libraries;
30
use Koha::Libraries;
31
31
32
use Koha::Patron::Categories;
32
use Koha::Patron::Categories;
(-)a/tools/picture-upload.pl (-2 / +2 lines)
Lines 26-33 use File::Copy; Link Here
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use GD;
27
use GD;
28
use C4::Context;
28
use C4::Context;
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Members;
31
use C4::Members;
32
use C4::Debug;
32
use C4::Debug;
33
33
(-)a/tools/quotes-upload.pl (-2 / +2 lines)
Lines 23-32 use warnings; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use autouse 'Data::Dumper' => qw(Dumper);
24
use autouse 'Data::Dumper' => qw(Dumper);
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
32
(-)a/tools/quotes.pl (-2 / +2 lines)
Lines 23-32 use warnings; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use autouse 'Data::Dumper' => qw(Dumper);
24
use autouse 'Data::Dumper' => qw(Dumper);
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
32
(-)a/tools/quotes/quotes-upload_ajax.pl (-1 / +1 lines)
Lines 25-31 use JSON; Link Here
25
use URI::Escape;
25
use URI::Escape;
26
use autouse 'Data::Dumper' => qw(Dumper);
26
use autouse 'Data::Dumper' => qw(Dumper);
27
27
28
use C4::Auth;
28
use C4::Auth qw( check_api_auth );
29
use C4::Koha;
29
use C4::Koha;
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
31
use C4::Output;
(-)a/tools/quotes/quotes_ajax.pl (-1 / +1 lines)
Lines 24-30 use CGI qw ( -utf8 ); Link Here
24
use JSON;
24
use JSON;
25
use autouse 'Data::Dumper' => qw(Dumper);
25
use autouse 'Data::Dumper' => qw(Dumper);
26
26
27
use C4::Auth;
27
use C4::Auth qw( check_api_auth );
28
use C4::Context;
28
use C4::Context;
29
29
30
my $cgi = CGI->new;
30
my $cgi = CGI->new;
(-)a/tools/scheduler.pl (-5 / +5 lines)
Lines 20-31 Link Here
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use C4::Context;
22
use C4::Context;
23
use C4::Scheduler;
23
use C4::Scheduler qw( add_at_job remove_at_job get_jobs );
24
use C4::Reports::Guided;
24
use C4::Reports::Guided qw( get_saved_reports get_saved_report );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use Koha::DateUtils;;
28
use Koha::DateUtils qw( dt_from_string output_pref );
29
29
30
use vars qw($debug);
30
use vars qw($debug);
31
31
(-)a/tools/showdiffmarc.pl (-4 / +4 lines)
Lines 26-35 use CGI qw(:standard -utf8); Link Here
26
26
27
# Koha modules used
27
# Koha modules used
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio GetBiblioData GetBiblio );
32
use C4::ImportBatch;
32
use C4::ImportBatch qw( GetRecordFromImportBiblio GetImportBiblios );
33
33
34
# Input params
34
# Input params
35
my $input        = new CGI;
35
my $input        = new CGI;
(-)a/tools/stage-marc-import.pl (-4 / +4 lines)
Lines 34-47 use MARC::File::USMARC; Link Here
34
34
35
# Koha modules used
35
# Koha modules used
36
use C4::Context;
36
use C4::Context;
37
use C4::Auth;
37
use C4::Auth qw( get_template_and_user );
38
use C4::Output;
38
use C4::Output qw( output_html_with_http_headers );
39
use C4::Biblio;
39
use C4::Biblio;
40
use C4::ImportBatch;
40
use C4::ImportBatch qw( RecordsFromMARCXMLFile RecordsFromISO2709File BatchStageMarcRecords BatchFindDuplicates SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction );
41
use C4::Matcher;
41
use C4::Matcher;
42
use Koha::UploadedFiles;
42
use Koha::UploadedFiles;
43
use C4::BackgroundJob;
43
use C4::BackgroundJob;
44
use C4::MarcModificationTemplates;
44
use C4::MarcModificationTemplates qw( GetModificationTemplates );
45
use Koha::Plugins;
45
use Koha::Plugins;
46
46
47
my $input = new CGI;
47
my $input = new CGI;
(-)a/tools/tools-home.pl (-3 / +3 lines)
Lines 18-26 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Tags qw/get_count_by_tag_status/;
23
use C4::Tags qw( get_count_by_tag_status );
24
use Koha::Reviews;
24
use Koha::Reviews;
25
25
26
my $query = new CGI;
26
my $query = new CGI;
(-)a/tools/upload-cover-image.pl (-4 / +4 lines)
Lines 44-54 use File::Temp; Link Here
44
use CGI qw ( -utf8 );
44
use CGI qw ( -utf8 );
45
use GD;
45
use GD;
46
use C4::Context;
46
use C4::Context;
47
use C4::Auth;
47
use C4::Auth qw( get_template_and_user );
48
use C4::Output;
48
use C4::Output qw( output_html_with_http_headers );
49
use C4::Images;
49
use C4::Images qw( PutImage );
50
use Koha::UploadedFiles;
50
use Koha::UploadedFiles;
51
use C4::Log;
51
use C4::Log qw( logaction );
52
52
53
my $debug = 1;
53
my $debug = 1;
54
54
(-)a/tools/upload-file.pl (-1 / +1 lines)
Lines 26-32 use JSON; Link Here
26
use URI::Escape;
26
use URI::Escape;
27
27
28
use C4::Context;
28
use C4::Context;
29
use C4::Auth qw/check_cookie_auth haspermission/;
29
use C4::Auth qw( check_cookie_auth get_session );
30
use Koha::Uploader;
30
use Koha::Uploader;
31
31
32
# upload-file.pl must authenticate the user
32
# upload-file.pl must authenticate the user
(-)a/tools/upload.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
use CGI qw/-utf8/;
21
use CGI qw/-utf8/;
22
use JSON;
22
use JSON;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::UploadedFiles;
26
use Koha::UploadedFiles;
27
27
28
my $input  = CGI::->new;
28
my $input  = CGI::->new;
(-)a/tools/viewlog.pl (-5 / +5 lines)
Lines 20-35 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use Text::CSV::Encoded;
25
use Text::CSV::Encoded;
26
use C4::Context;
26
use C4::Context;
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Log;
29
use C4::Log qw( GetLogs );
30
use C4::Items;
30
use C4::Items qw( GetItem );
31
use C4::Debug;
31
use C4::Debug;
32
use C4::Search;    # enabled_staff_search_views
32
use C4::Search qw( enabled_staff_search_views );
33
use Koha::Patron::Images;
33
use Koha::Patron::Images;
34
34
35
use vars qw($debug $cgi_debug);
35
use vars qw($debug $cgi_debug);
(-)a/virtualshelves/addbybiblionumber.pl (-3 / +3 lines)
Lines 59-67 addbybiblionumber.pl Link Here
59
use Modern::Perl;
59
use Modern::Perl;
60
60
61
use CGI qw ( -utf8 );
61
use CGI qw ( -utf8 );
62
use C4::Biblio;
62
use C4::Biblio qw( GetBiblioData GetBiblio );
63
use C4::Output;
63
use C4::Output qw( output_html_with_http_headers );
64
use C4::Auth;
64
use C4::Auth qw( get_template_and_user );
65
65
66
use Koha::Virtualshelves;
66
use Koha::Virtualshelves;
67
67
(-)a/virtualshelves/downloadshelf.pl (-5 / +5 lines)
Lines 22-33 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use Encode qw(encode);
23
use Encode qw(encode);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio );
27
use C4::Items;
27
use C4::Items;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Record;
29
use C4::Record qw( marc2csv marc2bibtex );
30
use C4::Ris;
30
use C4::Ris qw( marc2ris );
31
31
32
use Koha::CsvProfiles;
32
use Koha::CsvProfiles;
33
use Koha::Virtualshelves;
33
use Koha::Virtualshelves;
(-)a/virtualshelves/sendshelf.pl (-4 / +4 lines)
Lines 27-36 use Carp; Link Here
27
use Mail::Sendmail;
27
use Mail::Sendmail;
28
use MIME::QuotedPrint;
28
use MIME::QuotedPrint;
29
use MIME::Base64;
29
use MIME::Base64;
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Biblio;
31
use C4::Biblio qw( GetFrameworkCode GetBiblioData GetBiblio GetMarcBiblio GetMarcAuthors GetMarcSubjects GetRecordValue GetMarcISBN );
32
use C4::Items;
32
use C4::Items qw( GetItem GetItemsInfo );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use Koha::Email;
34
use Koha::Email;
35
use Koha::Virtualshelves;
35
use Koha::Virtualshelves;
36
36
(-)a/virtualshelves/shelves.pl (-8 / +7 lines)
Lines 19-31 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Biblio;
23
use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio GetMarcBiblio GetCOinSBiblio GetRecordValue GetFrameworkCode );
24
use C4::Koha;
24
use C4::Koha qw( getitemtypeinfo GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
25
use C4::Items;
25
use C4::Items qw( GetItem GetItemsLocationInfo );
26
use C4::Members;
26
use C4::Members qw( GetMember );
27
use C4::Output;
27
use C4::Output qw( pagination_bar output_html_with_http_headers );
28
use C4::XSLT;
28
use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display );
29
29
30
use Koha::Biblios;
30
use Koha::Biblios;
31
use Koha::Biblioitems;
31
use Koha::Biblioitems;
32
- 

Return to bug 17600