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

(-)a/acqui/acqui-home.pl (-2 / +1 lines)
Lines 26-33 this script is the main page for acqui Link Here
26
26
27
=cut
27
=cut
28
28
29
use strict;
29
use Modern::Perl;
30
use warnings;
31
30
32
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
33
use C4::Auth;
32
use C4::Auth;
(-)a/acqui/addorder.pl (-2 / +1 lines)
Lines 119-126 if it is an order from an existing suggestion : the id of this suggestion. Link Here
119
119
120
=cut
120
=cut
121
121
122
use strict;
122
use Modern::Perl;
123
use warnings;
124
use CGI qw ( -utf8 );
123
use CGI qw ( -utf8 );
125
use C4::Auth;           # get_template_and_user
124
use C4::Auth;           # get_template_and_user
126
use C4::Acquisition;    # ModOrder
125
use C4::Acquisition;    # ModOrder
(-)a/acqui/basketgroup.pl (-2 / +1 lines)
Lines 43-50 The bookseller who we want to display the baskets (and basketgroups) of. Link Here
43
43
44
=cut
44
=cut
45
45
46
use strict;
46
use Modern::Perl;
47
use warnings;
48
use Carp;
47
use Carp;
49
48
50
use C4::Auth;
49
use C4::Auth;
(-)a/acqui/basketheader.pl (-2 / +1 lines)
Lines 45-52 If it exists, C<$basketno> is the basket we edit Link Here
45
45
46
=cut
46
=cut
47
47
48
use strict;
48
use Modern::Perl;
49
use warnings;
50
use CGI qw ( -utf8 );
49
use CGI qw ( -utf8 );
51
use C4::Context;
50
use C4::Context;
52
use C4::Auth;
51
use C4::Auth;
(-)a/acqui/booksellers.pl (-2 / +1 lines)
Lines 51-58 The id of the supplier whose baskets we will display Link Here
51
51
52
=cut
52
=cut
53
53
54
use strict;
54
use Modern::Perl;
55
use warnings;
56
use C4::Auth;
55
use C4::Auth;
57
use C4::Biblio;
56
use C4::Biblio;
58
use C4::Budgets;
57
use C4::Budgets;
(-)a/acqui/check_budget_total.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
use C4::Context;
22
use C4::Context;
24
use C4::Output;
23
use C4::Output;
(-)a/acqui/check_duplicate_barcode_ajax.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
use CGI::Cookie;
22
use CGI::Cookie;
24
use JSON;
23
use JSON;
(-)a/acqui/edi_ean.pl (-2 / +1 lines)
Lines 21-28 Link Here
21
# but as all sites so far are single ordering ean its not clear what we should
21
# but as all sites so far are single ordering ean its not clear what we should
22
# replace it with
22
# replace it with
23
#
23
#
24
use strict;
24
use Modern::Perl;
25
use warnings;
26
25
27
use C4::Auth;
26
use C4::Auth;
28
use C4::Koha;
27
use C4::Koha;
(-)a/acqui/edifactmsgs.pl (-2 / +1 lines)
Lines 16-23 Link Here
16
# with Koha; if not, write to the Free Software Foundation, Inc.,
16
# with Koha; if not, write to the Free Software Foundation, Inc.,
17
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
20
22
use CGI;
21
use CGI;
23
use Koha::Database;
22
use Koha::Database;
(-)a/acqui/edimsg.pl (-2 / +1 lines)
Lines 16-23 Link Here
16
# with Koha; if not, write to the Free Software Foundation, Inc.,
16
# with Koha; if not, write to the Free Software Foundation, Inc.,
17
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
20
22
use CGI;
21
use CGI;
23
use Koha::Database;
22
use Koha::Database;
(-)a/acqui/finishreceive.pl (-2 / +1 lines)
Lines 20-27 Link Here
20
# You should have received a copy of the GNU General Public License
20
# You should have received a copy of the GNU General Public License
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 strict;
23
use Modern::Perl;
24
use warnings;
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
26
use C4::Auth;
25
use C4::Auth;
27
use C4::Output;
26
use C4::Output;
(-)a/acqui/histsearch.pl (-2 / +1 lines)
Lines 49-56 to filter on ended date. Link Here
49
49
50
=cut
50
=cut
51
51
52
use strict;
52
use Modern::Perl;
53
#use warnings; FIXME - Bug 2505
54
use CGI qw ( -utf8 );
53
use CGI qw ( -utf8 );
55
use C4::Auth;    # get_template_and_user
54
use C4::Auth;    # get_template_and_user
56
use C4::Output;
55
use C4::Output;
(-)a/acqui/invoice.pl (-2 / +1 lines)
Lines 26-33 Invoice details Link Here
26
26
27
=cut
27
=cut
28
28
29
use strict;
29
use Modern::Perl;
30
use warnings;
31
30
32
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
33
use C4::Auth;
32
use C4::Auth;
(-)a/acqui/invoices.pl (-2 / +1 lines)
Lines 26-33 Search for invoices Link Here
26
26
27
=cut
27
=cut
28
28
29
use strict;
29
use Modern::Perl;
30
use warnings;
31
30
32
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
33
use C4::Auth;
32
use C4::Auth;
(-)a/acqui/neworderbiblio.pl (-2 / +1 lines)
Lines 55-62 the basket number to know on which basket this script have to add a new order. Link Here
55
55
56
=cut
56
=cut
57
57
58
use strict;
58
use Modern::Perl;
59
#use warnings; FIXME - Bug 2505
60
59
61
use C4::Search;
60
use C4::Search;
62
use CGI qw ( -utf8 );
61
use CGI qw ( -utf8 );
(-)a/acqui/neworderempty.pl (-2 / +1 lines)
Lines 66-73 the item's id in the breeding reservoir Link Here
66
66
67
=cut
67
=cut
68
68
69
use warnings;
69
use Modern::Perl;
70
use strict;
71
use CGI qw ( -utf8 );
70
use CGI qw ( -utf8 );
72
use C4::Context;
71
use C4::Context;
73
72
(-)a/acqui/newordersuggestion.pl (-2 / +1 lines)
Lines 88-95 can be equal to Link Here
88
88
89
=cut
89
=cut
90
90
91
use strict;
91
use Modern::Perl;
92
#use warnings; FIXME - Bug 2505
93
92
94
use CGI qw ( -utf8 );
93
use CGI qw ( -utf8 );
95
use C4::Auth;    # get_template_and_user
94
use C4::Auth;    # get_template_and_user
(-)a/acqui/ordered.pl (-2 / +1 lines)
Lines 28-35 this script is to show orders ordered but not yet received Link Here
28
=cut
28
=cut
29
29
30
use C4::Context;
30
use C4::Context;
31
use strict;
31
use Modern::Perl;
32
use warnings;
33
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
34
use C4::Auth;
33
use C4::Auth;
35
use C4::Output;
34
use C4::Output;
(-)a/acqui/orderreceive.pl (-2 / +1 lines)
Lines 58-65 The biblionumber of this order. Link Here
58
58
59
=cut
59
=cut
60
60
61
use strict;
61
use Modern::Perl;
62
use warnings;
63
62
64
use CGI qw ( -utf8 );
63
use CGI qw ( -utf8 );
65
use C4::Context;
64
use C4::Context;
(-)a/acqui/parcel.pl (-2 / +1 lines)
Lines 54-61 To filter the results list on this given date. Link Here
54
54
55
=cut
55
=cut
56
56
57
use strict;
57
use Modern::Perl;
58
use warnings;
59
58
60
use C4::Auth;
59
use C4::Auth;
61
use C4::Acquisition;
60
use C4::Acquisition;
(-)a/acqui/parcels.pl (-2 / +1 lines)
Lines 66-73 To know how many results have to be display / page. Link Here
66
66
67
=cut
67
=cut
68
68
69
use strict;
69
use Modern::Perl;
70
use warnings;
71
use CGI qw ( -utf8 );
70
use CGI qw ( -utf8 );
72
use C4::Auth;
71
use C4::Auth;
73
use C4::Output;
72
use C4::Output;
(-)a/acqui/pdfformat/layout2pages.pm (-2 / +1 lines)
Lines 24-31 Link Here
24
package pdfformat::layout2pages;
24
package pdfformat::layout2pages;
25
use vars qw(@ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
use MIME::Base64;
26
use MIME::Base64;
27
use strict;
27
use Modern::Perl;
28
use warnings;
29
use utf8;
28
use utf8;
30
29
31
use Koha::Number::Price;
30
use Koha::Number::Price;
(-)a/acqui/pdfformat/layout2pagesde.pm (-2 / +1 lines)
Lines 24-31 Link Here
24
package pdfformat::layout2pagesde;
24
package pdfformat::layout2pagesde;
25
use vars qw(@ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
use MIME::Base64;
26
use MIME::Base64;
27
use strict;
27
use Modern::Perl;
28
use warnings;
29
use utf8;
28
use utf8;
30
29
31
use Koha::Number::Price;
30
use Koha::Number::Price;
(-)a/acqui/pdfformat/layout3pages.pm (-2 / +1 lines)
Lines 25-32 package pdfformat::layout3pages; Link Here
25
use vars qw(@ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
use MIME::Base64;
26
use MIME::Base64;
27
use List::MoreUtils qw/uniq/;
27
use List::MoreUtils qw/uniq/;
28
use strict;
28
use Modern::Perl;
29
use warnings;
30
use utf8;
29
use utf8;
31
30
32
use Koha::Number::Price;
31
use Koha::Number::Price;
(-)a/acqui/pdfformat/layout3pagesfr.pm (-2 / +1 lines)
Lines 24-31 package pdfformat::layout3pagesfr; Link Here
24
use vars qw(@ISA @EXPORT);
24
use vars qw(@ISA @EXPORT);
25
use MIME::Base64;
25
use MIME::Base64;
26
use List::MoreUtils qw/uniq/;
26
use List::MoreUtils qw/uniq/;
27
use strict;
27
use Modern::Perl;
28
use warnings;
29
use utf8;
28
use utf8;
30
29
31
use Koha::Number::Price;
30
use Koha::Number::Price;
(-)a/acqui/spent.pl (-2 / +1 lines)
Lines 32-39 this script is designed to show the spent amount in budgets Link Here
32
use C4::Context;
32
use C4::Context;
33
use C4::Auth;
33
use C4::Auth;
34
use C4::Output;
34
use C4::Output;
35
use strict;
35
use Modern::Perl;
36
use warnings;
37
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
38
37
39
my $dbh      = C4::Context->dbh;
38
my $dbh      = C4::Context->dbh;
(-)a/acqui/supplier.pl (-2 / +1 lines)
Lines 40-47 To know the bookseller this script has to display details. Link Here
40
40
41
=cut
41
=cut
42
42
43
use strict;
43
use Modern::Perl;
44
use warnings;
45
use C4::Auth;
44
use C4::Auth;
46
use C4::Contract;
45
use C4::Contract;
47
use C4::Biblio;
46
use C4::Biblio;
(-)a/acqui/uncertainprice.pl (-2 / +1 lines)
Lines 43-50 The bookseller who we want to display the orders of. Link Here
43
=cut
43
=cut
44
44
45
45
46
use strict;
46
use Modern::Perl;
47
use warnings;
48
47
49
use C4::Auth;
48
use C4::Auth;
50
use C4::Output;
49
use C4::Output;
(-)a/acqui/updatesupplier.pl (-2 / +1 lines)
Lines 46-53 contact_serialsprimary. Link Here
46
46
47
=cut
47
=cut
48
48
49
use strict;
49
use Modern::Perl;
50
use warnings;
51
use List::Util;
50
use List::Util;
52
use C4::Context;
51
use C4::Context;
53
use C4::Auth;
52
use C4::Auth;
(-)a/acqui/z3950_search.pl (-3 / +1 lines)
Lines 19-26 Link Here
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
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 warnings;
22
use Modern::Perl;
23
use strict;
24
use CGI qw/-utf8/;
23
use CGI qw/-utf8/;
25
24
26
use C4::Auth;
25
use C4::Auth;
27
- 

Return to bug 19993