|
Lines 1051-1059
This is meant to be used for display purpose only.
Link Here
|
| 1051 |
|
1051 |
|
| 1052 |
sub columns_to_str { |
1052 |
sub columns_to_str { |
| 1053 |
my ( $self ) = @_; |
1053 |
my ( $self ) = @_; |
|
|
1054 |
my $cache = Koha::Cache::Memory::Lite->get_instance(); |
| 1055 |
my $cache_key = 'Item_columns_to_str_biblio_frameworkcode:' . $self->biblionumber; |
| 1054 |
|
1056 |
|
| 1055 |
my $frameworkcode = $self->biblio->frameworkcode; |
1057 |
my $frameworkcode = $cache->get_from_cache($cache_key); |
| 1056 |
my $tagslib = C4::Biblio::GetMarcStructure(1, $frameworkcode); |
1058 |
unless ( defined $frameworkcode ) { |
|
|
1059 |
$frameworkcode = $self->biblio->frameworkcode; |
| 1060 |
$cache->set_in_cache($cache_key, $frameworkcode); |
| 1061 |
} |
| 1062 |
my $tagslib = C4::Biblio::GetMarcStructure( 1, $frameworkcode, { unsafe => 1 } ); |
| 1057 |
my ( $itemtagfield, $itemtagsubfield) = C4::Biblio::GetMarcFromKohaField( "items.itemnumber" ); |
1063 |
my ( $itemtagfield, $itemtagsubfield) = C4::Biblio::GetMarcFromKohaField( "items.itemnumber" ); |
| 1058 |
|
1064 |
|
| 1059 |
my $columns_info = $self->_result->result_source->columns_info; |
1065 |
my $columns_info = $self->_result->result_source->columns_info; |
|
Lines 1064-1070
sub columns_to_str {
Link Here
|
| 1064 |
|
1070 |
|
| 1065 |
next if $column eq 'more_subfields_xml'; |
1071 |
next if $column eq 'more_subfields_xml'; |
| 1066 |
|
1072 |
|
| 1067 |
my $value = $self->$column; |
1073 |
my $value = $self->_result()->get_column($column); |
| 1068 |
# Maybe we need to deal with datetime columns here, but so far we have damaged_on, itemlost_on and withdrawn_on, and they are not linked with kohafield |
1074 |
# Maybe we need to deal with datetime columns here, but so far we have damaged_on, itemlost_on and withdrawn_on, and they are not linked with kohafield |
| 1069 |
|
1075 |
|
| 1070 |
if ( not defined $value or $value eq "" ) { |
1076 |
if ( not defined $value or $value eq "" ) { |
| 1071 |
- |
|
|