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

(-)a/C4/Reports/Guided.pm (-9 / +3 lines)
Lines 615-629 sub execute_query { Link Here
615
    };
615
    };
616
    warn $@ if $@;
616
    warn $@ if $@;
617
617
618
    if ( $sql =~ m/password/ ) {
618
    # Check if table.* contained forbidden column names
619
        return ( $sth, { passworderr => "Illegal column in SQL" } );
619
    return ( $sth, { passworderr => "Illegal column in results" } )
620
    }
620
        if Koha::Report->new->check_columns( undef, $sth->{NAME_lc} );
621
622
    foreach my $column ( @{ $sth->{NAME_lc} } ) {
623
        if ( $column eq 'password' ) {
624
            return ( $sth, { passworderr => "Illegal column in results" } );
625
        }
626
    }
627
621
628
    return ( $sth, { queryerr => $sth->errstr } ) if ($sth->err);
622
    return ( $sth, { queryerr => $sth->errstr } ) if ($sth->err);
629
    return ( $sth );
623
    return ( $sth );
(-)a/t/db_dependent/Reports/Guided.t (-1 / +2 lines)
Lines 1-3 Link Here
1
#!/usr/bin/perl
2
1
# Copyright 2012 Catalyst IT Ltd.
3
# Copyright 2012 Catalyst IT Ltd.
2
# Copyright 2015 Koha Development team
4
# Copyright 2015 Koha Development team
3
#
5
#
4
- 

Return to bug 37508