Attachment #144226 for bug #32349

View | Details | Raw Unified | Return to bug 32349
Collapse All | Expand All

Lines 480-486 RECORD: while ( ) { Link Here

(-)a/misc/migration_tools/bulkmarcimport.pl (-1 / +1 lines)
480	C4::Biblio::_strip_item_fields($clone_record, '');	480	C4::Biblio::_strip_item_fields($clone_record, '');
481	# This sets the marc fields if there was an error, and also calls	481	# This sets the marc fields if there was an error, and also calls
482	# defer_marc_save.	482	# defer_marc_save.
483	ModBiblioMarc( $clone_record, $biblionumber );	483	ModBiblioMarc( $clone_record, $biblionumber ) if $insert;
484	if ( $error_adding ) {	484	if ( $error_adding ) {
485	warn "ERROR: Adding items to bib $biblionumber failed: $error_adding";	485	warn "ERROR: Adding items to bib $biblionumber failed: $error_adding";
486	printlog({id=>$id\|\|$originalid\|\|$biblionumber, op=>"insertitem",status=>"ERROR"}) if ($logfile);	486	printlog({id=>$id\|\|$originalid\|\|$biblionumber, op=>"insertitem",status=>"ERROR"}) if ($logfile);




#!/usr/bin/env perl

# This script can be used to run perlcritic on perl files in koha
# The script is purely optional requiring Test::Perl::Critic to be installed 
# and the environment variable TEST_QA to be set

use Modern::Perl;
use Test::More;
use English qw(-no_match_vars);

if ( not $ENV{TEST_QA} ) {
    my $msg = 'Author test. Set $ENV{TEST_QA} to a true value to run';
    plan( skip_all => $msg );
}

eval { require Test::Perl::Critic; };

if ( $EVAL_ERROR ) {

Lines 1-4 Link Here

(-)a/xt/find-nonutf8 (-2 / +1 lines)
1	#!/bin/sh	1	#!/usr/bin/perl
2	#	2	#
3	# Find Koha source files that are not in UTF-8. Non-textual files are ignored.	3	# Find Koha source files that are not in UTF-8. Non-textual files are ignored.
4	# This script requires the isutf8 program from Joey Hess's moreutils package.	4	# This script requires the isutf8 program from Joey Hess's moreutils package.
5	-

Return to bug 32349

Lines 1-18 Link Here

(-)a/t/00-testcritic.t (-7 lines)
1	#!/usr/bin/env perl	1	#!/usr/bin/env perl
2		2
3	# This script can be used to run perlcritic on perl files in koha	3	# This script can be used to run perlcritic on perl files in koha
4	# The script is purely optional requiring Test::Perl::Critic to be installed
5	# and the environment variable TEST_QA to be set
6		4
7	use Modern::Perl;	5	use Modern::Perl;
8	use Test::More;	6	use Test::More;
9	use English qw(-no_match_vars);	7	use English qw(-no_match_vars);
10		8
11	if ( not $ENV{TEST_QA} ) {
12	my $msg = 'Author test. Set $ENV{TEST_QA} to a true value to run';
13	plan( skip_all => $msg );
14	}
15
16	eval { require Test::Perl::Critic; };	9	eval { require Test::Perl::Critic; };
17		10
18	if ( $EVAL_ERROR ) {	11	if ( $EVAL_ERROR ) {