Browse Source

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

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>
19.05.x
Jasmine Amohia 5 years ago
committed by Nick Clemens
parent
commit
843c4a4bae
  1. 3
      authorities/auth_finder.pl
  2. 3
      authorities/authorities-home.pl
  3. 4
      authorities/authorities.pl
  4. 3
      authorities/blinddetail-biblio-search.pl
  5. 4
      authorities/detail-biblio-search.pl
  6. 4
      authorities/detail.pl
  7. 3
      authorities/export.pl
  8. 3
      authorities/merge.pl
  9. 3
      authorities/merge_ajax.pl

3
authorities/auth_finder.pl

@ -18,8 +18,7 @@
# You should have received a copy of the GNU General Public License # You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>. # along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict; use Modern::Perl;
use warnings;
use CGI qw ( -utf8 ); use CGI qw ( -utf8 );
use C4::Output; use C4::Output;

3
authorities/authorities-home.pl

@ -17,8 +17,7 @@
# You should have received a copy of the GNU General Public License # You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>. # along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict; use Modern::Perl;
use warnings;
use CGI qw ( -utf8 ); use CGI qw ( -utf8 );
use URI::Escape; use URI::Escape;

4
authorities/authorities.pl

@ -18,8 +18,8 @@
# You should have received a copy of the GNU General Public License # You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>. # along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict; use Modern::Perl;
use warnings;
use CGI qw ( -utf8 ); use CGI qw ( -utf8 );
use C4::Auth; use C4::Auth;
use C4::Output; use C4::Output;

3
authorities/blinddetail-biblio-search.pl

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

4
authorities/detail-biblio-search.pl

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

4
authorities/detail.pl

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

3
authorities/export.pl

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

3
authorities/merge.pl

@ -17,8 +17,7 @@
# with Koha; if not, write to the Free Software Foundation, Inc., # with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict; use Modern::Perl;
use warnings;
use CGI qw ( -utf8 ); use CGI qw ( -utf8 );
use C4::Output; use C4::Output;
use C4::Auth; use C4::Auth;

3
authorities/merge_ajax.pl

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

Loading…
Cancel
Save