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

(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 938-944 sub GetISBDView { Link Here
938
    my ( $holdingbrtagf, $holdingbrtagsubf ) = &GetMarcFromKohaField("items.holdingbranch");
938
    my ( $holdingbrtagf, $holdingbrtagsubf ) = &GetMarcFromKohaField("items.holdingbranch");
939
    my $tagslib = GetMarcStructure( 1, $itemtype, { unsafe => 1 } );
939
    my $tagslib = GetMarcStructure( 1, $itemtype, { unsafe => 1 } );
940
940
941
    my $ISBD = C4::Context->preference($sysprefname);
941
    my $ISBD  = C4::Context->preference($sysprefname);
942
    my $block = $ISBD;
942
    my $block = $ISBD;
943
    my $res;
943
    my $res;
944
    my $blocres;
944
    my $blocres;
(-)a/C4/Languages.pm (-3 / +3 lines)
Lines 423-432 sub _build_languages_arrayref { Link Here
423
423
424
    my %idx          = map { $enabled_languages->[$_] => $_ } reverse 0 .. @$enabled_languages - 1;
424
    my %idx          = map { $enabled_languages->[$_] => $_ } reverse 0 .. @$enabled_languages - 1;
425
    my @ordered_keys = sort {
425
    my @ordered_keys = sort {
426
        my $aa     = '';
426
        my $aa      = '';
427
        my $bb     = '';
427
        my $bb      = '';
428
        my $account = @{ $language_groups->{$a} };
428
        my $account = @{ $language_groups->{$a} };
429
        my $bcount = @{ $language_groups->{$b} };
429
        my $bcount  = @{ $language_groups->{$b} };
430
        if ( $language_groups->{$a}->[0]->{enabled} ) {
430
        if ( $language_groups->{$a}->[0]->{enabled} ) {
431
            $aa = $language_groups->{$a}->[0]->{rfc4646_subtag};
431
            $aa = $language_groups->{$a}->[0]->{rfc4646_subtag};
432
        } elsif ( $account > 1 ) {
432
        } elsif ( $account > 1 ) {
(-)a/fix-perl-path.PL (-1 / +1 lines)
Lines 28-34 my $bindir = $Config{installbin}; Link Here
28
$bindir =~ s!\\!/!g;    # make all directory separators uniform since Win32 does not care and *nix does...
28
$bindir =~ s!\\!/!g;    # make all directory separators uniform since Win32 does not care and *nix does...
29
my $shebang = "#!$bindir\/perl";
29
my $shebang = "#!$bindir\/perl";
30
30
31
warn "Perl binary located in $bindir on this system.\n"        if $DEBUG;
31
warn "Perl binary located in $bindir on this system.\n"         if $DEBUG;
32
warn "The shebang line for this systems should be $shebang\n\n" if $DEBUG;
32
warn "The shebang line for this systems should be $shebang\n\n" if $DEBUG;
33
33
34
die if $basedir eq 'test';
34
die if $basedir eq 'test';
(-)a/reports/acquisitions_stats.pl (-4 / +4 lines)
Lines 379-385 sub calculate { Link Here
379
        }
379
        }
380
    }
380
    }
381
381
382
    my $i         = 0;
382
    my $i           = 0;
383
    my $highlighted = -1;
383
    my $highlighted = -1;
384
384
385
    #Initialization of cell values.....
385
    #Initialization of cell values.....
Lines 478-487 sub calculate { Link Here
478
            push @loopcell, { value => $value };
478
            push @loopcell, { value => $value };
479
        }
479
        }
480
        my $r = {
480
        my $r = {
481
            rowtitle  => ( $row eq "zzEMPTY" ) ? "NULL" : $row,
481
            rowtitle    => ( $row eq "zzEMPTY" ) ? "NULL" : $row,
482
            loopcell  => \@loopcell,
482
            loopcell    => \@loopcell,
483
            highlighted => ( $highlighted > 0 ),
483
            highlighted => ( $highlighted > 0 ),
484
            totalrow  => $table{$row}->{totalrow}
484
            totalrow    => $table{$row}->{totalrow}
485
        };
485
        };
486
        $r->{totalrow} = sprintf( "%.2f", $r->{totalrow} ) if ( $r->{totalrow} and grep /$process/, ( 3, 4, 5 ) );
486
        $r->{totalrow} = sprintf( "%.2f", $r->{totalrow} ) if ( $r->{totalrow} and grep /$process/, ( 3, 4, 5 ) );
487
        push @looprow, $r;
487
        push @looprow, $r;
(-)a/reports/cat_issues_top.pl (-2 / +2 lines)
Lines 406-413 sub calculate { Link Here
406
406
407
        #my $total = $table[$i]->{totalrow}/$colcount if ($colcount>0);
407
        #my $total = $table[$i]->{totalrow}/$colcount if ($colcount>0);
408
        push @looprow, {
408
        push @looprow, {
409
            'rowtitle'  => $i,
409
            'rowtitle'    => $i,
410
            'loopcell'  => \@loopcell,
410
            'loopcell'    => \@loopcell,
411
            'highlighted' => ( $highlighted > 0 ),
411
            'highlighted' => ( $highlighted > 0 ),
412
        };
412
        };
413
        $highlighted = -$highlighted;
413
        $highlighted = -$highlighted;
(-)a/reports/catalogue_stats.pl (-5 / +5 lines)
Lines 401-407 sub calculate { Link Here
401
        push @loopcol, \%cell;
401
        push @loopcol, \%cell;
402
    }
402
    }
403
403
404
    my $i         = 0;
404
    my $i           = 0;
405
    my $highlighted = -1;
405
    my $highlighted = -1;
406
406
407
    #Initialization of cell values.....
407
    #Initialization of cell values.....
Lines 540-550 sub calculate { Link Here
540
        }
540
        }
541
        push @looprow,
541
        push @looprow,
542
            {
542
            {
543
            'rowtitle'  => $row->{rowtitle},
543
            'rowtitle'    => $row->{rowtitle},
544
            'value'     => $row->{value},
544
            'value'       => $row->{value},
545
            'loopcell'  => \@loopcell,
545
            'loopcell'    => \@loopcell,
546
            'highlighted' => ( $highlighted *= -1 > 0 ),
546
            'highlighted' => ( $highlighted *= -1 > 0 ),
547
            'totalrow'  => $table{ $row->{value} }->{totalrow}
547
            'totalrow'    => $table{ $row->{value} }->{totalrow}
548
            };
548
            };
549
    }
549
    }
