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

(-)a/Koha/Object.pm (-5 / +8 lines)
Lines 360-367 sub TO_JSON { Link Here
360
        ) {
360
        ) {
361
361
362
            # TODO: Remove once the solution for
362
            # TODO: Remove once the solution for
363
            # https://rt.cpan.org/Ticket/Display.html?id=119904
363
            # https://github.com/perl5-dbi/DBD-mysql/issues/212
364
            # is ported to whatever distro we support by that time
364
            # is ported to whatever distro we support by that time
365
            # or we move to DBD::MariaDB
365
            $unblessed->{$col} += 0;
366
            $unblessed->{$col} += 0;
366
        }
367
        }
367
        elsif ( _decimal_column_type( $columns_info->{$col}->{data_type} )
368
        elsif ( _decimal_column_type( $columns_info->{$col}->{data_type} )
Lines 369-376 sub TO_JSON { Link Here
369
        ) {
370
        ) {
370
371
371
            # TODO: Remove once the solution for
372
            # TODO: Remove once the solution for
372
            # https://rt.cpan.org/Ticket/Display.html?id=119904
373
            # https://github.com/perl5-dbi/DBD-mysql/issues/212
373
            # is ported to whatever distro we support by that time
374
            # is ported to whatever distro we support by that time
375
            # or we move to DBD::MariaDB
374
            $unblessed->{$col} += 0.00;
376
            $unblessed->{$col} += 0.00;
375
        }
377
        }
376
        elsif ( _datetime_column_type( $columns_info->{$col}->{data_type} ) ) {
378
        elsif ( _datetime_column_type( $columns_info->{$col}->{data_type} ) ) {
Lines 410-417 sub _datetime_column_type { Link Here
410
412
411
sub _numeric_column_type {
413
sub _numeric_column_type {
412
    # TODO: Remove once the solution for
414
    # TODO: Remove once the solution for
413
    # https://rt.cpan.org/Ticket/Display.html?id=119904
415
    # https://github.com/perl5-dbi/DBD-mysql/issues/212
414
    # is ported to whatever distro we support by that time
416
    # is ported to whatever distro we support by that time
417
    # or we move to DBD::MariaDB
415
    my ($column_type) = @_;
418
    my ($column_type) = @_;
416
419
417
    my @numeric_types = (
420
    my @numeric_types = (
Lines 428-435 sub _numeric_column_type { Link Here
428
431
429
sub _decimal_column_type {
432
sub _decimal_column_type {
430
    # TODO: Remove once the solution for
433
    # TODO: Remove once the solution for
431
    # https://rt.cpan.org/Ticket/Display.html?id=119904
434
    # https://github.com/perl5-dbi/DBD-mysql/issues/212
432
    # is ported to whatever distro we support by that time
435
    # is ported to whatever distro we support by that time
436
    # or we move to DBD::MariaDB
433
    my ($column_type) = @_;
437
    my ($column_type) = @_;
434
438
435
    my @decimal_types = (
439
    my @decimal_types = (
436
- 

Return to bug 25638