Browse Source

Bug 19993: use Modern::Perl in Acquisition perl scripts

Test Case:
Check the following files have been updated from
use strict;
use warnings;
to
use Modern::Perl;

acqui-home.pl
addorder.pl
basketgroup.pl
basketheader.pl
booksellers.pl
check_budget_total.pl
check_duplicate_barcode_ajax.pl
edi_ean.pl
edifactmsgs.pl
edimsg.pl
finishreceive.pl
histsearch.pl
invoice.pl
invoices.pl
neworderbiblio.pl
neworderempty.pl
newordersuggestion.pl
ordered.pl
orderreceive.pl
parcel.pl
parcels.pl
pdfformat/layout2pages.pm
pdfformat/layout2pagesde.pm
pdfformat/layout3pages.pm
pdfformat/layout3pagesfr.pm
spent.pl
supplier.pl
uncertainprice.pl
updatesupplier.pl
z3950_search.pl

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Corrected a single semicolon in edimsg.pl during signoff.

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
18.05.x
Charlotte Cordwell 5 years ago
committed by Jonathan Druart
parent
commit
cc37c04bf3
  1. 3
      acqui/acqui-home.pl
  2. 3
      acqui/addorder.pl
  3. 3
      acqui/basketgroup.pl
  4. 3
      acqui/basketheader.pl
  5. 3
      acqui/booksellers.pl
  6. 3
      acqui/check_budget_total.pl
  7. 3
      acqui/check_duplicate_barcode_ajax.pl
  8. 3
      acqui/edi_ean.pl
  9. 3
      acqui/edifactmsgs.pl
  10. 3
      acqui/edimsg.pl
  11. 3
      acqui/finishreceive.pl
  12. 3
      acqui/histsearch.pl
  13. 3
      acqui/invoice.pl
  14. 3
      acqui/invoices.pl
  15. 3
      acqui/neworderbiblio.pl
  16. 3
      acqui/neworderempty.pl
  17. 3
      acqui/newordersuggestion.pl
  18. 3
      acqui/ordered.pl
  19. 3
      acqui/orderreceive.pl
  20. 3
      acqui/parcel.pl
  21. 3
      acqui/parcels.pl
  22. 3
      acqui/pdfformat/layout2pages.pm
  23. 3
      acqui/pdfformat/layout2pagesde.pm
  24. 3
      acqui/pdfformat/layout3pages.pm
  25. 3
      acqui/pdfformat/layout3pagesfr.pm
  26. 3
      acqui/spent.pl
  27. 3
      acqui/supplier.pl
  28. 3
      acqui/uncertainprice.pl
  29. 3
      acqui/updatesupplier.pl
  30. 3
      acqui/z3950_search.pl

3
acqui/acqui-home.pl

@ -26,8 +26,7 @@ this script is the main page for acqui
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;

3
acqui/addorder.pl

@ -119,8 +119,7 @@ if it is an order from an existing suggestion : the id of this suggestion.
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
use C4::Acquisition; # ModOrder

3
acqui/basketgroup.pl

@ -43,8 +43,7 @@ The bookseller who we want to display the baskets (and basketgroups) of.
=cut
use strict;
use warnings;
use Modern::Perl;
use Carp;
use C4::Auth;

3
acqui/basketheader.pl

@ -45,8 +45,7 @@ If it exists, C<$basketno> is the basket we edit
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;

3
acqui/booksellers.pl

@ -51,8 +51,7 @@ The id of the supplier whose baskets we will display
=cut
use strict;
use warnings;
use Modern::Perl;
use C4::Auth;
use C4::Biblio;
use C4::Budgets;

3
acqui/check_budget_total.pl

@ -17,8 +17,7 @@
# 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;

3
acqui/check_duplicate_barcode_ajax.pl

@ -17,8 +17,7 @@
# 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;

3
acqui/edi_ean.pl

@ -21,8 +21,7 @@
# 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;

3
acqui/edifactmsgs.pl

@ -16,8 +16,7 @@
# 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;

3
acqui/edimsg.pl

@ -16,8 +16,7 @@
# 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;

3
acqui/finishreceive.pl

@ -20,8 +20,7 @@
# 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;

3
acqui/histsearch.pl

@ -49,8 +49,7 @@ to filter on ended date.
=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;

3
acqui/invoice.pl

@ -26,8 +26,7 @@ Invoice details
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;

3
acqui/invoices.pl

@ -26,8 +26,7 @@ Search for invoices
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;

3
acqui/neworderbiblio.pl

@ -55,8 +55,7 @@ the basket number to know on which basket this script have to add a new order.
=cut
use strict;
#use warnings; FIXME - Bug 2505
use Modern::Perl;
use C4::Search;
use CGI qw ( -utf8 );

3
acqui/neworderempty.pl

@ -66,8 +66,7 @@ the item's id in the breeding reservoir
=cut
use warnings;
use strict;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;

3
acqui/newordersuggestion.pl

@ -88,8 +88,7 @@ can be equal to
=cut
use strict;
#use warnings; FIXME - Bug 2505
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user

3
acqui/ordered.pl

@ -28,8 +28,7 @@ this script is to show orders ordered but not yet received
=cut
use C4::Context;
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;

3
acqui/orderreceive.pl

@ -58,8 +58,7 @@ The biblionumber of this order.
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;

3
acqui/parcel.pl

@ -54,8 +54,7 @@ To filter the results list on this given date.
=cut
use strict;
use warnings;
use Modern::Perl;
use C4::Auth;
use C4::Acquisition;

3
acqui/parcels.pl

@ -66,8 +66,7 @@ To know how many results have to be display / page.
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;

3
acqui/pdfformat/layout2pages.pm

@ -24,8 +24,7 @@
package pdfformat::layout2pages;
use vars qw(@ISA @EXPORT);
use MIME::Base64;
use strict;
use warnings;
use Modern::Perl;
use utf8;
use Koha::Number::Price;

3
acqui/pdfformat/layout2pagesde.pm

@ -24,8 +24,7 @@
package pdfformat::layout2pagesde;
use vars qw(@ISA @EXPORT);
use MIME::Base64;
use strict;
use warnings;
use Modern::Perl;
use utf8;
use Koha::Number::Price;

3
acqui/pdfformat/layout3pages.pm

@ -25,8 +25,7 @@ package pdfformat::layout3pages;
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;

3
acqui/pdfformat/layout3pagesfr.pm

@ -24,8 +24,7 @@ package pdfformat::layout3pagesfr;
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;

3
acqui/spent.pl

@ -32,8 +32,7 @@ this script is designed to show the spent amount in budgets
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;

3
acqui/supplier.pl

@ -40,8 +40,7 @@ To know the bookseller this script has to display details.
=cut
use strict;
use warnings;
use Modern::Perl;
use C4::Auth;
use C4::Contract;
use C4::Biblio;

3
acqui/uncertainprice.pl

@ -43,8 +43,7 @@ The bookseller who we want to display the orders of.
=cut
use strict;
use warnings;
use Modern::Perl;
use C4::Auth;
use C4::Output;

3
acqui/updatesupplier.pl

@ -46,8 +46,7 @@ contact_serialsprimary.
=cut
use strict;
use warnings;
use Modern::Perl;
use List::Util;
use C4::Context;
use C4::Auth;

3
acqui/z3950_search.pl

@ -19,8 +19,7 @@
# 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;

Loading…
Cancel
Save