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

(-)a/misc/migration_tools/bulkmarcimport.pl (-1 / +1 lines)
Lines 480-486 RECORD: while ( ) { Link Here
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);
(-)a/t/00-testcritic.t (-7 lines)
Lines 1-18 Link Here
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 ) {
(-)a/xt/find-nonutf8 (-2 / +1 lines)
Lines 1-4 Link Here
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