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

(-)a/C4/Items.pm (-43 / +5 lines)
Lines 35-40 use DateTime::Format::MySQL; Link Here
35
use Data::Dumper; # used as part of logging item record changes, not just for
35
use Data::Dumper; # used as part of logging item record changes, not just for
36
                  # debugging; so please don't remove this
36
                  # debugging; so please don't remove this
37
use Koha::DateUtils qw/dt_from_string/;
37
use Koha::DateUtils qw/dt_from_string/;
38
use Koha::Database;
38
39
39
use vars qw($VERSION @ISA @EXPORT);
40
use vars qw($VERSION @ISA @EXPORT);
40
41
Lines 2922-2948 and an empty array on failure. Link Here
2922
=cut
2923
=cut
2923
2924
2924
sub columns {
2925
sub columns {
2925
    # Pure ANSI SQL goodness.
2926
    my $rs = Koha::Database->new->schema->resultset('Item');
2926
    my $sql = 'SELECT * FROM items WHERE 1=0;';
2927
    return $rs->result_source->columns;
2927
2928
    # Get the database handle.
2929
    my $dbh = C4::Context->dbh;
2930
2931
    # Run the SQL statement to load STH's readonly properties.
2932
    my $sth = $dbh->prepare($sql);
2933
    my $rv = $sth->execute();
2934
2935
    # This only fails if the table doesn't exist.
2936
    # This will always be called AFTER an install or upgrade,
2937
    # so borrowers will exist!
2938
    my @data;
2939
    if ($sth->{NUM_OF_FIELDS}>0) {
2940
        @data = @{$sth->{NAME}};
2941
    }
2942
    else {
2943
        @data = ();
2944
    }
2945
    return @data;
2946
}
2928
}
2947
2929
2948
=head2 biblioitems_columns
2930
=head2 biblioitems_columns
Lines 2955-2981 and an empty array on failure. Link Here
2955
=cut
2937
=cut
2956
2938
2957
sub biblioitems_columns {
2939
sub biblioitems_columns {
2958
    # Pure ANSI SQL goodness.
2940
    my $rs = Koha::Database->new->schema->resultset('Biblioitem');
2959
    my $sql = 'SELECT * FROM biblioitems WHERE 1=0;';
2941
    return $rs->result_source->columns;
2960
2961
    # Get the database handle.
2962
    my $dbh = C4::Context->dbh;
2963
2964
    # Run the SQL statement to load STH's readonly properties.
2965
    my $sth = $dbh->prepare($sql);
2966
    my $rv = $sth->execute();
2967
2968
    # This only fails if the table doesn't exist.
2969
    # This will always be called AFTER an install or upgrade,
2970
    # so borrowers will exist!
2971
    my @data;
2972
    if ($sth->{NUM_OF_FIELDS}>0) {
2973
        @data = @{$sth->{NAME}};
2974
    }
2975
    else {
2976
        @data = ();
2977
    }
2978
    return @data;
2979
}
2942
}
2980
2943
2981
sub ToggleNewStatus {
2944
sub ToggleNewStatus {
2982
- 

Return to bug 11023