550
550
(-)a/reports/issues_avg_stats.pl (-5 / +4 lines)
Lines 386-392 sub calculate { Link Here
386
386
387
    #	warn "fin des titres colonnes";
387
    #	warn "fin des titres colonnes";
388
388
389
    my $i         = 0;
389
    my $i           = 0;
390
    my $highlighted = -1;
390
    my $highlighted = -1;
391
391
392
    #Initialization of cell values.....
392
    #Initialization of cell values.....
Lines 515-524 sub calculate { Link Here
515
        }
515
        }
516
        push @looprow,
516
        push @looprow,
517
            {
517
            {
518
            'rowtitle'  => ( $row eq "zzEMPTY" ) ? "NULL" : $row,
518
            'rowtitle'    => ( $row eq "zzEMPTY" ) ? "NULL" : $row,
519
            'loopcell'  => \@loopcell,
519
            'loopcell'    => \@loopcell,
520
            'highlighted' => ( $highlighted > 0 ),
520
            'highlighted' => ( $highlighted > 0 ),
521
            'totalrow'  => ($total) ? sprintf( "%.2f", $total ) : 0
521
            'totalrow'    => ($total) ? sprintf( "%.2f", $total ) : 0
522
            };
522
            };
523
        $highlighted = -$highlighted;
523
        $highlighted = -$highlighted;
524
    }
524
    }
525
- 

Return to bug 39325