|
Lines 1889-1898
sub searchResults {
Link Here
|
| 1889 |
my ($itemtag, undef) = &GetMarcFromKohaField( "items.itemnumber", "" ); |
1889 |
my ($itemtag, undef) = &GetMarcFromKohaField( "items.itemnumber", "" ); |
| 1890 |
|
1890 |
|
| 1891 |
## find column names of items related to MARC |
1891 |
## find column names of items related to MARC |
| 1892 |
my $sth2 = $dbh->prepare("SHOW COLUMNS FROM items"); |
|
|
| 1893 |
$sth2->execute; |
| 1894 |
my %subfieldstosearch; |
1892 |
my %subfieldstosearch; |
| 1895 |
while ( ( my $column ) = $sth2->fetchrow ) { |
1893 |
my @columns = Koha::Database->new()->schema()->resultset('Item')->result_source->columns; |
|
|
1894 |
for my $column ( @columns ) { |
| 1896 |
my ( $tagfield, $tagsubfield ) = |
1895 |
my ( $tagfield, $tagsubfield ) = |
| 1897 |
&GetMarcFromKohaField( "items." . $column, "" ); |
1896 |
&GetMarcFromKohaField( "items." . $column, "" ); |
| 1898 |
if ( defined $tagsubfield ) { |
1897 |
if ( defined $tagsubfield ) { |
| 1899 |
- |
|
|