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 );