gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>
This commit is contained in:
Charlotte Cordwell 2018-01-18 00:48:55 +00:00 committed by Jonathan Druart
parent 3f6a7933b8
commit cc37c04bf3
30 changed files with 30 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
acqui/acqui-home.pl
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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;