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

(-)a/labels/label-edit-layout.pl (-1 / +1 lines)
Lines 21-27 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use POSIX qw( exit sprintf );
24
use POSIX;
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 );
(-)a/misc/bin/connexion_import_daemon.pl (-1 / +1 lines)
Lines 90-96 use Carp qw( croak ); Link Here
90
use IO::Socket::INET qw( SOCK_STREAM );
90
use IO::Socket::INET qw( SOCK_STREAM );
91
# use IO::Socket::IP;
91
# use IO::Socket::IP;
92
use IO::Select;
92
use IO::Select;
93
use POSIX qw( close exit fork localtime open printf sprintf );
93
use POSIX;
94
use HTTP::Status qw( HTTP_FORBIDDEN HTTP_UNAUTHORIZED );
94
use HTTP::Status qw( HTTP_FORBIDDEN HTTP_UNAUTHORIZED );
95
use strict;
95
use strict;
96
use warnings;
96
use warnings;
(-)a/misc/cronjobs/rss/rss.pl (-1 / +1 lines)
Lines 31-37 use Template; Link Here
31
31
32
use Koha::Script -cron;
32
use Koha::Script -cron;
33
use C4::Context;
33
use C4::Context;
34
use POSIX qw( close localtime open strftime );
34
use POSIX;
35
35
36
my $dbh     = C4::Context->dbh;
36
my $dbh     = C4::Context->dbh;
37
my $file    = $ARGV[0];
37
my $file    = $ARGV[0];
(-)a/misc/migration_tools/22_to_30/export_Authorities.pl (-1 / +1 lines)
Lines 10-16 use C4::Context; Link Here
10
#use MARC::File::XML(BinaryEncoding=>"utf8");
10
#use MARC::File::XML(BinaryEncoding=>"utf8");
11
#use MARC::File::USMARC;
11
#use MARC::File::USMARC;
12
use C4::AuthoritiesMarc;
12
use C4::AuthoritiesMarc;
13
use POSIX qw( close localtime sprintf time );
13
use POSIX;
14
#MARC::File::XML::default_record_format("UNIMARCAUTH");
14
#MARC::File::XML::default_record_format("UNIMARCAUTH");
15
my $dbh = C4::Context->dbh;
15
my $dbh = C4::Context->dbh;
16
my $rq= $dbh->prepare(qq|
16
my $rq= $dbh->prepare(qq|
(-)a/misc/migration_tools/22_to_30/export_Authorities_xml.pl (-1 / +1 lines)
Lines 9-15 BEGIN { Link Here
9
use C4::Context;
9
use C4::Context;
10
use MARC::File::XML(BinaryEncoding=>"utf8");
10
use MARC::File::XML(BinaryEncoding=>"utf8");
11
use C4::AuthoritiesMarc;
11
use C4::AuthoritiesMarc;
12
use POSIX qw( close localtime open sprintf time );
12
use POSIX;
13
MARC::File::XML::default_record_format("UNIMARCAUTH");
13
MARC::File::XML::default_record_format("UNIMARCAUTH");
14
my $dbh = C4::Context->dbh;
14
my $dbh = C4::Context->dbh;
15
my $rq= $dbh->prepare(qq|
15
my $rq= $dbh->prepare(qq|
(-)a/misc/translator/xgettext.pl (-2 / +1 lines)
Lines 27-33 use lib $FindBin::Bin; Link Here
27
use strict;
27
use strict;
28
use warnings;
28
use warnings;
29
use Getopt::Long qw( GetOptions );
29
use Getopt::Long qw( GetOptions );
30
use POSIX qw( close exit localtime open printf time );
30
use POSIX;
31
use Locale::PO;
31
use Locale::PO;
32
use TmplTokenizer;
32
use TmplTokenizer;
33
use VerboseWarnings;
33
use VerboseWarnings;
34
- 

Return to bug 17600