=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
use C4::Acquisition; # ModOrder
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use Carp;
use C4::Auth;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use C4::Auth;
use C4::Biblio;
use C4::Budgets;
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
use CGI qw ( -utf8 );
use CGI::Cookie;
use JSON;
# but as all sites so far are single ordering ean its not clear what we should
# replace it with
#
-use strict;
-use warnings;
+use Modern::Perl;
use C4::Auth;
use C4::Koha;
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI;
use Koha::Database;
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI;
use Koha::Database;
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
=cut
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
use C4::Output;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
=cut
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
use C4::Search;
use CGI qw ( -utf8 );
=cut
-use warnings;
-use strict;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
=cut
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
=cut
use C4::Context;
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use C4::Auth;
use C4::Acquisition;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
package pdfformat::layout2pages;
use vars qw(@ISA @EXPORT);
use MIME::Base64;
-use strict;
-use warnings;
+use Modern::Perl;
use utf8;
use Koha::Number::Price;
package pdfformat::layout2pagesde;
use vars qw(@ISA @EXPORT);
use MIME::Base64;
-use strict;
-use warnings;
+use Modern::Perl;
use utf8;
use Koha::Number::Price;
use vars qw(@ISA @EXPORT);
use MIME::Base64;
use List::MoreUtils qw/uniq/;
-use strict;
-use warnings;
+use Modern::Perl;
use utf8;
use Koha::Number::Price;
use vars qw(@ISA @EXPORT);
use MIME::Base64;
use List::MoreUtils qw/uniq/;
-use strict;
-use warnings;
+use Modern::Perl;
use utf8;
use Koha::Number::Price;
use C4::Context;
use C4::Auth;
use C4::Output;
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
my $dbh = C4::Context->dbh;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use C4::Auth;
use C4::Contract;
use C4::Biblio;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use C4::Auth;
use C4::Output;
=cut
-use strict;
-use warnings;
+use Modern::Perl;
use List::Util;
use C4::Context;
use C4::Auth;
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use warnings;
-use strict;
+use Modern::Perl;
use CGI qw/-utf8/;
use C4::Auth;