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

(-)a/admin/admin-home.pl (-2 / +1 lines)
Lines 15-22 Link Here
15
# You should have received a copy of the GNU General Public License
15
# You should have received a copy of the GNU General Public License
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 strict;
18
use Modern::Perl;
19
use warnings;
20
19
21
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
22
use C4::Auth;
21
use C4::Auth;
(-)a/admin/aqcontract.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::Context;
25
use C4::Context;
27
use C4::Auth;
26
use C4::Auth;
(-)a/admin/aqplan.pl (-2 / +1 lines)
Lines 20-27 Link Here
20
#written 20/02/2002 by paul.poulain@free.fr
20
#written 20/02/2002 by paul.poulain@free.fr
21
# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html)
21
# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html)
22
22
23
use strict;
23
use Modern::Perl;
24
#use warnings; FIXME - Bug 2505
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
26
use List::Util qw/min/;
25
use List::Util qw/min/;
27
use Date::Calc qw/Delta_YMD Easter_Sunday Today Decode_Date_EU/;
26
use Date::Calc qw/Delta_YMD Easter_Sunday Today Decode_Date_EU/;
(-)a/admin/auth_tag_structure.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
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 Modern::Perl;
22
#use warnings; FIXME - Bug 2505
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Auth;
23
use C4::Auth;
25
use C4::Koha;
24
use C4::Koha;
(-)a/admin/branch_transfer_limits.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
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 Modern::Perl;
22
use warnings;
23
22
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
use C4::Auth;
24
use C4::Auth;
(-)a/admin/check_budget_parent.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/admin/check_parent_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/admin/checkmarc.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
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 Modern::Perl;
22
#use warnings; FIXME - Bug 2505
23
use C4::Output;
22
use C4::Output;
24
use C4::Auth;
23
use C4::Auth;
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/admin/classsources.pl (-2 / +1 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
20
21
use strict;
21
use Modern::Perl;
22
#use warnings; FIXME - Bug 2505
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Auth;
23
use C4::Auth;
25
use C4::Context;
24
use C4::Context;
(-)a/admin/clone-rules.pl (-2 / +1 lines)
Lines 25-32 Link Here
25
#
25
#
26
# The script can be called with one of the parameters, both or none
26
# The script can be called with one of the parameters, both or none
27
27
28
use strict;
28
use Modern::Perl;
29
#use warnings; FIXME - Bug 2505
30
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
31
use C4::Context;
30
use C4::Context;
32
use C4::Output;
31
use C4::Output;
(-)a/admin/didyoumean.pl (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
use CGI qw ( -utf8 );
4
use CGI qw ( -utf8 );
6
use C4::Context;
5
use C4::Context;
7
use C4::Auth;
6
use C4::Auth;
(-)a/admin/edi_accounts.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
use CGI;
21
use CGI;
23
use C4::Auth;
22
use C4::Auth;
24
use C4::Output;
23
use C4::Output;
(-)a/admin/edi_ean_accounts.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
use CGI;
21
use CGI;
23
use C4::Auth;
22
use C4::Auth;
24
use C4::Output;
23
use C4::Output;
(-)a/admin/import_export_framework.pl (-2 / +1 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
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use CGI::Cookie;
23
use CGI::Cookie;
25
use C4::Context;
24
use C4::Context;
(-)a/admin/item_circulation_alerts.pl (-2 / +1 lines)
Lines 15-22 Link Here
15
# You should have received a copy of the GNU General Public License
15
# You should have received a copy of the GNU General Public License
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 strict;
18
use Modern::Perl;
19
use warnings;
20
19
21
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
22
use File::Basename;
21
use File::Basename;
(-)a/admin/marctagstructure.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
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 Modern::Perl;
22
use warnings;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Auth;
23
use C4::Auth;
25
use C4::Koha;
24
use C4::Koha;
(-)a/admin/matching-rules.pl (-2 / +1 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
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
22
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
use C4::Auth;
24
use C4::Auth;
(-)a/admin/printers.pl (-2 / +1 lines)
Lines 37-44 Link Here
37
# You should have received a copy of the GNU General Public License
37
# You should have received a copy of the GNU General Public License
38
# along with Koha; if not, see <http://www.gnu.org/licenses>.
38
# along with Koha; if not, see <http://www.gnu.org/licenses>.
39
39
40
use strict;
40
use Modern::Perl;
41
#use warnings; FIXME - Bug 2505
42
use CGI qw ( -utf8 );
41
use CGI qw ( -utf8 );
43
use C4::Context;
42
use C4::Context;
44
use C4::Output;
43
use C4::Output;
(-)a/admin/smart-rules.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;
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/admin/systempreferences.pl (-2 / +1 lines)
Lines 40-47 ALSO : Link Here
40
40
41
=cut
41
=cut
42
42
43
use strict;
43
use Modern::Perl;
44
use warnings;
45
44
46
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
47
use MIME::Base64;
46
use MIME::Base64;
(-)a/admin/transport-cost-matrix.pl (-3 / +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;
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;
25
- 

Return to bug 19992