Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Bug 19994: Used Modern::Perl in Authorities perl scripts

Browse source 
Test plan:
1. Review code of the following files and confirm that 'use Modern::Perl;' is used in place of
'use strict; use warnings;'

auth_finder.pl
authorities-home.pl
authorities.pl
blinddetail-biblio-search.pl
detail-biblio-search.pl
detail.pl
export.pl
merge.pl
merge_ajax.pl

Signed-off-by: David Nind <david@davidnind.com>

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

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Jasmine Amohia 2019-01-17 00:51:11 +00:00 committed by Nick Clemens
parent c747c74568
commit 843c4a4bae
9 changed files with 10 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
authorities/auth_finder.pl
View file

@ -18,8 +18,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::Output;

3
authorities/authorities-home.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;
use Modern::Perl;
use CGI qw ( -utf8 );
use URI::Escape;

4
authorities/authorities.pl
View file

@ -18,8 +18,8 @@
# 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
authorities/blinddetail-biblio-search.pl
View file

@ -36,8 +36,7 @@ parameters tables.
=cut
use strict;
use warnings;
use Modern::Perl;
use C4::AuthoritiesMarc;
use C4::Auth;

4
authorities/detail-biblio-search.pl
View file

@ -36,9 +36,7 @@ parameters tables.
=cut
use strict;
use warnings;
use Modern::Perl;
use C4::AuthoritiesMarc;
use C4::Auth;

4
authorities/detail.pl
View file

@ -36,9 +36,7 @@ parameters tables.
=cut
use strict;
use warnings;
use Modern::Perl;
use C4::AuthoritiesMarc;
use C4::Auth;

3
authorities/export.pl
View file

@ -1,6 +1,5 @@
#!/usr/bin/perl
use strict;
use warnings;
use Modern::Perl;
use C4::Record;
use C4::Auth;

3
authorities/merge.pl
View file

@ -17,8 +17,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 qw ( -utf8 );
use C4::Output;
use C4::Auth;

3
authorities/merge_ajax.pl
View file

@ -1,7 +1,6 @@
#!/usr/bin/perl
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before CGI parses the POST request