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 421-430 sub _build_languages_arrayref { Link Here
421
421
422
    my %idx          = map { $enabled_languages->[$_] => $_ } reverse 0 .. @$enabled_languages - 1;
422
    my %idx          = map { $enabled_languages->[$_] => $_ } reverse 0 .. @$enabled_languages - 1;
423
    my @ordered_keys = sort {
423
    my @ordered_keys = sort {
424
        my $aa     = '';
424
        my $aa      = '';
425
        my $bb     = '';
425
        my $bb      = '';
426
        my $account = @{ $language_groups->{$a} };
426
        my $account = @{ $language_groups->{$a} };
427
        my $bcount = @{ $language_groups->{$b} };
427
        my $bcount  = @{ $language_groups->{$b} };
428
        if ( $language_groups->{$a}->[0]->{enabled} ) {
428
        if ( $language_groups->{$a}->[0]->{enabled} ) {
429
            $aa = $language_groups->{$a}->[0]->{rfc4646_subtag};
429
            $aa = $language_groups->{$a}->[0]->{rfc4646_subtag};
430
        } elsif ( $account > 1 ) {
430
        } elsif ( $account > 1 ) {
(-)a/C4/SIP/ILS.pm (-1 / +1 lines)
Lines 1019-1025 take. Link Here
1019
1019
1020
=item C<$fee_ack>
1020
=item C<$fee_ack>
1021
1021
1022
Boolean.  If true, the patron has acknowleged that she is willing
1022
Boolean.  If true, the patron has acknowledged that she is willing
1023
to pay the fee associated with placing a hold on this item.  If
1023
to pay the fee associated with placing a hold on this item.  If
1024
C<$fee_ack> is false, then the ILS should refuse to place the
1024
C<$fee_ack> is false, then the ILS should refuse to place the
1025
hold.
1025
hold.
(-)a/C4/Serials.pm (-1 / +1 lines)
Lines 1719-1725 sub NewIssue { Link Here
1719
1719
1720
1 or 0 = HasSubscriptionStrictlyExpired($subscriptionid)
1720
1 or 0 = HasSubscriptionStrictlyExpired($subscriptionid)
1721
1721
1722
the subscription has strictly expired when today > the end subscription date 
1722
the subscription has strictly expired when today > the end subscription date
1723
1723
1724
return :
1724
return :
1725
1 if true, 0 if false, -1 if the expiration date is not set.
1725
1 if true, 0 if false, -1 if the expiration date is not set.
(-)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